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/util | |
parent | Documentation work. (diff) | |
download | calp-212f953dc78c666cdf5d96b9cc8fb95bc56b405e.tar.gz calp-212f953dc78c666cdf5d96b9cc8fb95bc56b405e.tar.xz |
Add TODO comments.
Diffstat (limited to 'module/hnh/util')
-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>? |