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

..

Browse Source 
original commit: 363af87eeea46717a5154e3000420fc3ed758af1
This commit is contained in:
Robby Findler 2002-11-20 13:51:14 +00:00
parent 699b451a46
commit 93acb4bc1f
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
collects/tests/mzscheme/contracts.ss
View File

@ -459,6 +459,17 @@
(i 1)) (i 1))
"<<unknown>>") "<<unknown>>")
(test/spec-passed
'define/contract6
'(let ()
(define/contract contracted-func
(string? string? . -> . string?)
(lambda (label t)
t))
(contracted-func
"I'm a string constant with side effects"
"ans")))
(test/spec-passed (test/spec-passed
'provide/contract1 'provide/contract1
'(let () '(let ()