18 lines
421 B
JavaScript
18 lines
421 B
JavaScript
|
|
EXPORTS['unsafe-car'] =
|
|
plt.baselib.functions.makePrimitiveProcedure(
|
|
'unsafe-car',
|
|
1,
|
|
function(MACHINE) {
|
|
return MACHINE.env[MACHINE.env.length - 1].first;
|
|
});
|
|
|
|
|
|
EXPORTS['unsafe-cdr'] =
|
|
plt.baselib.functions.makePrimitiveProcedure(
|
|
'unsafe-cdr',
|
|
1,
|
|
function(MACHINE) {
|
|
return MACHINE.env[MACHINE.env.length - 1].rest;
|
|
});
|