diff options
| author | Andy Wingo <wingo@pobox.com> | 2011-04-29 11:11:26 +0200 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2011-04-29 11:14:56 +0200 |
| commit | b735d33b2b636f457c8ca0740c99169e20b377b3 (patch) | |
| tree | 5c3659f5bc3c9260e1ca9c4a376d9da0d052430f | |
| parent | f3a9a51d3ea545042f8e62b42a48afadb4839ee9 (diff) | |
| download | guile-b735d33b2b636f457c8ca0740c99169e20b377b3.tar.gz | |
psyntax simplification
* module/ice-9/psyntax.scm (id-var-name): Just rely on multiple-values
truncation.
| -rw-r--r-- | module/ice-9/psyntax.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/module/ice-9/psyntax.scm b/module/ice-9/psyntax.scm index 17acf3ff9..85ceb13c2 100644 --- a/module/ice-9/psyntax.scm +++ b/module/ice-9/psyntax.scm @@ -770,7 +770,8 @@ (lambda (id w) (define-syntax first (syntax-rules () - ((_ e) (call-with-values (lambda () e) (lambda (x . ignore) x))))) + ;; Rely on Guile's multiple-values truncation. + ((_ e) e))) (define search (lambda (sym subst marks) (if (null? subst) |