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

*** empty log message ***

Browse Source 
original commit: b4ca538ac04166786280d3c51b6bdee40ccb4e84
This commit is contained in:
Scott Owens 2004-04-17 20:56:36 +00:00
parent 6c38212048
commit 82e05ebdb8
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/mzlib/integer-set.ss
View File

@ -2,7 +2,7 @@
(require (lib "list.ss") (require (lib "list.ss")
(lib "contract.ss")) (lib "contract.ss"))
(define-syntax test-block #;(define-syntax test-block
(syntax-rules () (syntax-rules ()
((_ defs (code right-ans) ...) ((_ defs (code right-ans) ...)
(let* defs (let* defs
@ -11,7 +11,7 @@
(printf "Test failed: ~e gave ~e. Expected ~e~n" (printf "Test failed: ~e gave ~e. Expected ~e~n"
'code real-ans 'right-ans))) ...)))) 'code real-ans 'right-ans))) ...))))
#;(define-syntax test-block (define-syntax test-block
(syntax-rules () (syntax-rules ()
((_ x ...) (void)))) ((_ x ...) (void))))
@ -427,4 +427,4 @@
(partition ((listof integer-set?) . -> . (listof integer-set?))) (partition ((listof integer-set?) . -> . (listof integer-set?)))
(card (integer-set? . -> . natural-number?)) (card (integer-set? . -> . natural-number?))
(subset? (integer-set? integer-set? . -> . any))) (subset? (integer-set? integer-set? . -> . any)))
) )