From 92f6a21022d0642c7bf0cc4d36c00890132ed1e3 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Fri, 4 Aug 2000 23:02:37 +0000
Subject: [PATCH] ...

original commit: fefba1f8d9a0a3204d8aceb3a845eb27439406ec
---
 collects/framework/scheme.ss | 24 +++++++++---------------
 1 file changed, 9 insertions(+), 15 deletions(-)

diff --git a/collects/framework/scheme.ss b/collects/framework/scheme.ss
index 100e1427..b6ca39e5 100644
--- a/collects/framework/scheme.ss
+++ b/collects/framework/scheme.ss
@@ -117,24 +117,18 @@
 		  (if f
 		      (cond
                        [(= (position-line f) line)
-                        (let ([f-1 (- f 1)])
+                        (let ([f-1 (- f 2)]) ;; -1 to go back one, -1 to be before char
                           (cond
-                            [(= f 0) 
-                             (prinf "1~n")
-                             #t]
-                            [(and (= (position-line f-1) line)
-                                  (not (char=? (get-character f-1) #\\ )))
-                             (prinf "2~n")
-                             #t]
-                            [else 
-                             (prinf "3~n")
-                             (loop (find-string comment-start 'backward f-1))]))]
+			   [(= f 0)
+			    #t]
+			   [(and (= (position-line f-1) line)
+				 (not (char=? (get-character f-1) #\\ )))
+			    #t]
+			   [else 
+			    (loop (find-string comment-start 'backward f-1))]))]
                        [else 
-                        (prinf "4~n")
                         #f])
-                      (begin
-                        (printf "5~n")
-                        #f))))
+                      #f)))
 	      (scheme-paren:get-comments))))])
       (private
 	[remove-indents-callback