diff options
Diffstat (limited to 'module/hnh/util/object.scm')
| -rw-r--r-- | module/hnh/util/object.scm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/module/hnh/util/object.scm b/module/hnh/util/object.scm index 4477b462..fe5d9873 100644 --- a/module/hnh/util/object.scm +++ b/module/hnh/util/object.scm @@ -130,9 +130,11 @@ ;; only dependant on the source from which they orginate, which leads to ;; multiple instances of <type> being equal for similar types... ;; See the manual 6.10.10 Hygiene and the Top-Level + ;; They technically shouldn't be exposed, but are as a side effect. (with-syntax ((<type> (construct-syntax stx #'name "<~a>")) (make-<type> (construct-syntax stx #'name "make-~a%"))) #`(begin + ;; Define actual type (define-immutable-record-type <type> (make-<type> #,@(map syntax-first #'(field ...))) <type>? |