Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-20 14:19:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Using brace-notation for write/ss for records not containing any shares.

Browse source
This commit is contained in:
Alex Shinn 2012-06-02 20:11:54 +09:00
parent a56b497a00
commit befe63d6ba
1 changed files with 47 additions and 51 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lib/srfi/38.scm
View file

@ -55,10 +55,6 @@
(set-cdr! cell count) (set-cdr! cell count)
(set! count (+ count 1)))) (set! count (+ count 1))))
(cont x cell))))) (cont x cell)))))
(cond
((null? shared)
(write x out))
(else
(let wr ((x x)) (let wr ((x x))
(check-shared (check-shared
x x
@ -106,7 +102,7 @@
(and (type? type) (type-printer type))) (and (type? type) (type-printer type)))
=> (lambda (printer) (printer x wr out))) => (lambda (printer) (printer x wr out)))
(else (else
(write x out)))))))))) (write x out))))))))
(define write/ss write-with-shared-structure) (define write/ss write-with-shared-structure)