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

global lookup appears to be doing the right thing now

Browse Source
This commit is contained in:
Danny Yoo 2011-02-21 17:53:49 -05:00
parent d192d1cacb
commit 627a360499
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
assemble.rkt
View File

@ -241,10 +241,11 @@
(first assembled-inputs)
(second assembled-inputs))]
[(toplevel-lookup)
(format "(~a).valss[~a][~a]"
(third assembled-inputs)
(first assembled-inputs)
(second assembled-inputs))]
(let ([depth (first assembled-inputs)]
[pos (second assembled-inputs)]
[name (third assembled-inputs)]
[env (fourth assembled-inputs)])
(format "(~a).valss[~a][~a]" env depth pos))]
[(primitive-procedure?)
(format "(typeof(~a) === 'function')"
(first assembled-inputs))]