[Geiser-users] [bug #32844] Racket GUI broken when used from geiser REPL

[Caleb Reach]

URL:
  <http://savannah.nongnu.org/bugs/?32844>

                 Summary: Racket GUI broken when used from geiser REPL
                 Project: Geiser
            Submitted by: jtxx000
            Submitted on: Fri 18 Mar 2011 09:39:24 PM GMT
                Category: Racket
                Severity: 3 - Normal
                  Status: None
                 Privacy: Public
             Assigned to: None
             Open/Closed: Open
         Discussion Lock: Any

    _______________________________________________________

Details:

Using ((current-get-interaction-input-port)) rather than
(current-input-port) in geiser-read makes everything work as expected:


    --- a/scheme/racket/geiser/user.rkt
    +++ b/scheme/racket/geiser/user.rkt
    @@ -64,7 +64,7 @@
     (define ((geiser-read prompt))
       (prompt)
       (flush-output)
    -  (let* ([in (current-input-port)]
    +  (let* ([in ((current-get-interaction-input-port))]
             [form ((current-read-interaction) (object-name in) in)])
         (syntax-case form ()
           [(uq cmd) (eq? 'unquote (syntax-e #'uq))





    _______________________________________________________

Reply to this item at:

  <http://savannah.nongnu.org/bugs/?32844>

_______________________________________________
  Message sent via/by Savannah
  http://savannah.nongnu.org/