conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

* Fixed a bug in #{gensym} read syntax.

This commit is contained in:
Abdulaziz Ghuloum 2007-10-30 17:45:08 -04:00
parent b79c21132b
commit 8b6f52f72e
4 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
scheme/ikarus.boot.orig
View File

Binary file not shown.

6
scheme/ikarus.conditions.ss
View File

@ -375,5 +375,11 @@
(print-condition x port) (print-condition x port)
(error 'print-condition "not an output port" port))]))) (error 'print-condition "not an output port" port))])))
;(let ([p
; (lambda (x p)
; (display "#<condition>" p))])
; (set-rtd-printer! (record-type-descriptor compound-condition) p))
) )

4
scheme/ikarus.reader.ss
View File

@ -373,7 +373,9 @@
[c (skip-whitespace p "gensym")]) [c (skip-whitespace p "gensym")])
(cond (cond
[($char= #\} c) [($char= #\} c)
(cons 'datum (gensym id0))] ;(cons 'datum (gensym id0))]
(cons 'datum
(foreign-call "ikrt_strings_to_gensym" #f id0))]
[else [else
(let ([id1 (let ([id1
(cond (cond

2
scheme/makefile.ss
View File

@ -633,7 +633,7 @@
[char>=? i r ba se] [char>=? i r ba se]
[char>? i r ba se] [char>? i r ba se]
[char? i r ba se] [char? i r ba se]
[complex? r ba se] [complex? i r ba se]
[cons i r ba se] [cons i r ba se]
[cos i r ba se] [cos i r ba se]
[denominator i r ba se] [denominator i r ba se]