From 21917f7b454c485b33a897c244939df78594f2e7 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 10 Apr 2012 13:47:02 -0600 Subject: [PATCH] fix mzlib contract name test Merge to 5.3 original commit: c64c55b86fd4a2b70caf814a2b06e27db78fcf71 --- collects/tests/racket/contract-mzlib-test.rktl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/tests/racket/contract-mzlib-test.rktl b/collects/tests/racket/contract-mzlib-test.rktl index 615d355..76c49f9 100644 --- a/collects/tests/racket/contract-mzlib-test.rktl +++ b/collects/tests/racket/contract-mzlib-test.rktl @@ -4169,8 +4169,8 @@ so that propagation occurs. (test-name 'natural-number/c natural-number/c) (test-name #f false/c) (test-name 'printable/c printable/c) - (test-name '(symbols 'a 'b 'c) (symbols 'a 'b 'c)) - (test-name '(one-of/c 1 2 3) (one-of/c 1 2 3)) + (test-name '(or/c 'a 'b 'c) (symbols 'a 'b 'c)) + (test-name '(or/c 1 2 3) (one-of/c 1 2 3)) (test-name '(one-of/c '() 'x 1 #f #\a (void) (letrec ([x x]) x)) (one-of/c '() 'x 1 #f #\a (void) (letrec ([x x]) x)))