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

Add missing `contract'.

Browse Source 
svn: r16072
This commit is contained in:
Mike Sperber 2009-09-19 17:23:04 +00:00
parent 4ad2d25e1d
commit ec0175bd48
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/tests/deinprogramm/contract.ss
View File

@ -191,7 +191,7 @@
(test-case (test-case
"predicate" "predicate"
(define integer (predicate integer?)) (define integer (contract (predicate integer?)))
(check-equal? (say-no (apply-contract integer 5)) 5) (check-equal? (say-no (apply-contract integer 5)) 5)
(check-equal? (say-no (apply-contract integer "foo")) 'no)) (check-equal? (say-no (apply-contract integer "foo")) 'no))