From 3b573ef4a5f7d5ab357f5e63b0a84767d16ac072 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Tue, 30 Sep 2008 00:40:36 +0200 Subject: [PATCH] don't require users of users of optargs to have used optargs * ice-9/optargs.scm: Do the compile-friendly equivalent of unquoting in a value into the macro: use @@. --- ice-9/optargs.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/ice-9/optargs.scm b/ice-9/optargs.scm index 4f6bc8308..4dea92fd7 100644 --- a/ice-9/optargs.scm +++ b/ice-9/optargs.scm @@ -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?)))