diff options
| author | Case Duckworth | 2023-07-02 14:32:26 -0500 |
|---|---|---|
| committer | Case Duckworth | 2023-07-02 14:32:26 -0500 |
| commit | 22c3f2da96853b3b1a36efe6766cf643545848b7 (patch) | |
| tree | 3a24f9dfebae9b56fdcab9c2567cbb6e9cc14e86 /chicken-scratch.scm | |
| parent | Add dependencies section (diff) | |
| download | chicken-scratch-22c3f2da96853b3b1a36efe6766cf643545848b7.tar.gz chicken-scratch-22c3f2da96853b3b1a36efe6766cf643545848b7.zip | |
Add scratchdown main
Diffstat (limited to 'chicken-scratch.scm')
| -rwxr-xr-x | chicken-scratch.scm | 2 |
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. | |||
| 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)) |