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

svn: r2643
This commit is contained in:
Robby Findler 2006-04-08 17:14:54 +00:00
parent 760a22de57
commit 096b38ed33

View File

@ -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)))