diff options
Diffstat (limited to 'chibi/print.scm')
-rw-r--r-- | chibi/print.scm | 28 |
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)))) |