(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))))