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

fix bug in online check syntax

Browse Source
This commit is contained in:
Robby Findler 2013-04-05 22:17:22 -05:00
parent 9eaf5aaddb
commit 0ea2b61857
1 changed files with 22 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
collects/drracket/private/module-language.rkt
View File

@ -1901,28 +1901,29 @@
(define/oc-log (oc-timer-expired) (define/oc-log (oc-timer-expired)
(define-values (running-tab dirty/pending-tab dirty-tabs clean-tabs) (get-current-oc-state)) (define-values (running-tab dirty/pending-tab dirty-tabs clean-tabs) (get-current-oc-state))
(define-values (editor-contents filename/loc) (send (send dirty/pending-tab get-defs) fetch-data-to-send)) (when dirty/pending-tab
(cond (define-values (editor-contents filename/loc) (send (send dirty/pending-tab get-defs) fetch-data-to-send))
[editor-contents (cond
(line-of-interest) [editor-contents
(when running-tab
(line-of-interest) (line-of-interest)
(stop-place-running) (when running-tab
(send running-tab set-oc-status (dirty #f))) (line-of-interest)
(send dirty/pending-tab set-oc-status (running 'running sc-online-expansion-running)) (stop-place-running)
(define settings (tab-in-module-language dirty/pending-tab)) (send running-tab set-oc-status (dirty #f)))
(send-to-place editor-contents (send dirty/pending-tab set-oc-status (running 'running sc-online-expansion-running))
filename/loc (define settings (tab-in-module-language dirty/pending-tab))
(module-language-settings->prefab-module-settings settings) (send-to-place editor-contents
(λ (res) (oc-finished res)) filename/loc
(λ (a b) (oc-status-message a b)))] (module-language-settings->prefab-module-settings settings)
[else (λ (res) (oc-finished res))
(line-of-interest) (λ (a b) (oc-status-message a b)))]
(send dirty/pending-tab set-oc-status [else
(clean 'exn (line-of-interest)
sc-only-raw-text-files-supported (send dirty/pending-tab set-oc-status
(list (vector (+ filename/loc 1) 1)))) (clean 'exn
(oc-maybe-start-something)])) sc-only-raw-text-files-supported
(list (vector (+ filename/loc 1) 1))))
(oc-maybe-start-something)])))
(define/oc-log (oc-finished res) (define/oc-log (oc-finished res)
(define-values (running-tab dirty/pending-tab dirty-tabs clean-tabs) (get-current-oc-state)) (define-values (running-tab dirty/pending-tab dirty-tabs clean-tabs) (get-current-oc-state))