diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-10-02 19:28:31 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-10-02 19:28:44 +0200 |
commit | 212f953dc78c666cdf5d96b9cc8fb95bc56b405e (patch) | |
tree | 392129a76d448a78a2c341d9c08986448e2ff053 /module/hnh | |
parent | Documentation work. (diff) | |
download | calp-212f953dc78c666cdf5d96b9cc8fb95bc56b405e.tar.gz calp-212f953dc78c666cdf5d96b9cc8fb95bc56b405e.tar.xz |
Add TODO comments.
Diffstat (limited to 'module/hnh')
-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>? |