From 40fc9197655b2e62cb10efa34f7ed17e75719dfd Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Wed, 21 May 2008 14:08:42 +0000 Subject: [PATCH] fixed a bug in word completion svn: r9921 --- collects/framework/private/scheme.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/framework/private/scheme.ss b/collects/framework/private/scheme.ss index 81ecc3a392..45c5714295 100644 --- a/collects/framework/private/scheme.ss +++ b/collects/framework/private/scheme.ss @@ -441,10 +441,10 @@ [(or (is-stopped?) (is-frozen?)) no-word] [else - (let ([type (classify-position current-pos)]) + (let ([type (classify-position (max 0 (- current-pos 1)))]) (cond [(eq? 'symbol type) - (get-text (look-for-non-symbol current-pos) + (get-text (look-for-non-symbol (max 0 (- current-pos 1))) current-pos)] [else no-word]))])))