impc:ti:cond   scheme


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

Implementation

(define impc:ti:cond
  (lambda (ast)
    (if (null? ast) '()
        (list 'if (caar ast)
              (if (null? (cdar ast))
                  '()
                  (apply list 'begin (cdar ast)))
              (impc:ti:cond (cdr ast))))))


Back to Index

Similar Entries