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]