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") )