From 205dac32db342c0168276075185fd38f8bf0ee8c Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Wed, 6 Aug 2014 20:55:27 -0700 Subject: [PATCH] Remove vile opaque-value-unwrapper since we're no longer using TR --- support/gui.rkt | 17 +++-------------- 1 file changed, 3 insertions(+), 14 deletions(-) diff --git a/support/gui.rkt b/support/gui.rkt index cb340f7..f407c47 100644 --- a/support/gui.rkt +++ b/support/gui.rkt @@ -55,20 +55,9 @@ [name name] [from-vm to-debugger] [to-vm from-debugger])) - (wrap/unwrapper - (lambda (v) - (channel-put to-debugger v) - (channel-get from-debugger)))) - -;; This is utterly vile. -(define (wrap/unwrapper thunk) - (local-require racket/unsafe/ops) - (lambda (wrapped-val) - ;; (pretty-print `(wrapped-val ,wrapped-val)) - (define inner (unsafe-struct-ref wrapped-val 0)) - ;; (pretty-print `(inner ,inner)) - (unsafe-struct-set! wrapped-val 0 (thunk inner)) - wrapped-val)) + (lambda (v) + (channel-put to-debugger v) + (channel-get from-debugger))) (define sane-tab-panel% (class tab-panel%