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

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

@ -1901,6 +1901,7 @@
(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))
(when dirty/pending-tab
(define-values (editor-contents filename/loc) (send (send dirty/pending-tab get-defs) fetch-data-to-send)) (define-values (editor-contents filename/loc) (send (send dirty/pending-tab get-defs) fetch-data-to-send))
(cond (cond
[editor-contents [editor-contents
@ -1922,7 +1923,7 @@
(clean 'exn (clean 'exn
sc-only-raw-text-files-supported sc-only-raw-text-files-supported
(list (vector (+ filename/loc 1) 1)))) (list (vector (+ filename/loc 1) 1))))
(oc-maybe-start-something)])) (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))