From 82e05ebdb8ead7fcf99d54cfcd29b47fe86ce22a Mon Sep 17 00:00:00 2001 From: Scott Owens Date: Sat, 17 Apr 2004 20:56:36 +0000 Subject: [PATCH] *** empty log message *** original commit: b4ca538ac04166786280d3c51b6bdee40ccb4e84 --- collects/mzlib/integer-set.ss | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/collects/mzlib/integer-set.ss b/collects/mzlib/integer-set.ss index 4a5dfc2..337c13f 100644 --- a/collects/mzlib/integer-set.ss +++ b/collects/mzlib/integer-set.ss @@ -2,7 +2,7 @@ (require (lib "list.ss") (lib "contract.ss")) - (define-syntax test-block + #;(define-syntax test-block (syntax-rules () ((_ defs (code right-ans) ...) (let* defs @@ -11,7 +11,7 @@ (printf "Test failed: ~e gave ~e. Expected ~e~n" 'code real-ans 'right-ans))) ...)))) - #;(define-syntax test-block + (define-syntax test-block (syntax-rules () ((_ x ...) (void)))) @@ -427,4 +427,4 @@ (partition ((listof integer-set?) . -> . (listof integer-set?))) (card (integer-set? . -> . natural-number?)) (subset? (integer-set? integer-set? . -> . any))) - ) \ No newline at end of file + )