mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

psyntax simplification

Browse source 
* module/ice-9/psyntax.scm (id-var-name): Just rely on multiple-values
  truncation.
This commit is contained in:
Andy Wingo 2011-04-29 11:11:26 +02:00
parent f3a9a51d3e
commit b735d33b2b
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
module/ice-9/psyntax.scm
View file

@ -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)