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

..

Browse Source 
original commit: 08aa0bf1d8abb66a43585e55e85bccbad19391bc
This commit is contained in:
Robby Findler 2003-12-02 21:25:33 +00:00
parent 698bb4878f
commit a52d7de5ca
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/mzlib/contract.ss
View File

@ -2142,7 +2142,8 @@ add structu contracts for immutable structs?
(for-each (lambda (name)
(unless (identifier? name)
(raise-syntax-error 'flat-rec-contract
"expected an identifier" stx name))))]
"expected an identifier" stx name)))
(syntax->list (syntax (name ...))))]
[(_ ([name ctc ...] ...))
(raise-syntax-error 'flat-rec-contract "expected at least one body expression" stx)]))

3
collects/tests/mzscheme/contract-test.ss
View File

@ -1943,6 +1943,9 @@
even1)
'(1 2 3 4)
'(1 2 3))
(syntax-test #'(flat-murec-contract ([(x) y]) x)) ;; malformed binder
(syntax-test #'(flat-murec-contract ([x y]))) ;; missing body
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; ;;