From 351346054c0f253f9a3a9527d4100e779de3ab90 Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Fri, 14 Aug 2015 17:58:01 -0400 Subject: [PATCH] Minor fixes, should now work on 6.2. --- sugar/test/main.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/sugar/test/main.rkt b/sugar/test/main.rkt index 289ae0a..cf2fe15 100644 --- a/sugar/test/main.rkt +++ b/sugar/test/main.rkt @@ -21,7 +21,7 @@ (define-syntax (eval-as-typed stx) (syntax-case stx () [(_ exprs ...) - (let ([sym (syntax-e (generate-temporary))]) + (let ([sym (generate-temporary)]) (datum->syntax stx `(begin (module ,sym typed/racket @@ -63,7 +63,7 @@ (check-equal? (->list '(1 2 3)) '(1 2 3)) (check-equal? (->list (list->vector '(1 2 3))) '(1 2 3)) - (check-equal? (->list (set 1 2 3)) '(2 3 1)) + (check-not-false (andmap (lambda (e) (member e '(1 2 3))) (->list (set 1 2 3)))) (check-equal? (->list "foo") (list "foo")) (check-true (->boolean #t))