debuggin

2011-03-29 21:58:07 -04:00 · 2011-03-29 21:58:07 -04:00 · 7a5a8311b9
commit 7a5a8311b9
parent a3d5ec0b86
1 changed files with 4 additions and 1 deletions
--- a/compile.rkt
+++ b/compile.rkt
@ -774,9 +774,12 @@
    [(and (LocalRef? exp) 
          (not (LocalRef-unbox? exp)))
     (let ([entry (list-ref cenv (LocalRef-depth exp))])
+       (printf "~s\n" entry)
       (cond
         [(StaticallyKnownLam? entry)
          entry]
+         [(Const? entry)
+          entry]
         [else
          '?]))]
    [(ToplevelRef? exp)