Write executable

This involved moving `src' to `lib' and making `bin'.
`bin' holds the program, which only imports `jimmy.main' from lib.

1 files changed, 0 insertions, 49 deletions

@@ -1,49 +0,0 @@
-(module (jimmy util) *
-
-  (import scheme (chicken base)
-          (chicken condition)
-          (only (chicken irregex) irregex-replace/all)
-          (chicken string))
-
-  (define-syntax define-public
-    (syntax-rules ()
-      ((define-public (name . arg) forms ...)
-       (begin (export name)
-              (define (name . arg) forms ...)))
-      ((define-public (name args ...) forms ...)
-       (begin (export name)
-              (define (name args ...) forms ...)))
-      ((define-public name value)
-       (begin (export name)
-              (define name value)))))
-
-  (define-syntax ignore-errors
-    (syntax-rules ()
-      ((ignore-errors x)
-       (handle-exceptions e #f x))))
-
-  (define (alist-walk lis . keys)
-    (if (null? keys)
-        lis
-        (let ((kv (assoc (car keys) lis)))
-          (cond
-           ((not kv) #f)
-           ((atom? (cdr kv))
-            (and (null? (cdr keys))       ; this shouldn't error...
-                 (cdr kv)))
-           ((list? (cdr kv))
-            (apply alist-walk (cdr kv) (cdr keys)))))))
-
-  (define (string-join ss #!optional (sep " "))
-    (string-intersperse ss sep))
-
-  (define (flush-lines-left lines)
-    (irregex-replace/all '(: bol (* space))
-                         (string-join lines) ""))
-
-  (define (join-lines lines)
-    (apply string-append lines))
-
-  )
-
-