[plt-scheme] escape continuations and mred callback

From: pedro pinto (pedro.e.pinto at gmail.com)
Date: Fri Oct 6 19:19:12 EDT 2006

Hi there,

Shouldn't this:

  (require (lib "class.ss")
           (lib "mred.ss" "mred"))

  (define (go)
    (let/ec return
      (let ((f (new dialog% (label "Hello"))))
        (new button% (parent f)
             (label "Me, Me!")
           (callback (lambda _
                       (send f show #f)
                       (return "Escaping"))))
        (send f show #t)
        "Did not Escape")))


Evaluate to "Escaping" when the user clicks the "Me,Me!" button?
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.racket-lang.org/users/archive/attachments/20061006/61c7a696/attachment.html>

Posted on the users mailing list.