Remove old match implementation.
Fix typed-scheme to work w/ new match. Factor out lots of common code. Implement (mcons ..) patterns svn: r9086 original commit: ae4acf1d517beeb7673edb12cff77add32ebf89c
This commit is contained in:
parent
0572a47806
commit
9421dd6676
|
@ -7,7 +7,7 @@
|
|||
string-constants/string-constant
|
||||
#;'#%more-scheme
|
||||
#;'#%qq-and-or
|
||||
(lib "match-error.ss" "mzlib" "private" "match"))
|
||||
(only-in scheme/match/patterns match:error))
|
||||
)
|
||||
|
||||
|
||||
|
@ -20,7 +20,7 @@
|
|||
(only-in "type-effect-convenience.ss" [make-arr* make-arr])
|
||||
"union.ss"
|
||||
string-constants/string-constant
|
||||
(lib "match-error.ss" "mzlib" "private" "match")
|
||||
(only-in scheme/match/patterns match:error)
|
||||
"tc-structs.ss")
|
||||
|
||||
(require (for-syntax
|
||||
|
@ -32,7 +32,7 @@
|
|||
(only-in "type-effect-convenience.ss" [make-arr* make-arr])
|
||||
"union.ss"
|
||||
string-constants/string-constant
|
||||
(lib "match-error.ss" "mzlib" "private" "match")
|
||||
(only-in scheme/match/patterns match:error)
|
||||
"tc-structs.ss"))
|
||||
|
||||
(define-for-syntax (initialize-others)
|
||||
|
|
Loading…
Reference in New Issue
Block a user