From d11b2e3a0ec03a7f4b7a77cc3cf05497320aa09f Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Thu, 7 Jul 2022 21:25:49 +0200 Subject: Add pair-of to object system. --- module/hnh/util/object.scm | 3 +++ 1 file changed, 3 insertions(+) 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)))) -- cgit v1.2.3