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
-                                     #: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."