1 files changed, 0 insertions(+), 10 deletions(-)

M chalk-bin.scm

@@ 181,14 181,12 @@
            (document-procedure exp))
           ((and documentable-expr?
                 (eqv? 'define (car exp)))
-           ;; (print "VRA")
            (document-variable exp))
           ((and documentable-expr?
                 (or (eqv? 'define-record (car exp))
                     (eqv? 'define-record-type (car exp))))
            (document-record exp))
           ((eqv? 'include (car exp))
-           ;; (print "HEY")
            (document-file (cadr exp)))
           ((eqv? 'include-relative (car exp))
            (document-file (make-pathname file-relpath (cadr exp)))))))


@@ 296,14 294,6 @@
 (define ignore-release (alist-ref 'ignore-release pargs))
 (define email (alist-ref 'email pargs))
 
-;; let* ((outfile (alist-ref 'output pargs))
-;;        (license (alist-ref 'license pargs))
-;;        (prologue (alist-ref 'prologue pargs))
-;;        (epilogue (alist-ref 'epilogue pargs))
-;;        (egg-file (find (lambda (f)
-;;                          (equal? (pathname-extension f) "egg"))
-;;                        (directory)))
-;;        (egg-name (if egg-file (pathname-file egg-file) #f)))
 (when outfile
   (current-output-port (open-output-file outfile)))