[plt-scheme] sandbox + scheme/control

From: Tom Schouten (tom at zwizwa.be)
Date: Wed Jun 4 11:02:15 EDT 2008

hello,

is there a way to make (prompt (e '(abort 123))) work as expected
using a scheme/sandbox evaluator? the abort thunk seems to be passed
as an exception.. bug or feature?

cheers,
tom

;; MzScheme v3.99.0.23 [3m] 
#lang scheme/base

(require scheme/control
         scheme/sandbox)

(define e (make-evaluator 'scheme/base))
(e '(require scheme/control))

(prompt (abort 123))       ;; => 123
(prompt (e '(abort 123)))  ;; raises exception

(with-handlers 
    ((void (lambda (thunk) (thunk))))
  (e '(abort 123)))        ;; => 123





Posted on the users mailing list.