diff --git a/collects/drscheme/syncheck.ss b/collects/drscheme/syncheck.ss index 6b0488ffd0..7ae5fcd5d8 100644 --- a/collects/drscheme/syncheck.ss +++ b/collects/drscheme/syncheck.ss @@ -1150,9 +1150,7 @@ If the namespace does not, they are colored the unbound color. (send (send the-tab get-defs) syncheck:init-arrows) (drscheme:eval:expand-program - (drscheme:language:make-text/pos definitions-text - (get-post-hash-bang-start definitions-text) - (send definitions-text last-position)) + (drscheme:language:make-text/pos definitions-text 0 (send definitions-text last-position)) (send definitions-text get-next-settings) #t init-proc @@ -1190,19 +1188,6 @@ If the namespace does not, they are colored the unbound color. (update-status-line 'drscheme:check-syntax status-expanding-expression) (loop)]))))))))))])) - (define/private (get-post-hash-bang-start definitions-text) - (cond - [(< (send definitions-text last-position) 2) - 0] - [(equal? '(#\# #\!) - (list (send definitions-text get-character 0) - (send definitions-text get-character 1))) - (let ([last-para (send definitions-text last-paragraph)]) - (if (zero? last-para) - (send definitions-text last-position) - (send definitions-text paragraph-start-position 1)))] - [else 0])) - ;; set-directory : text -> void ;; sets the current-directory and current-load-relative-directory ;; based on the file saved in the definitions-text