suzanne.soy/whalesong
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

debuggin

Browse Source
This commit is contained in:
Danny Yoo 2011-03-29 21:58:07 -04:00
parent a3d5ec0b86
commit 7a5a8311b9
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compile.rkt
View File

@ -774,9 +774,12 @@
[(and (LocalRef? exp) [(and (LocalRef? exp)
(not (LocalRef-unbox? exp))) (not (LocalRef-unbox? exp)))
(let ([entry (list-ref cenv (LocalRef-depth exp))]) (let ([entry (list-ref cenv (LocalRef-depth exp))])
(printf "~s\n" entry)
(cond (cond
[(StaticallyKnownLam? entry) [(StaticallyKnownLam? entry)
entry] entry]
[(Const? entry)
entry]
[else [else
'?]))] '?]))]
[(ToplevelRef? exp) [(ToplevelRef? exp)