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

correcting bug with cadr: wrong contract type

Browse Source
This commit is contained in:
Danny Yoo 2012-02-18 22:35:40 -05:00
parent a13274d63b
commit 1b1d285297
4 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/kernel-primitives.rkt
View File

@ -44,6 +44,9 @@
'make-vector 'make-vector
'equal? 'equal?
'member 'member
'memq
'memv
'memf
'append 'append
'reverse 'reverse
'length 'length

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

@ -103,7 +103,7 @@
'caarable value'); 'caarable value');
var checkCadrPair = baselib.check.makeCheckArgumentType( var checkCadrPair = baselib.check.makeCheckArgumentType(
function(x) { function(x) {
return isPair(x) && isPair(x.first); return isPair(x) && isPair(x.rest);
}, },
'cadrable value'); 'cadrable value');
var checkList = baselib.check.checkList; var checkList = baselib.check.checkList;

1
lang/kernel.rkt
View File

@ -100,6 +100,7 @@
if if
cond cond
else else
=>
case case
quote quote
unquote unquote

2
version.rkt
View File

@ -7,4 +7,4 @@
(provide version) (provide version)
(: version String) (: version String)
(define version "1.135") (define version "1.137")