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

* primitive-ref is removed from the compiler.

This commit is contained in:
Abdulaziz Ghuloum 2007-05-04 03:33:26 -04:00
parent 14a947e7f9
commit e3398504b8
2 changed files with 1 additions and 4 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.

5
src/libcompile.ss
View File

@ -142,7 +142,6 @@
[$set-symbol-unique-string! 2 effect] [$set-symbol-unique-string! 2 effect]
[$symbol-plist 1 value] [$symbol-plist 1 value]
[$set-symbol-plist! 2 effect] [$set-symbol-plist! 2 effect]
[primitive-ref 1 value]
[primitive-set! 2 effect] [primitive-set! 2 effect]
[top-level-value 1 value] [top-level-value 1 value]
;;; ports ;;; ports
@ -2089,7 +2088,7 @@
$code-size $code-reloc-vector $code-freevars $code-size $code-reloc-vector $code-freevars
$code-ref $code-set! $code-ref $code-set!
$make-record $record? $record/rtd? $record-rtd $record-ref $record-set! $make-record $record? $record/rtd? $record-rtd $record-ref $record-set!
primitive-set! primitive-ref primitive-set!
$make-tcbucket $tcbucket-key $tcbucket-val $tcbucket-next $make-tcbucket $tcbucket-key $tcbucket-val $tcbucket-next
$set-tcbucket-val! $set-tcbucket-val!
$set-tcbucket-next! $set-tcbucket-tconc!) $set-tcbucket-next! $set-tcbucket-tconc!)
@ -3766,8 +3765,6 @@
(indirect-ref arg* (fx- disp-symbol-unique-string symbol-tag) ac)] (indirect-ref arg* (fx- disp-symbol-unique-string symbol-tag) ac)]
[($symbol-value) [($symbol-value)
(indirect-ref arg* (fx- disp-symbol-value symbol-tag) ac)] (indirect-ref arg* (fx- disp-symbol-value symbol-tag) ac)]
[(primitive-ref)
(indirect-ref arg* (fx- disp-symbol-system-value symbol-tag) ac)]
[($tcbucket-key) [($tcbucket-key)
(indirect-ref arg* (fx- disp-tcbucket-key vector-tag) ac)] (indirect-ref arg* (fx- disp-tcbucket-key vector-tag) ac)]
[($tcbucket-val) [($tcbucket-val)