impc:ti:allocate-var?   scheme


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

Implementation

(define impc:ti:allocate-var?
  (lambda (ast)
    (cond ((null? ast) 0)
          ((member ast '(lambda lambdaz)) 3)
          ((eq? ast 'lambdah) 1)
          ((eq? ast 'lambdas) 2)
          ((pair? ast)
           (let ((a (impc:ti:allocate-var? (car ast)))
                 (b (impc:ti:allocate-var? (cdr ast))))
             (if (> a b) a b)))
          (else 0))))


Back to Index

Similar Entries

  • impc:ti:allocate-var?    scheme