From 9806a548fe1a9cca0f82ef4f2f08fbcba5eccfaa Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Wed, 20 May 2009 17:28:59 +0200 Subject: [PATCH] Fix a bug in the (ice-9 match) test * testsuite/t-match.scm (matches?): Fix match invocation. As far as I can tell, although (ice-9 match) does advertise a => form of clauses, it requires that the end of the => be a symbol. For some reason this works in the interpreter: ((lambda () (begin => #t))) It's part of the expansion of matches?. It also worked in the old compiler. Thinking that maybe toplevel references could cause side effects, I made the new compiler actually ref =>, which brought this to light. --- testsuite/t-match.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/testsuite/t-match.scm b/testsuite/t-match.scm index 4b85f30d3..ed56ae7ef 100644 --- a/testsuite/t-match.scm +++ b/testsuite/t-match.scm @@ -12,7 +12,7 @@ (define (matches? obj) ; (format #t "matches? ~a~%" obj) (match obj - (($ stuff) => #t) + (($ stuff) #t) ; (blurps #t) ("hello" #t) (else #f)))