From 627a36049953c51be6ca5128267a4806a0c7c8f2 Mon Sep 17 00:00:00 2001 From: Danny Yoo Date: Mon, 21 Feb 2011 17:53:49 -0500 Subject: [PATCH] global lookup appears to be doing the right thing now --- assemble.rkt | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/assemble.rkt b/assemble.rkt index 0ea5aa8..750fd48 100644 --- a/assemble.rkt +++ b/assemble.rkt @@ -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))]