File: dynamic.rkt

package info (click to toggle)
racket 6.1-4
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 91,944 kB
  • ctags: 38,251
  • sloc: ansic: 265,507; sh: 32,501; asm: 12,747; lisp: 6,958; cpp: 2,906; makefile: 2,284; pascal: 2,134; exp: 484; python: 366; xml: 11
file content (13 lines) | stat: -rw-r--r-- 431 bytes parent folder | download | duplicates (11) 
1
2
3
4
5
6
7
8
9
10
11
12
13
 
#lang racket/base
(require (only-in racket/gui/dynamic
                  gui-available?))

(provide gui-available?
         gui-dynamic-require)

(define (gui-dynamic-require sym)
  (parameterize ([current-namespace (variable-reference->empty-namespace
                                     (#%variable-reference))])
    (if (gui-available?)
        (dynamic-require 'mred sym)
        (error "scheme/gui/base is not available"))))