icr:destroy-zone   scheme


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

Implementation

(define icr:destroy-zone
  (lambda (zone)
    (if (equal? *impc:zone* zone)
        (set! *impc:zone* (sys:default-mzone)))
    (if (equal? zone (sys:default-mzone))
        (log-info "You are not allowed to destroy the default zone")
        (sys:destrop-mzone zone))))


Back to Index