records: Make 'make-syntactic-constructor' available at load/eval/expand.
* guix/records.scm (make-syntactic-constructor): Wrap in 'eval-when'.master
parent
88aab8e349
commit
954cea3ae6
|
@ -42,6 +42,10 @@
|
||||||
(format #f fmt args ...)
|
(format #f fmt args ...)
|
||||||
form))))
|
form))))
|
||||||
|
|
||||||
|
(eval-when (expand load eval)
|
||||||
|
;; This procedure is a syntactic helper used by 'define-record-type*', hence
|
||||||
|
;; 'eval-when'.
|
||||||
|
|
||||||
(define* (make-syntactic-constructor type name ctor fields
|
(define* (make-syntactic-constructor type name ctor fields
|
||||||
#:key (thunked '()) (defaults '())
|
#:key (thunked '()) (defaults '())
|
||||||
(delayed '()))
|
(delayed '()))
|
||||||
|
@ -137,7 +141,7 @@ the list of identifiers of delayed fields."
|
||||||
(record-error 'name s
|
(record-error 'name s
|
||||||
"missing field initializers ~a"
|
"missing field initializers ~a"
|
||||||
(lset-difference eq? 'expected
|
(lset-difference eq? 'expected
|
||||||
fields))))))))))))
|
fields)))))))))))))
|
||||||
|
|
||||||
(define-syntax define-record-type*
|
(define-syntax define-record-type*
|
||||||
(lambda (s)
|
(lambda (s)
|
||||||
|
|
Loading…
Reference in New Issue