diff options
| -rw-r--r-- | module/vcomponent/base.scm | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/module/vcomponent/base.scm b/module/vcomponent/base.scm index bf15510d..f93952ca 100644 --- a/module/vcomponent/base.scm +++ b/module/vcomponent/base.scm @@ -28,6 +28,14 @@ (attributes get-component-attributes)) (export vcomponent? children type) +((@ (srfi srfi-9 gnu) set-record-type-printer!) + <vcomponent> + (lambda (c p) + (format p "#<<vcomponent> ~a, len(child)=~a, parent=~a>~%" + (type c) + (length (children c)) + (and=> (get-component-parent c) type)))) + ;; TODO should this also update the parent (define-public parent (make-procedure-with-setter |