Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-21 22:59:16 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Splitting write into write (cycles only) and write-shared.

Browse source
This commit is contained in:
Alex Shinn 2012-10-15 09:44:30 +09:00
parent 74d0980b82
commit 6b467f4452
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lib/scheme/write.sld
View file

@ -1,8 +1,10 @@
(define-library (scheme write)
(import (rename (chibi) (write write-simple) (display display-simple))
(rename (srfi 38) (write/ss write)))
(export display write write-simple)
(rename (srfi 38) (write/ss write-shared)))
(export display write write-shared write-simple)
(begin
(define (display x . o)
(apply (if (or (string? x) (char? x)) display-simple write) x o))))
(apply (if (or (string? x) (char? x)) display-simple write) x o))
(define (write x . o)
(write-shared x (if (pair? o) (car o) (current-output-port)) #t))))