continuing to mock the implementation
This commit is contained in:
parent
dcb9ab42df
commit
ca333749fe
|
@ -1,3 +1,43 @@
|
||||||
EXPORTS['big-bang'] = undefined;
|
var makePrimitiveProcedure = plt.baselib.functions.makePrimitiveProcedure;
|
||||||
EXPORTS['initial-view'] = undefined;
|
var makeClosure = plt.baselib.functions.makeClosure;
|
||||||
EXPORTS['stop-when'] = undefined;
|
var finalizeClosureCall = plt.baselib.functions.finalizeClosureCall;
|
||||||
|
var PAUSE = plt.runtime.PAUSE;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
EXPORTS['big-bang'] = makeClosure(
|
||||||
|
'big-bang',
|
||||||
|
plt.baselib.arity.makeArityAtLeast(1),
|
||||||
|
function(MACHINE) {
|
||||||
|
var oldArgcount = MACHINE.argcount;
|
||||||
|
|
||||||
|
PAUSE(function(restart) {
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
restart(function(MACHINE) {
|
||||||
|
MACHINE.argcount = oldArgcount;
|
||||||
|
finalizeClosureCall(MACHINE, "ok");
|
||||||
|
})});
|
||||||
|
});
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
EXPORTS['initial-view'] = makePrimitiveProcedure(
|
||||||
|
'initial-view',
|
||||||
|
1,
|
||||||
|
function(MACHINE) {
|
||||||
|
return undefined;
|
||||||
|
});
|
||||||
|
|
||||||
|
|
||||||
|
EXPORTS['stop-when'] = makePrimitiveProcedure(
|
||||||
|
'stop-when',
|
||||||
|
1,
|
||||||
|
function(MACHINE) {
|
||||||
|
return undefined;
|
||||||
|
});
|
||||||
|
|
||||||
|
|
||||||
|
//////////////////////////////////////////////////////////////////////
|
||||||
|
|
Loading…
Reference in New Issue
Block a user