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

don't require users of users of optargs to have used optargs

Browse source 
* ice-9/optargs.scm: Do the compile-friendly equivalent of unquoting in a
  value into the macro: use @@.
This commit is contained in:
Andy Wingo 2008-09-30 00:40:36 +02:00
parent fd3585753a
commit 3b573ef4a5
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
ice-9/optargs.scm
View file

@ -149,7 +149,7 @@
=> cdr)
(else
,(cadr key)))))))
`(let ((,kb-list-gensym (rest-arg->keyword-binding-list
`(let ((,kb-list-gensym ((@@ (ice-9 optargs) rest-arg->keyword-binding-list)
,REST-ARG ',(map (lambda (x) (symbol->keyword (if (pair? x) (car x) x)))
BINDINGS)
,ALLOW-OTHER-KEYS?)))