mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-05-19 13:49:17 +02:00
8 lines
301 B
Scheme
8 lines
301 B
Scheme
|
|
(define-library (scheme write)
|
|
(import (rename (chibi) (write write-simple) (display display-simple))
|
|
(rename (srfi 38) (write/ss write)))
|
|
(export display write write-simple)
|
|
(begin
|
|
(define (display x . o)
|
|
(apply (if (or (string? x) (char? x)) display-simple write) x o))))
|