From cd0d462a2dce608e514ef51e8b7a543f219d9bfc Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Tue, 5 Jul 2005 22:22:02 +0000 Subject: [PATCH] Fix two bugs caused by clean ups, by adding requires of match-helper and provides of match:test-no-order. Fix totally broken handling of structs with immutable fields, as reported in bug 7398. svn: r354 original commit: b752dcddef89b7bafb51d7aa82f244ac1a5d6913 --- collects/mzlib/match.ss | 17 ++++------------- collects/mzlib/plt-match.ss | 6 ++++-- 2 files changed, 8 insertions(+), 15 deletions(-) diff --git a/collects/mzlib/match.ss b/collects/mzlib/match.ss index 6142238..47d4b74 100644 --- a/collects/mzlib/match.ss +++ b/collects/mzlib/match.ss @@ -1,25 +1,14 @@ ;; (documentation (name match)) ;; 
Pattern Matching Syntactic Extensions for Scheme
 ;;
-;; All bugs or questions concerning this software should be directed to
-;; Bruce Hauman .  The latest version of this software
-;; can be obtained from http://sol.cs.wcu.edu/~bhauman/scheme/pattern.php.
-;;
 ;; Special thanks go out to:
 ;; Robert Bruce Findler for support and bug detection.
 ;; Doug Orleans for pointing out that pairs should be reused while
 ;; matching lists.
 ;;
-;;
 ;; Originally written by Andrew K. Wright, 1993 (wright@research.nj.nec.com)
 ;; which in turn was adapted from code written by Bruce F. Duba, 1991.
 ;;
-;; This software is in the public domain.  Feel free to copy,
-;; distribute, and modify this software as desired.  No warranties
-;; nor guarantees of any kind apply.  Please return any improvements
-;; or bug fixes to bhauman@cs.wcu.edu so that they may be included
-;; in future releases.
-;;
 ;; This macro package extends Scheme with several new expression forms.
 ;; Following is a brief summary of the new forms.  See the associated
 ;; LaTeX documentation for a full description of their functionality.
@@ -128,7 +117,8 @@
    match-equality-test
    exn:misc:match?
    exn:misc:match-value
-   define-match-expander)
+   define-match-expander
+   match:test-no-order)
   
   ;; FIXME: match-helper and match-error should each be split
   ;; into a compile-time part and a run-time part.
@@ -139,7 +129,8 @@
   (require  (prefix plt: "private/match-internal-func.ss")
 	    "private/match-expander.ss"
 	    "private/match-helper.ss"
-	    "private/match-error.ss")
+	    "private/match-error.ss"
+	    "private/test-no-order.ss")
   
   (define-syntax (match-lambda stx)
     (syntax-case stx ()
diff --git a/collects/mzlib/plt-match.ss b/collects/mzlib/plt-match.ss
index c733ac1..1c7ba68 100644
--- a/collects/mzlib/plt-match.ss
+++ b/collects/mzlib/plt-match.ss
@@ -142,12 +142,14 @@
    exn:misc:match?
    exn:misc:match-value
    match-equality-test
-   define-match-expander) 
+   define-match-expander
+   match:test-no-order) 
   
   (require "private/match-internal-func.ss"
            "private/match-expander.ss"
            "private/match-helper.ss"
-           "private/match-error.ss")
+           "private/match-error.ss"
+	   "private/test-no-order.ss")
   
   )