I broke this test; I am not sure why it worked in the first place -- to be checked

2014-08-01 21:42:39 -04:00 · 2014-08-01 21:42:39 -04:00 · 6782f7a85f
commit 6782f7a85f
parent 42426272c2
1 changed files with 3 additions and 4 deletions
--- a/pkgs/htdp-pkgs/htdp-test/tests/htdp-lang/pr/12117.rkt
+++ b/pkgs/htdp-pkgs/htdp-test/tests/htdp-lang/pr/12117.rkt
@ -1,6 +1,5 @@
-#lang htdp/bsl
+#lang htdp/asl
+
 (require racket/match)
 (define-struct a (b))
-(match (make-a 1)
- [(struct a (b)) b]
- [#f 3])
+ (match (make-a 1) [(struct a (b)) b] [#f 3])