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
This commit is contained in:
parent
5789ce5e26
commit
cd0d462a2d
|
@ -1,25 +1,14 @@
|
|||
;; (documentation (name match))
|
||||
;; <pre>Pattern Matching Syntactic Extensions for Scheme
|
||||
;;
|
||||
;; All bugs or questions concerning this software should be directed to
|
||||
;; Bruce Hauman <bhauman@cs.wcu.edu>. 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 ()
|
||||
|
|
|
@ -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")
|
||||
|
||||
)
|
||||
|
||||
|
|
Loading…
Reference in New Issue
Block a user