From dd01373ae550905e67cc4c5534c54771b897fbe3 Mon Sep 17 00:00:00 2001 From: Danny Yoo Date: Tue, 22 Nov 2011 02:12:44 -0500 Subject: [PATCH] correcting bug reported by Michael Murphy and Hoon Ik Chang: CheckToplevelUnbound --- js-assembler/assemble-perform-statement.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/js-assembler/assemble-perform-statement.rkt b/js-assembler/assemble-perform-statement.rkt index 0b754e9..952b4f3 100644 --- a/js-assembler/assemble-perform-statement.rkt +++ b/js-assembler/assemble-perform-statement.rkt @@ -15,7 +15,7 @@ (cond [(CheckToplevelBound!? op) - (format "if (M.e[M.e.length-~a][~a]===undefined){ RT.raiseUnboundToplevelError(M.e[M.e.length-~a].names[~a]); }" + (format "if (M.e[M.e.length-~a][~a]===undefined){ RT.raiseUnboundToplevelError(M,M.e[M.e.length-~a].names[~a]); }" (add1 (CheckToplevelBound!-depth op)) (CheckToplevelBound!-pos op) (add1 (CheckToplevelBound!-depth op))