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

correcting unbound identifier error for the prompt call

Browse Source
This commit is contained in:
Danny Yoo 2013-04-18 12:43:28 -06:00
parent df8416ec00
commit d9df598fe1
4 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
whalesong/compiler/kernel-primitives.rkt
View File

@ -209,6 +209,9 @@
'unsafe-car 'unsafe-car
'unsafe-cdr 'unsafe-cdr
'abort-current-continuation
'call-with-continuation-prompt
)) ))
(define-predicate KernelPrimitiveName? KernelPrimitiveName) (define-predicate KernelPrimitiveName? KernelPrimitiveName)
@ -354,4 +357,4 @@
(list 'vector 'number)] (list 'vector 'number)]
[(eq? prim 'vector-set!) [(eq? prim 'vector-set!)
(list 'vector 'number 'any)])) (list 'vector 'number 'any)]))

2
whalesong/js-assembler/package.rkt
View File

@ -692,7 +692,7 @@ var invokeMainModule = function() {
window.console.log('evaluation took ' + (stopTime - startTime) + ' milliseconds'); window.console.log('evaluation took ' + (stopTime - startTime) + ' milliseconds');
} }
}, },
function(M, e) { function(e) {
var contMarkSet, context, i, appName, contextDiv, srclocProcedure; var contMarkSet, context, i, appName, contextDiv, srclocProcedure;
var displayContext = function() { var displayContext = function() {

4
whalesong/js-assembler/runtime-src/baselib-primitives.js
View File

@ -3215,7 +3215,7 @@
if (M.a >= 2) { if (M.a >= 2) {
promptTag = checkPromptTag(M, 'call-with-continuation-prompt', 1); promptTag = checkPromptTag(M, 'call-with-continuation-prompt', 1);
} else { } else {
promptTag = DEFAULT_CONTINUATION_PROMPT_TAG; promptTag = baselib.contmarks.DEFAULT_CONTINUATION_PROMPT_TAG;
} }
if (M.a >= 3) { if (M.a >= 3) {
if (M.e[M.e.length - 1 - 3] === false) { if (M.e[M.e.length - 1 - 3] === false) {
@ -3224,7 +3224,7 @@
handler = checkProcedure(M, 'call-with-continuation-prompt', 2); handler = checkProcedure(M, 'call-with-continuation-prompt', 2);
} }
} else { } else {
if (promptTag === DEFAULT_CONTINUATION_PROMPT_TAG) { if (promptTag === baselib.contmarks.DEFAULT_CONTINUATION_PROMPT_TAG) {
handler = defaultPromptHandler; handler = defaultPromptHandler;
} else { } else {
handler = makeDefaultPromptHandler(promptTag); handler = makeDefaultPromptHandler(promptTag);

4
whalesong/js-assembler/runtime-src/runtime.js
View File

@ -356,8 +356,8 @@
fail(err); fail(err);
}); });
}, },
function() { function(err) {
fail(); fail(err);
}); });
}; };