summaryrefslogtreecommitdiff
path: root/Com/Simatime
diff options
context:
space:
mode:
authorBen Sima <ben@bsima.me>2019-11-21 12:55:05 -0800
committerBen Sima <ben@bsima.me>2019-11-21 12:55:05 -0800
commit1663e2784dca658e81f34f89aaf87bb112bcc0bf (patch)
treec6c69531fe787074fa6d124a00085464300b7fe7 /Com/Simatime
parent33facda29e668a038ef7fd6db7bca431f91888fb (diff)
Organize exports and add printf
Diffstat (limited to 'Com/Simatime')
-rw-r--r--Com/Simatime/core.scm15
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 ...)