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

missed a spot for the vector => exn-info change

Browse Source 
also update the commented type spec

this fixes a bug in commit 3474d091
This commit is contained in:
Robby Findler 2013-05-26 08:12:04 -05:00
parent 6e7c6f2f45
commit e94f443def
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -37,8 +37,10 @@
;; oc-state is either: ;; oc-state is either:
;; (clean (or/c symbol? #f) ;; (clean (or/c symbol? #f)
;; (or/c (non-empty-listof ;; (or/c (non-empty-listof
;; (vector/c string? ;; (exn-info string?
;; (listof (vector number? number?)))) ;; (listof (vector number? number?))
;; (listof string?)
;; (or/c #f module-path?)))
;; #f)) ;; #f))
;; (dirty boolean?) ;; (dirty boolean?)
;; (running symbol? string?) ;; (running symbol? string?)
@ -1146,7 +1148,7 @@
(define error/status-message-hidden? #t) (define error/status-message-hidden? #t)
; a list of triples (in a vector of size 3) of strings, srclocs, and stackframes (as strings) ; 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 ; 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) (define error/status-index 0)
; if the string should be red/italic or just normal font ; if the string should be red/italic or just normal font