Remove internal define

1 files changed, 5 insertions, 6 deletions

@@ -24,21 +24,20 @@ schmaltz --- the command-line program
   (else))
 
 (define (main args)
-  (define (display-render)
-    (display (render))
-    (newline))
   (define (rout file)
-    (with-input-from-file file display-render))
+    (with-input-from-file file (lambda () (render) (newline))))
   (cond
    ((and (null? args)                   ; input from stdin
          (char-ready?))
-    (display-render))
+    (render)
+    (newline))
    ((member "-" args)
     (let-values (((fs1 fs2)
                   (break (lambda (x) (equal? x "-"))
                          args)))
       (for-each rout fs1)
-      (display-render)
+      (render)
+      (newline)
       (for-each rout (cdr fs2))))
    ((< 0 (length args))
     (for-each rout args))