summaryrefslogtreecommitdiff
path: root/module/system/base/syntax.scm
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2008-05-03 18:47:05 +0200
committerAndy Wingo <wingo@pobox.com>2008-05-03 18:47:05 +0200
commit67169b2960c0befc87673a7a01e7027c19b4e787 (patch)
treecde08ff62d34e318beadd465c415add44e75e0d8 /module/system/base/syntax.scm
parent849cefacf15c265a091aa7d582d14b84f82ddcda (diff)
downloadguile-67169b2960c0befc87673a7a01e7027c19b4e787.tar.gz
convert a couple more modules to record-case
* module/system/base/syntax.scm (record-case): Capture the match macro. * module/system/il/glil.scm: * module/system/il/compile.scm: Convert to record-case.
Diffstat (limited to 'module/system/base/syntax.scm')
-rw-r--r--module/system/base/syntax.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/module/system/base/syntax.scm b/module/system/base/syntax.scm
index 8599d99fc..e379f722e 100644
--- a/module/system/base/syntax.scm
+++ b/module/system/base/syntax.scm
@@ -183,7 +183,7 @@
(if (eq? (car clause) 'else)
clause
`(($ ,@(car clause)) ,@(cdr clause))))
- `(match ,record ,@(map process-clause clauses)))
+ `(,match ,record ,@(map process-clause clauses)))
(define (record? x)
(and (vector? x)