Fix the regexp for BC from racket/htdp@893874f566

shhyou · shhyou · commit 471bb4ca81fe · 2024-12-16T00:15:19.000-06:00
diff --git a/drracket-test/tests/drracket/module-lang-test.rkt b/drracket-test/tests/drracket/module-lang-test.rkt
@@ -542,7 +542,7 @@ f: contract violation
 
 }
       #f
-      #rx"[+]: expects a number, given #false"
+      #rx"[+]: expects a number(?: as 2nd argument)?, given #false"
       #:extra-assert
       (λ (defs ints #:stacks stacks #:test test)
         (and (for*/or ([stack (in-list stacks)]

Original file line number	Diff line number	Diff line change
`@@ -542,7 +542,7 @@ f: contract violation`
`542`	`542`
`543`	`543`	`}`
`544`	`544`	`#f`
`545`		`- #rx"[+]: expects a number, given #false"`
	`545`	`+ #rx"[+]: expects a number(?: as 2nd argument)?, given #false"`
`546`	`546`	`#:extra-assert`
`547`	`547`	`(λ (defs ints #:stacks stacks #:test test)`
`548`	`548`	`(and (for*/or ([stack (in-list stacks)]`