make-syntactic-constructor kwarg default

2015-01-19 22:54:27 +01:00 · 2015-01-19 22:54:27 +01:00 · 0db40ed289
parent c492be654b
commit 0db40ed289
1 changed files with 1 additions and 1 deletions
--- a/guix/records.scm
+++ b/guix/records.scm
@ -43,7 +43,7 @@ (define-syntax record-error
                       form))))

 (define* (make-syntactic-constructor type name ctor fields
-                                     #:key thunked defaults)
+                                     #:key (thunked '()) (defaults '()))
  "Make the syntactic constructor NAME for TYPE, that calls CTOR, and expects
 all of FIELDS to be initialized.  DEFAULTS is the list of FIELD/DEFAULT-VALUE
 tuples, and THUNKED is the list of identifiers of thunked fields."