get-var-em-size   scheme


Defined in:  https://github.com/digego/extempore/tree/v0.8.9/libs/core/pattern.xtm

Implementation

(define get-var-em-size
  (lambda (var)
    (if (or (null? var) (eqv? var #f))
        1
        (if (= (string-length (caddr var)) 3)
            0 
            1))))


Back to Index