suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fixed PR 9257

Browse Source 
svn: r9080
This commit is contained in:
Robby Findler 2008-03-25 01:37:22 +00:00
parent 419152e81e
commit 067f39713b
1 changed files with 1 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
collects/drscheme/syncheck.ss
View File

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