diff options
| author | Case Duckworth | 2024-05-27 00:01:46 -0500 |
|---|---|---|
| committer | Case Duckworth | 2024-05-27 00:01:46 -0500 |
| commit | ddc2a19b6591dc254462d44aefa37bc25aaaf9bb (patch) | |
| tree | b79a35bc29dcf5e64c3f7669a06bf04781d4e896 /src/util.scm | |
| parent | Updates! (diff) | |
| download | jimmy-ddc2a19b6591dc254462d44aefa37bc25aaaf9bb.tar.gz jimmy-ddc2a19b6591dc254462d44aefa37bc25aaaf9bb.zip | |
Fix emit and read, add imports, fix makefile
Diffstat (limited to 'src/util.scm')
| -rw-r--r-- | src/util.scm | 6 |
1 files changed, 4 insertions, 2 deletions
| diff --git a/src/util.scm b/src/util.scm index 7bf89ac..41da769 100644 --- a/src/util.scm +++ b/src/util.scm | |||
| @@ -1,7 +1,8 @@ | |||
| 1 | (module (jimmy util) * | 1 | (module (jimmy util) * |
| 2 | 2 | ||
| 3 | (import scheme (chicken base) | 3 | (import scheme (chicken base) |
| 4 | (chicken condition)) | 4 | (chicken condition) |
| 5 | (chicken string)) | ||
| 5 | 6 | ||
| 6 | (define-syntax define-public | 7 | (define-syntax define-public |
| 7 | (syntax-rules () | 8 | (syntax-rules () |
| @@ -32,6 +33,7 @@ | |||
| 32 | ((list? (cdr kv)) | 33 | ((list? (cdr kv)) |
| 33 | (apply alist-walk (cdr kv) (cdr keys))))))) | 34 | (apply alist-walk (cdr kv) (cdr keys))))))) |
| 34 | 35 | ||
| 35 | ) | 36 | (define (string-join ss #!optional (sep " ")) |
| 37 | (string-intersperse ss sep))) | ||
| 36 | 38 | ||
| 37 | 39 | ||