diff options
Diffstat (limited to 'share')
| -rw-r--r-- | share/txr/stdlib/match.tl | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/share/txr/stdlib/match.tl b/share/txr/stdlib/match.tl index e5e37be2..b95fc627 100644 --- a/share/txr/stdlib/match.tl +++ b/share/txr/stdlib/match.tl @@ -32,7 +32,7 @@ (mapcar (ret ^(set ,@1 ,@2)) me.vars me.var-exprs))) (defstruct match-guard (match-vars) - guard-expr) + (guard-expr t)) (defstruct compiled-match (match-vars) pattern @@ -286,7 +286,6 @@ (diff all-vars pm.vars))) t)))))) (let ((guard (new match-guard - guard-expr t vars all-vars))) (new compiled-match pattern par-pat @@ -329,7 +328,6 @@ var-list))) (push (new match-guard - guard-expr t vars (list km.obj-var) var-exprs ^((hash-keys-of ,obj-var ',val))) km.guard-chain) @@ -338,7 +336,6 @@ (let ((vm (compile-match val (gensym "val") var-list))) (push (new match-guard - guard-expr t vars (list vm.obj-var) var-exprs ^((gethash ,obj-var ',key))) vm.guard-chain) |