sys:load-escape   scheme


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

Implementation

(define sys:load-escape
  (lambda (msg)
    (let ((k (car *sys:load-escape-stack*)))
      (if (not (equal? *sys:toplevel-continuation* k))
          (set! *sys:load-escape-stack* (cdr *sys:load-escape-stack*)))
      (k msg))))


Back to Index