The flattener from bluerider

flattener's People

Contributors

Watchers

flattener's Issues

Flattener can't flatten itself

Flattener seems to fail flattening itself.
It outputs this:

(define (strip-comments file)
   (define (remove-comments chars okay-chars)
      (if (or (null? chars)
              (equal? #\      
          (list->string (reverse okay-chars))
          (remove-comments (cdr chars) (cons (car chars) okay-chars))))
   (define (remove-comments-line line)
     (remove-comments (string->list line) '()))
   (string-append* (map remove-comments-line (file->lines file))))

Instead of this:

(define (strip-comments file)
   (define (remove-comments chars okay-chars)
      (if (or (null? chars)
              (equal? #\ (car chars)))      
          (list->string (reverse okay-chars))
          (remove-comments (cdr chars) (cons (car chars) okay-chars))))
   (define (remove-comments-line line)
     (remove-comments (string->list line) '()))
   (string-append* (map remove-comments-line (file->lines file))))

(define (return-sorted-modules modules) does poor depdency tracking

Return-sorted-modules is supposed to sort based on alphabetical order and popularity. This is not very good dependency management and leads to *-mega files with unsatisfied (requires).

Recommend Projects