diff options
Diffstat (limited to '')
-rw-r--r-- | module/hnh/util.scm | 1 | ||||
-rw-r--r-- | module/hnh/util/object.scm | 2 |
2 files changed, 3 insertions, 0 deletions
diff --git a/module/hnh/util.scm b/module/hnh/util.scm index 9f71c1ec..d888bea6 100644 --- a/module/hnh/util.scm +++ b/module/hnh/util.scm @@ -489,6 +489,7 @@ ;; Non-destructive set, syntax extension from set-fields from (srfi ;; srfi-9 gnu). +;;; TODO remove this, it's replaced by the true lens version (define-syntax set (syntax-rules (=) [(set (acc obj) value) 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>? |