diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-07-07 21:25:49 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-07-07 21:25:49 +0200 |
commit | d11b2e3a0ec03a7f4b7a77cc3cf05497320aa09f (patch) | |
tree | 9e783dac6ef76d34126154fa1017deb3d669282f /module/hnh/util/object.scm | |
parent | Extend object type system to allow list-of. (diff) | |
download | calp-d11b2e3a0ec03a7f4b7a77cc3cf05497320aa09f.tar.gz calp-d11b2e3a0ec03a7f4b7a77cc3cf05497320aa09f.tar.xz |
Add pair-of to object system.
Diffstat (limited to '')
-rw-r--r-- | module/hnh/util/object.scm | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/module/hnh/util/object.scm b/module/hnh/util/object.scm index 6a26336e..4dbb45a8 100644 --- a/module/hnh/util/object.scm +++ b/module/hnh/util/object.scm @@ -47,6 +47,9 @@ variable))) ((_ variable (list-of proc)) (and (list? variable) (every proc variable))) + ((_ variable (pair-of a b)) (and (pair? variable) + (build-validator-body (car variable) a) + (build-validator-body (cdr variable) b))) ((_ variable (proc args ...)) (proc variable args ...)) ((_ variable proc) (proc variable)))) |