diff options
Diffstat (limited to 'csc/match.csc')
| -rw-r--r-- | csc/match.csc | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/csc/match.csc b/csc/match.csc index c925381..116204f 100644 --- a/csc/match.csc +++ b/csc/match.csc @@ -25,7 +25,7 @@ (define (matcher x) (unless (predicate x) (raise *no-match*)) - (list (cons 'type 'name) (cons 'field-name* (field-getter* x)) ...)))))) + (list (cons '!type 'name) (cons 'field-name* (field-getter* x)) ...)))))) (define-syntax match-pattern |