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

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

@ -209,6 +209,9 @@
'unsafe-car
'unsafe-cdr
'abort-current-continuation
'call-with-continuation-prompt
))
(define-predicate KernelPrimitiveName? KernelPrimitiveName)

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

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

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

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

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

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