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

more fixes for recent datastructure change

Browse Source 
(I should really use TR here...)
This commit is contained in:
Robby Findler 2013-04-26 19:43:43 -05:00
parent 2e195935cf
commit ab7e2afae4
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2038,7 +2038,8 @@
(send dirty/pending-tab set-oc-status
(clean 'exn
(list (vector sc-only-raw-text-files-supported
(list (vector (+ filename/loc 1) 1))))))
(list (vector (+ filename/loc 1) 1))
'()))))
(oc-maybe-start-something)])))
(define/oc-log (oc-finished res)
@ -2066,7 +2067,7 @@
(send running-tab set-oc-status
(clean (vector-ref res 0)
(if (eq? (vector-ref res 0) 'abnormal-termination)
sc-abnormal-termination
(list (vector sc-abnormal-termination '() '()))
(vector-ref res 1))))
(send running-tab set-dep-paths (list->set (vector-ref res 2)) #t)])
(oc-maybe-start-something)))