reduce-ptrdepth-to-zero   scheme


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

Implementation

(define reduce-ptrdepth-to-zero
  (lambda (t)
    (if (> (impc:ir:get-ptr-depth t) 0)
        (reduce-ptrdepth-to-zero (impc:ir:pointer-- t))
        t)))


Back to Index