From 22c3f2da96853b3b1a36efe6766cf643545848b7 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Sun, 2 Jul 2023 14:32:26 -0500
Subject: Add scratchdown

---
 chicken-scratch.scm | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'chicken-scratch.scm')

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))
-- 
cgit 1.4.1-21-gabe81