diff --git a/drracket-core-lib/drracket/private/eval-helpers-and-pref-init.rkt b/drracket-core-lib/drracket/private/eval-helpers-and-pref-init.rkt index 4c85f627a..3044b40d6 100644 --- a/drracket-core-lib/drracket/private/eval-helpers-and-pref-init.rkt +++ b/drracket-core-lib/drracket/private/eval-helpers-and-pref-init.rkt @@ -10,9 +10,11 @@ pkg/lib framework/preferences errortrace/stacktrace + errortrace/cms-to-context "drracket-errortrace-key.rkt" (prefix-in *** '#%foreign) ;; just to make sure it is here - "compiled-dir.rkt") + "compiled-dir.rkt" + "stack-checkpoint.rkt") (provide set-basic-parameters/no-gui set-module-language-parameters @@ -165,6 +167,15 @@ (use-compiled-file-paths))]) (orig path mod-name)) (orig path mod-name)))))) + + (errortrace-continuation-mark-set->context + (let ([drracket-errortrace-lib-continuation-mark-set->context + (λ (cms) + (map + errortrace-stack-item->srcloc + (continuation-mark-set->list cms drracket-errortrace-key)))]) + drracket-errortrace-lib-continuation-mark-set->context)) + ;; Install the compilation manager: (current-parallel-lock-shutdown-evt (make-custodian-box (current-custodian) #t)) (parallel-lock-client module-language-parallel-lock-client) diff --git a/drracket-core-lib/drracket/private/eval.rkt b/drracket-core-lib/drracket/private/eval.rkt index 0df57a8e4..e44aa2079 100644 --- a/drracket-core-lib/drracket/private/eval.rkt +++ b/drracket-core-lib/drracket/private/eval.rkt @@ -198,6 +198,7 @@ '(lib "simple-tree-text-markup/data.rkt") ; srclocs-special<%> '(lib "simple-tree-text-markup/port.rkt") + '(lib "errortrace/cms-to-context.rkt") ;; preserve the invariant that: ;; if a module is shared, so ;; are all of its submodules diff --git a/drracket-core-lib/info.rkt b/drracket-core-lib/info.rkt index 6465d5135..01541bc6c 100644 --- a/drracket-core-lib/info.rkt +++ b/drracket-core-lib/info.rkt @@ -11,7 +11,7 @@ ["drracket-plugin-lib" #:version "1.1"] "drracket-tool-lib" "drracket-tool-text-lib" - ["errortrace-lib" #:version "1.5"] + ["errortrace-lib" #:version "1.6"] ["gui-lib" #:version "1.76"] "gui-pkg-manager-lib" ["icons" #:version "1.2"]