Organize exports and add printf

1 files changed, 12 insertions, 3 deletions

diff --git a/Com/Simatime/core.scm b/Com/Simatime/core.scm
index a97552f..59288a4 100644
--- a/Com/Simatime/core.scm
+++ b/Com/Simatime/core.scm
@@ -1,12 +1,18 @@
 (define-module (Com Simatime core)
   #:use-module ((ice-9 format))
-  #:export (fmt
+  #:export (
+            ;; simple printing
+            fmt printf pr prn
 
-            first next second
+                ;; navigating data
+            first next second rest
 
+            ;; booleans
             true? false? nil nil?
 
-            comment ))
+            ;; dev helpers
+            comment
+            ))
 
 (define (flip f)           (lambda (x y) (f y x)))
 (define (curry f a)        (lambda (b) (apply f (cons a (list b)))))
@@ -114,6 +120,9 @@
 (define (not-any? pred coll)
   (comp not some))
 
+(define (printf . args)
+  (display (apply format args)))
+
 (define-syntax fmt
   (syntax-rules ()
     ((_ s args ...)