From b735d33b2b636f457c8ca0740c99169e20b377b3 Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Fri, 29 Apr 2011 11:11:26 +0200
Subject: [PATCH] psyntax simplification

* module/ice-9/psyntax.scm (id-var-name): Just rely on multiple-values
  truncation.
---
 module/ice-9/psyntax.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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)