Transformation language warm-up
;;; Identity transform
(=> (everything)
(default-transform))
(define (everything)
(subgrove (current-root)))
(define (default-transform)
(if (occurrence-mode (current-node))
(identity-transform-by-origin)
(create-root #f ; identifier for output grove
(copy-current))))
(define (identity-transform-by-origin)
(create-sub (origin (current-node))
(copy-current)
property: (occurrence-mode (current-node))))
(define (copy-current)
(subgrove-spec node: (current-node)))
[Prev][Next]