Change organization and massively refactor v001

1 files changed, 33 insertions, 0 deletions

@@ -0,0 +1,33 @@
+(module (acdwm util) (
+                      define-public
+                      ignore
+                      DEBUG
+                      dprint
+                      )
+
+  (import scheme (chicken base)
+          (chicken port))
+
+  (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 (ignore . _) #f)
+
+  (define (eprint . xs)
+    (with-output-to-port (current-error-port)
+      (lambda () (apply print xs))))
+
+  (define DEBUG (make-parameter #f))
+
+  (define (dprint . xs)
+    (when (DEBUG)
+      (apply eprint xs))))