*

2 files changed, 38 insertions, 24 deletions

diff --git a/chibi/print.scm b/chibi/print.scm
index d3af299..4e948c0 100644
--- a/chibi/print.scm
+++ b/chibi/print.scm
@@ -1,28 +1,14 @@
-(define-library (print)
-  (import (scheme base)
-          (scheme write))
+(import
+	(print))
 
-  (export print
-          println
-          prints
-          printsln)
-  (begin
-    ;; Print arguments.
-    (define (print . args)
-      (for-each display args))
+;; very unoficial test of my tiny print library
 
-    ;; Print arguments, space separated.
-    (define (prints . args)
-      (for-each (lambda (s)
-                  (display s)
-                  (display " ")) args))
+(println "hi there")
 
-    ;; Print arguments and a newline.
-    (define (println . args)
-      (apply print args)
-      (newline))
+(printsln "kiwi" "banana" "pineapple")
 
-    ;; Print arguments, space separated, newline.
-    (define (printsln . args)
-      (apply prints args)
-      (newline))))
+(print "****")
+
+(print "hi there")
+
+(prints "kiwi" "banana" "pineapple")
\ No newline at end of file
diff --git a/chibi/print.sld b/chibi/print.sld
new file mode 100644
index 0000000..d3af299
--- /dev/null
+++ b/chibi/print.sld
@@ -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))))