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

Added (r6rs eval) library

This commit is contained in:
Abdulaziz Ghuloum 2007-08-30 19:40:01 -04:00
parent d2419aca42
commit a324572bc0
3 changed files with 7 additions and 3 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.

6
src/makefile.ss
View File

@ -127,6 +127,7 @@
[mutable-pairs (r6rs mutable-pairs) #t] [mutable-pairs (r6rs mutable-pairs) #t]
[unicode (r6rs unicode) #t] [unicode (r6rs unicode) #t]
[ios (r6rs i/o simple) #t] [ios (r6rs i/o simple) #t]
[ev (r6rs eval) #t]
[cm (chez modules) #t] [cm (chez modules) #t]
[$all (ikarus system $all) #f] [$all (ikarus system $all) #f]
[$pairs (ikarus system $pairs) #f] [$pairs (ikarus system $pairs) #f]
@ -162,6 +163,7 @@
[unicode (r6rs unicode) #t] [unicode (r6rs unicode) #t]
[rfl (r6rs arithmetic flonums) #t] [rfl (r6rs arithmetic flonums) #t]
[ios (r6rs i/o simple) #t] [ios (r6rs i/o simple) #t]
[ev (r6rs eval) #t]
[cm (chez modules) #t] [cm (chez modules) #t]
[$all (ikarus system $all) #f] [$all (ikarus system $all) #f]
[$pairs (ikarus system $pairs) #f] [$pairs (ikarus system $pairs) #f]
@ -567,8 +569,8 @@
[load i] [load i]
[assembler-output i] [assembler-output i]
[new-cafe i] [new-cafe i]
[eval i] [eval i ev]
[environment i] [environment i ev]
[environment? i] [environment? i]
[time-it i] [time-it i]
[command-line-arguments i] [command-line-arguments i]

4
src/pass-specify-rep-primops.ss
View File

@ -133,7 +133,9 @@
[(E x) (nop)]) [(E x) (nop)])
(define-primop pointer-value unsafe (define-primop pointer-value unsafe
[(V x) (prm 'logand (T x) (K (* -1 fixnum-scale)))] [(V x) (prm 'logand
(prm 'srl (T x) (K 1))
(K (* -1 fixnum-scale)))]
[(P x) (K #t)] [(P x) (K #t)]
[(E x) (nop)]) [(E x) (nop)])