diff options
Diffstat (limited to 'module/hnh/util/object.scm')
| -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)))) |