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

* removed $code? from the compiler as well.

This commit is contained in:
Abdulaziz Ghuloum 2007-05-06 22:50:28 -04:00
parent 70008f2f7a
commit 085a0c14ed
2 changed files with 3 additions and 5 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.

8
src/ikarus.compiler.ss
View File

@ -189,7 +189,6 @@
;;; ;;;
;;; asm ;;; asm
;;; ;;;
[$code? 1 pred]
[code? 1 pred] [code? 1 pred]
[$code-size 1 value] [$code-size 1 value]
[$code-reloc-vector 1 value] [$code-reloc-vector 1 value]
@ -2018,7 +2017,7 @@
(case op (case op
[(fixnum? flonum? bignum? immediate? boolean? char? vector? string? procedure? [(fixnum? flonum? bignum? immediate? boolean? char? vector? string? procedure?
null? pair? not cons eq? vector symbol? error eof-object eof-object? null? pair? not cons eq? vector symbol? error eof-object eof-object?
void base-rtd $unbound-object? $code? code? $forward-ptr? bwp-object? void base-rtd $unbound-object? code? $forward-ptr? bwp-object?
pointer-value top-level-value car cdr list* list $record pointer-value top-level-value car cdr list* list $record
port? input-port? output-port? port? input-port? output-port?
$make-port/input $make-port/output $make-port/both $make-port/input $make-port/output $make-port/both
@ -3328,7 +3327,7 @@
[(not) (Pred (car rand*) Lf Lt ac)] [(not) (Pred (car rand*) Lf Lt ac)]
[(eof-object?) (type-pred #f eof rand* Lt Lf ac)] [(eof-object?) (type-pred #f eof rand* Lt Lf ac)]
[(bwp-object?) (type-pred #f bwp-object rand* Lt Lf ac)] [(bwp-object?) (type-pred #f bwp-object rand* Lt Lf ac)]
[($code? code?) [(code?)
(indirect-type-pred vector-mask vector-tag #f code-tag (indirect-type-pred vector-mask vector-tag #f code-tag
rand* Lt Lf ac)] rand* Lt Lf ac)]
[($fxzero?) (type-pred #f 0 rand* Lt Lf ac)] [($fxzero?) (type-pred #f 0 rand* Lt Lf ac)]
@ -4093,8 +4092,7 @@
[(fixnum? bignum? flonum? immediate? $fxzero? boolean? char? pair? [(fixnum? bignum? flonum? immediate? $fxzero? boolean? char? pair?
vector? string? symbol? vector? string? symbol?
procedure? null? not eof-object? $fx= $fx< $fx<= $fx> $fx>= eq? procedure? null? not eof-object? $fx= $fx< $fx<= $fx> $fx>= eq?
$char= $char< $char<= $char> $char>= $unbound-object? $code? $char= $char< $char<= $char> $char>= $unbound-object? code?
code?
$record? $record/rtd? bwp-object? port? input-port? output-port?) $record? $record/rtd? bwp-object? port? input-port? output-port?)
(do-pred->value-prim op arg* ac)] (do-pred->value-prim op arg* ac)]
[($code->closure) [($code->closure)