suzanne.soy/scribble-enhanced
1
0
Fork 0
Code Issues 1 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

Add comment on how to make interactions use syntax values.

Browse Source 
Also add `code:comment' to the keyword list.

original commit: 01089550e2f994bbc8e027478ec41c7985ec2e80
This commit is contained in:
Eli Barzilay 2011-03-11 15:40:13 -05:00
parent 5c33640661
commit 46ffc5cf44
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/scribble/eval.rkt
View File

@ -197,7 +197,7 @@
(define (extract-to-evaluate s) (define (extract-to-evaluate s)
(let loop ([s s][expect #f]) (let loop ([s s][expect #f])
(syntax-case s (code:comment eval:alts eval:check) (syntax-case s (code:line code:comment eval:alts eval:check)
[(code:line v (code:comment . rest)) [(code:line v (code:comment . rest))
(loop (extract s cdr car) expect)] (loop (extract s cdr car) expect)]
[(code:comment . rest) [(code:comment . rest)
@ -393,7 +393,12 @@
[else s])))) [else s]))))
list))) list)))
;; Quote an expression to be evaluated:
(define-syntax-rule (quote-expr e) 'e) (define-syntax-rule (quote-expr e) 'e)
;; This means that sandbox evaluation always works on sexprs, to get
;; it to work on syntaxes, use this definition:
;; (require syntax/strip-context)
;; (define-syntax-rule (quote-expr e) (strip-context (quote-syntax e)))
(define (do-interaction-eval ev e) (define (do-interaction-eval ev e)
(let-values ([(e expect) (extract-to-evaluate e)]) (let-values ([(e expect) (extract-to-evaluate e)])