From 096b38ed336d84cb0ebfc80a0d06e22064ea337e Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sat, 8 Apr 2006 17:14:54 +0000 Subject: [PATCH] fixed a bug in the way snip->value handlers supplied by tools were handled. svn: r2643 --- collects/drscheme/private/language.ss | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/collects/drscheme/private/language.ss b/collects/drscheme/private/language.ss index 308bf4cecd..db9e58d858 100644 --- a/collects/drscheme/private/language.ss +++ b/collects/drscheme/private/language.ss @@ -403,7 +403,8 @@ ;; leave-snips-alone-hook : any? (any? -> printable) any? -> printable (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 (sh expr basic-convert sub-convert))) @@ -1011,7 +1012,7 @@ (define (value->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)) (define (to-snip-value? v) (ormap (λ (to-snip) ((to-snip-predicate? to-snip) v)) to-snips))