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

fasl-read handles negative fixnums.

This commit is contained in:
Abdulaziz Ghuloum 2006-12-26 09:22:58 +03:00
parent 3ddceaa164
commit 9c00592520
2 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
src/ikarus.boot
View File

Binary file not shown.

11
src/libfasl.ss
View File

@ -250,7 +250,16 @@
[(fx<= c3 127) [(fx<= c3 127)
(fxlogor (fxlogor (fxsra c0 2) (fxsll c1 6)) (fxlogor (fxlogor (fxsra c0 2) (fxsll c1 6))
(fxlogor (fxsll c2 14) (fxsll c3 22)))] (fxlogor (fxsll c2 14) (fxsll c3 22)))]
[else (error who "neg")]))] [else
(let ([c0 (fxlogand #xFF (fxlognot c0))]
[c1 (fxlogand #xFF (fxlognot c1))]
[c2 (fxlogand #xFF (fxlognot c2))]
[c3 (fxlogand #xFF (fxlognot c3))])
(fx- -1
(fxlogor (fxlogor (fxsra c0 2)
(fxsll c1 6))
(fxlogor (fxsll c2 14)
(fxsll c3 22)))))]))]
[(#\P) [(#\P)
(let ([a (read)]) (let ([a (read)])
(cons a (read)))] (cons a (read)))]