From 6782f7a85fff22cc73c53a8abdb008b1241bf033 Mon Sep 17 00:00:00 2001 From: Matthias Felleisen Date: Fri, 1 Aug 2014 21:42:39 -0400 Subject: [PATCH] I broke this test; I am not sure why it worked in the first place -- to be checked --- pkgs/htdp-pkgs/htdp-test/tests/htdp-lang/pr/12117.rkt | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/pkgs/htdp-pkgs/htdp-test/tests/htdp-lang/pr/12117.rkt b/pkgs/htdp-pkgs/htdp-test/tests/htdp-lang/pr/12117.rkt index 33acc795c7..9b85447248 100644 --- 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])