From 4b932068c4d7b2b6e9cb35ef03455cfc0fc490bc Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Mon, 28 Aug 2023 23:21:53 -0500
Subject: Remove internal define

---
 schmaltz.scm | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

diff --git a/schmaltz.scm b/schmaltz.scm
index 940ff76..16236eb 100755
--- a/schmaltz.scm
+++ b/schmaltz.scm
@@ -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))
-- 
cgit 1.4.1-21-gabe81