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) (first assembled-inputs)
(second assembled-inputs))] (second assembled-inputs))]
[(toplevel-lookup) [(toplevel-lookup)
(format "(~a).valss[~a][~a]" (let ([depth (first assembled-inputs)]
(third assembled-inputs) [pos (second assembled-inputs)]
(first assembled-inputs) [name (third assembled-inputs)]
(second assembled-inputs))] [env (fourth assembled-inputs)])
(format "(~a).valss[~a][~a]" env depth pos))]
[(primitive-procedure?) [(primitive-procedure?)
(format "(typeof(~a) === 'function')" (format "(typeof(~a) === 'function')"
(first assembled-inputs))] (first assembled-inputs))]