# this-configuration.patch -rw-r--r-- 681 bytes View raw 
                                                                                
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