From 5b54caebb066920e2585244a5ee444a3f121c966 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Mon, 13 Sep 2010 16:40:21 -0500 Subject: [PATCH] closes PR 11207 --- collects/framework/private/scheme.rkt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/collects/framework/private/scheme.rkt b/collects/framework/private/scheme.rkt index 07e72d9232..5d46dc6589 100644 --- a/collects/framework/private/scheme.rkt +++ b/collects/framework/private/scheme.rkt @@ -204,7 +204,8 @@ (let ([up-sexp (send text find-up-sexp click-pos)]) (when up-sexp (let ([fwd (send text get-forward-sexp up-sexp)]) - (make-collapse-item text up-sexp fwd menu))))])))) + (when fwd + (make-collapse-item text up-sexp fwd menu)))))])))) ;; make-expand-item : (instanceof text%) (instanceof sexp-snip<%>) (instanceof menu%) -> void (define (make-expand-item text snip menu)