;;; 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)))