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

fixed a bug in the way snip->value handlers supplied by tools were handled.

Browse Source 
svn: r2643
This commit is contained in:
Robby Findler 2006-04-08 17:14:54 +00:00
parent 760a22de57
commit 096b38ed33
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/drscheme/private/language.ss
View File

@ -403,7 +403,8 @@
;; leave-snips-alone-hook : any? (any? -> printable) any? -> printable ;; leave-snips-alone-hook : any? (any? -> printable) any? -> printable
(define ((leave-snips-alone-hook sh) expr basic-convert sub-convert) (define ((leave-snips-alone-hook sh) expr basic-convert sub-convert)
(if (is-a? expr snip%) (if (or (is-a? expr snip%)
(to-snip-value? expr))
expr expr
(sh expr basic-convert sub-convert))) (sh expr basic-convert sub-convert)))
@ -1011,7 +1012,7 @@
(define (value->snip v) (define (value->snip v)
(ormap (λ (to-snip) (and ((to-snip-predicate? to-snip) v) (ormap (λ (to-snip) (and ((to-snip-predicate? to-snip) v)
((to-snip->value to-snip) v))) ((to-snip->value to-snip) v)))
to-snips)) to-snips))
(define (to-snip-value? v) (define (to-snip-value? v)
(ormap (λ (to-snip) ((to-snip-predicate? to-snip) v)) to-snips)) (ormap (λ (to-snip) ((to-snip-predicate? to-snip) v)) to-snips))