From 5e746db4f4123887d3c8d6776555f72dae2498e0 Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Mon, 29 Jan 2018 19:01:53 -0500 Subject: [PATCH] Added TODO --- match-test.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/match-test.scm b/match-test.scm index 6b9a8061..538a4fd6 100644 --- a/match-test.scm +++ b/match-test.scm @@ -74,7 +74,8 @@ ;(expand (match-check-ellipsis$270 s (match-extract-vars$269 and$262 (match-gen-ellipsis$268 v$1 and$262 () ("test" (set! "test")) (match-drop-ids$9 (begin s)) (failure$5) ()) () ()) (match-two$267 v$1 (and$262 s) ("test" (set! "test")) (match-drop-ids$9 (begin s)) (failure$5) ())))*/ ;(expand (match-two$267 v$1 (and$262 s) ("test" (set! "test")) (match-drop-ids$9 (begin s)) (failure$5) ()))*/ -;(display (match 1 ((or x 2) x)) )(newline) +TODO: this does not work, try expanding it manually like we did with the other failing macros. maybe we can discover what's going wrong... +(display (match 1 ((or x 2) x)) )(newline) (test-group "predicates"