diff options
| -rw-r--r-- | Com/Simatime/core.scm | 15 |
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 ...) |