suzanne.soy/hyper-literate
1
0
Fork 0
Code Issues 4 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

These changes break with bad sandboxes.

Browse Source 
Revert "Fix interface."
Revert "Add more scribble forms that evaluate code and display the results."

This reverts commit a621eaf04151f4bf830bfe3fca5c60c6dd72fcae.
This reverts commit 7e9dbded4c89c5e95945e2f91653fab0b58a0390.

original commit: 8f092e83309b0b376feb1fc1ad13914990137b50
This commit is contained in:
Vincent St-Amour 2011-06-17 15:15:01 -04:00
parent 3dc3b7ee6e
commit 71fd650e3c
2 changed files with 0 additions and 48 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
collects/scribble/eval.rkt
View File

@ -9,11 +9,8 @@
interaction0 interaction0
interaction-eval interaction-eval
interaction-eval-show interaction-eval-show
racketblock+interaction
racketblock+eval (rename-out [racketblock+eval schemeblock+eval]) racketblock+eval (rename-out [racketblock+eval schemeblock+eval])
racketblock0+interaction
racketblock0+eval racketblock0+eval
racketmod+interaction
racketmod+eval (rename-out [racketmod+eval schememod+eval]) racketmod+eval (rename-out [racketmod+eval schememod+eval])
def+int def+int
defs+int defs+int
@ -437,16 +434,6 @@
(syntax-case stx () (syntax-case stx ()
[(H e ...) (syntax/loc stx (-interaction H e ...))])) [(H e ...) (syntax/loc stx (-interaction H e ...))]))
(define-syntax racketblock+interaction
(syntax-rules ()
[(_ #:eval ev e ...)
(let ([eva ev])
(#%expression
(begin (interaction #:eval eva e) ...
(racketblock name e ...))))]
[(_ name e ...)
(racketblock+interaction #:eval (make-base-eval) name e ...)]))
(define-syntax racketblock+eval (define-syntax racketblock+eval
(syntax-rules () (syntax-rules ()
[(_ #:eval ev e ...) [(_ #:eval ev e ...)
@ -457,16 +444,6 @@
[(_ e ...) [(_ e ...)
(racketblock+eval #:eval (make-base-eval) e ...)])) (racketblock+eval #:eval (make-base-eval) e ...)]))
(define-syntax racketblock0+interaction
(syntax-rules ()
[(_ #:eval ev e ...)
(let ([eva ev])
(#%expression
(begin (interaction #:eval eva e) ...
(racketblock0 name e ...))))]
[(_ name e ...)
(racketblock0+interaction #:eval (make-base-eval) name e ...)]))
(define-syntax racketblock0+eval (define-syntax racketblock0+eval
(syntax-rules () (syntax-rules ()
[(_ #:eval ev e ...) [(_ #:eval ev e ...)
@ -476,16 +453,6 @@
[(_ e ...) [(_ e ...)
(racketblock0+eval #:eval (make-base-eval) e ...)])) (racketblock0+eval #:eval (make-base-eval) e ...)]))
(define-syntax racketmod+interaction
(syntax-rules ()
[(_ #:eval ev name e ...)
(let ([eva ev])
(#%expression
(begin (interaction #:eval eva e) ...
(racketmod name e ...))))]
[(_ name e ...)
(racketmod+interaction #:eval (make-base-eval) name e ...)]))
(define-syntax racketmod+eval (define-syntax racketmod+eval
(syntax-rules () (syntax-rules ()
[(_ #:eval ev name e ...) [(_ #:eval ev name e ...)

15
collects/scribblings/scribble/eval.scrbl
View File

@ -84,33 +84,18 @@ Like @racket[interaction-eval], but produces an element representing
the printed form of the evaluation result.} the printed form of the evaluation result.}
@defform*[[(racketblock+interaction datum ...)
(racketblock+interaction #:eval eval-expr datum ...)]]{
Combines @racket[racketblock] and @racket[interaction].}
@defform*[[(racketblock+eval datum ...) @defform*[[(racketblock+eval datum ...)
(racketblock+eval #:eval eval-expr datum ...)]]{ (racketblock+eval #:eval eval-expr datum ...)]]{
Combines @racket[racketblock] and @racket[interaction-eval].} Combines @racket[racketblock] and @racket[interaction-eval].}
@defform*[[(racketblock0+interaction datum ...)
(racketblock0+interaction #:eval eval-expr datum ...)]]{
Combines @racket[racketblock0] and @racket[interaction].}
@defform*[[(racketblock0+eval datum ...) @defform*[[(racketblock0+eval datum ...)
(racketblock0+eval #:eval eval-expr datum ...)]]{ (racketblock0+eval #:eval eval-expr datum ...)]]{
Combines @racket[racketblock0] and @racket[interaction-eval].} Combines @racket[racketblock0] and @racket[interaction-eval].}
@defform*[[(racketmod+interaction name datum ...)
(racketmod+interaction #:eval eval-expr name datum ...)]]{
Combines @racket[racketmod] and @racket[interaction].}
@defform*[[(racketmod+eval name datum ...) @defform*[[(racketmod+eval name datum ...)
(racketmod+eval #:eval eval-expr name datum ...)]]{ (racketmod+eval #:eval eval-expr name datum ...)]]{