* inserting primref checks temporarily

2007-05-05 21:59:31 -04:00 · 2007-05-05 21:59:31 -04:00 · 4814f48573
parent 9745fedfe1
commit 4814f48573
2 changed files with 1 additions and 1 deletions
--- a/src/ikarus.boot
+++ b/src/ikarus.boot
--- a/src/ikarus.compiler.ss
+++ b/src/ikarus.compiler.ss
@ -2554,7 +2554,7 @@
        s))
    (define (check? x)
      (cond
-        [(primref? x) #f]  ;;;; PRIMREF CHECK
+        [(primref? x) #t]  ;;;; PRIMREF CHECK
        [(closure? x) #f]
        [else         #t]))
    (define (do-new-frame label op rand* si r