dmbcs/guile
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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