1 files changed, 2 insertions, 0 deletions
diff --git a/chicken-scratch.scm b/chicken-scratch.scm
index 6d06fb6..307aa8d 100755
--- a/chicken-scratch.scm
+++ b/chicken-scratch.scm

@@ -11,6 +11,8 @@ License: BSD-3.  See COPYING for details.
        (chicken process-context))
 (define (main args)
+  ;; XXX: handle standard input piping
+  ;; XXX: Must have an #(import chicken-scratch at the beginning)
  (for-each (lambda (file)
              (when (file-exists? file)
                (display (with-input-from-file file expand-port))

diff --git a/chicken-scratch.scm b/chicken-scratch.scm index 6d06fb6..307aa8d 100755 --- a/chicken-scratch.scm +++ b/chicken-scratch.scm
@@ -11,6 +11,8 @@ License: BSD-3. See COPYING for details.
11	(chicken process-context))	11	(chicken process-context))
12		12
13	(define (main args)	13	(define (main args)
		14	;; XXX: handle standard input piping
		15	;; XXX: Must have an #(import chicken-scratch at the beginning)
14	(for-each (lambda (file)	16	(for-each (lambda (file)
15	(when (file-exists? file)	17	(when (file-exists? file)
16	(display (with-input-from-file file expand-port))	18	(display (with-input-from-file file expand-port))