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

* inserting primref checks temporarily

This commit is contained in:
Abdulaziz Ghuloum 2007-05-05 21:59:31 -04:00
parent 9745fedfe1
commit 4814f48573
2 changed files with 1 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.

2
src/ikarus.compiler.ss
View File

@ -2554,7 +2554,7 @@
s)) s))
(define (check? x) (define (check? x)
(cond (cond
[(primref? x) #f] ;;;; PRIMREF CHECK [(primref? x) #t] ;;;; PRIMREF CHECK
[(closure? x) #f] [(closure? x) #f]
[else #t])) [else #t]))
(define (do-new-frame label op rand* si r (define (do-new-frame label op rand* si r