make-syntactic-constructor kwarg default

diff --git a/guix/records.scm b/guix/records.scm
index bef8ff8..8a4d6a7 100644 (file)
--- a/guix/records.scm
+++ b/guix/records.scm
@@ -43,7 +43,7 @@
                        form))))
 
 (define* (make-syntactic-constructor type name ctor fields
                        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."
   "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."