impc:ti:flatten-1   scheme


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

Implementation

;; this is a dodgy flatten :(
(define impc:ti:flatten-1
  (lambda (lst)
    (cond ((null? lst) '())
          ((list? (car lst))
           (append (car lst) (impc:ti:flatten-1 (cdr lst))))
          (else (list lst)))))


Back to Index

Similar Entries