1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
@@ -130,11 +130,12 @@
#,(id #'stem #'% #'stem)
#,(id #'stem #'make- #'stem)
#,(id #'stem #'stem #'?)
+ #,(id #'stem #'this- #'stem)
(%location #,(id #'stem #'-location)
(default (and=> (current-source-location)
source-properties->location))
(innate))
- (field field-getter (default def))
+ (field field-getter (thunked) (default def))
...)
(define #,(id #'stem #'stem #'-fields)
(list (configuration-field