33 lines
1.1 KiB
Racket
33 lines
1.1 KiB
Racket
#lang racket/base
|
|
(require scribble/eval
|
|
scriblib/gui-eval)
|
|
|
|
(provide (rename-out [gui-interaction mr-interaction]
|
|
[gui-interaction-eval mr-interaction-eval]
|
|
[gui-racketmod+eval mr-racketmod+eval]
|
|
[gui-racketblock+eval mr-racketblock+eval]
|
|
[gui-def+int mr-def+int]
|
|
[gui-defs+int mr-defs+int]
|
|
[gui-interaction-eval-show mr-interaction-eval-show]))
|
|
|
|
(define ss-eval (make-base-eval))
|
|
(void (interaction-eval #:eval ss-eval (require pict)))
|
|
|
|
(define-syntax-rule (ss-interaction e ...)
|
|
(interaction #:eval ss-eval e ...))
|
|
(define-syntax-rule (ss-interaction-eval e ...)
|
|
(interaction-eval #:eval ss-eval e ...))
|
|
(define-syntax-rule (ss-racketmod+eval e ...)
|
|
(racketmod+eval #:eval ss-eval e ...))
|
|
(define-syntax-rule (ss-racketblock+eval e ...)
|
|
(racketblock+eval #:eval ss-eval e ...))
|
|
(define-syntax-rule (ss-def+int e ...)
|
|
(def+int #:eval ss-eval e ...))
|
|
|
|
(provide ss-interaction
|
|
ss-interaction-eval
|
|
ss-racketmod+eval
|
|
ss-racketblock+eval
|
|
ss-def+int)
|
|
|