From e94f443defb5311feddfd907667daeb4339ef567 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sun, 26 May 2013 08:12:04 -0500 Subject: [PATCH] missed a spot for the vector => exn-info change also update the commented type spec this fixes a bug in commit 3474d091 --- collects/drracket/private/module-language.rkt | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/collects/drracket/private/module-language.rkt b/collects/drracket/private/module-language.rkt index fdb71d9543..607d1788e2 100644 --- a/collects/drracket/private/module-language.rkt +++ b/collects/drracket/private/module-language.rkt @@ -37,8 +37,10 @@ ;; oc-state is either: ;; (clean (or/c symbol? #f) ;; (or/c (non-empty-listof - ;; (vector/c string? - ;; (listof (vector number? number?)))) + ;; (exn-info string? + ;; (listof (vector number? number?)) + ;; (listof string?) + ;; (or/c #f module-path?))) ;; #f)) ;; (dirty boolean?) ;; (running symbol? string?) @@ -1146,7 +1148,7 @@ (define error/status-message-hidden? #t) ; a list of triples (in a vector of size 3) of strings, srclocs, and stackframes (as strings) ; that show up in the bar and control the "jump to error" / next prev buttons - (define error/status-message-strs+srclocs '(#("" () ()))) + (define error/status-message-strs+srclocs (list (exn-info "" '() '() #f))) (define error/status-index 0) ; if the string should be red/italic or just normal font