From 55974d44fa4d1ec37733b15169d57f6583bd3f89 Mon Sep 17 00:00:00 2001
From: Abdulaziz Ghuloum <aghuloum@cs.indiana.edu>
Date: Tue, 25 Nov 2008 04:21:51 -0500
Subject: [PATCH] fixed a bug in the definition of andmap in match, and made it
 export match+ and trace-match+.

---
 lib/match.ss         | 3 ++-
 scheme/last-revision | 2 +-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/lib/match.ss b/lib/match.ss
index 7908b5f..33930fb 100644
--- a/lib/match.ss
+++ b/lib/match.ss
@@ -95,6 +95,7 @@
 
 (library (match)
   (export match trace-match 
+          match+ trace-match+
           match/lexical-context trace-match/lexical-context
           match-equality-test
           guard ... quasiquote unquote unquote-splicing)
@@ -275,7 +276,7 @@
     (define (f syn vars guards cdecls depth)
       (define (andmap f ls)
         (cond
-          ((null? ls) #f)
+          ((null? ls) #t)
           ((null? (cdr ls)) (f (car ls)))
           (else (and (f (car ls)) (andmap f (cdr ls))))))
       (syntax-case syn (unquote)
diff --git a/scheme/last-revision b/scheme/last-revision
index 076bcb6..0fb26ff 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1690
+1691