From ab7e2afae4a8d19378ad04cc3f6c82914e1b1c33 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Fri, 26 Apr 2013 19:43:43 -0500 Subject: [PATCH] more fixes for recent datastructure change (I should really use TR here...) --- collects/drracket/private/module-language.rkt | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/collects/drracket/private/module-language.rkt b/collects/drracket/private/module-language.rkt index 8277fb8463..bdd72a9a2a 100644 --- a/collects/drracket/private/module-language.rkt +++ b/collects/drracket/private/module-language.rkt @@ -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)))