diff options
author | Andy Wingo <wingo@pobox.com> | 2008-05-03 18:47:05 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2008-05-03 18:47:05 +0200 |
commit | 67169b2960c0befc87673a7a01e7027c19b4e787 (patch) | |
tree | cde08ff62d34e318beadd465c415add44e75e0d8 /module/system/base/syntax.scm | |
parent | 849cefacf15c265a091aa7d582d14b84f82ddcda (diff) | |
download | guile-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.scm | 2 |
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) |