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

unsafe-car, unsafe-cdr

Browse Source
This commit is contained in:
Danny Yoo 2012-01-10 10:51:13 -05:00
parent 03e4549587
commit 729e61cfae
2 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/kernel-primitives.rkt
View File

@ -115,6 +115,9 @@
'hash-values
'string-copy
'unsafe-car
'unsafe-cdr
))
(define-predicate KernelPrimitiveName? KernelPrimitiveName)

16
js-assembler/runtime-src/baselib-primitives.js
View File

@ -587,6 +587,13 @@
return baselib.lists.listRef(lst, baselib.numbers.toFixnum(index));
});
installPrimitiveProcedure(
'unsafe-car',
1,
function (M) {
var firstArg = checkAny(M, 'unsafe-car', 0);
return firstArg.first;
});
installPrimitiveProcedure(
'car',
@ -610,6 +617,15 @@
var firstArg = checkCadrPair(M, 'cadr', 0);
return firstArg.first.rest;
});
installPrimitiveProcedure(
'unsafe-cdr',
1,
function (M) {
var firstArg = checkAny(M, 'unsafe-cdr', 0);
return firstArg.rest;
});
installPrimitiveProcedure(
'cdr',
1,