*

1 files changed, 28 insertions, 0 deletions

diff --git a/chibi/print.scm b/chibi/print.scm
new file mode 100644
index 0000000..d3af299
--- /dev/null
+++ b/chibi/print.scm
@@ -0,0 +1,28 @@
+(define-library (print)
+  (import (scheme base)
+          (scheme write))
+
+  (export print
+          println
+          prints
+          printsln)
+  (begin
+    ;; Print arguments.
+    (define (print . args)
+      (for-each display args))
+
+    ;; Print arguments, space separated.
+    (define (prints . args)
+      (for-each (lambda (s)
+                  (display s)
+                  (display " ")) args))
+
+    ;; Print arguments and a newline.
+    (define (println . args)
+      (apply print args)
+      (newline))
+
+    ;; Print arguments, space separated, newline.
+    (define (printsln . args)
+      (apply prints args)
+      (newline))))