cl:tree-copy   scheme


Defined in:  https://github.com/digego/extempore/tree/v0.8.9/runtime/scheme.xtm

Implementation

(define (cl:tree-copy tree)
  (let loop ((tree tree))
    (if (pair? tree)
  (cons (loop (car tree)) (loop (cdr tree)))
  tree)))


Back to Index

Similar Entries