diff options
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 | ||