diff options
| author |  Peter McGoron
| 2025-04-24 18:10:31 -0400 |
|---|---|---|
| committer | Peter McGoron
| 2025-04-24 18:10:31 -0400 |
| commit | 3c9050912f5206dadf61eb5e7e5efa6def3749d1 (patch) | |
| tree | 9b4605a2234a20ddae0757e4564db5e2574a09bc | |
| parent | add pattern matcher and some tests (diff) | |
fix is-ellipsis-list
Diffstat (limited to '')
| -rw-r--r-- | multisyntax/patterns.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/multisyntax/patterns.scm b/multisyntax/patterns.scm index a0a916c..0e7a2b1 100644 --- a/multisyntax/patterns.scm +++ b/multisyntax/patterns.scm @@ -114,7 +114,7 @@ (bound-identifier=? stx ellipsis))))) ;; ;; - (define (is-ellipsis-list ellipsis patcdr) + (define (is-ellipsis-list patcdr) (if (null? patcdr) (values #f (compile patcdr)) (let ((patcadr (unwrap-syntax (car patcdr)))) |