From 4eba6b9d4b92b1355c8f368e5c9ced856812719d Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Sat, 26 Oct 2013 17:52:10 -0400 Subject: [PATCH] Clarify the data definitions used by drracket for stacktraces. In particular, it is not the same format as errortrace uses internally. --- pkgs/drracket-pkgs/drracket/drracket/private/debug.rkt | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/pkgs/drracket-pkgs/drracket/drracket/private/debug.rkt b/pkgs/drracket-pkgs/drracket/drracket/private/debug.rkt index 7442bfea0c..85cae8faad 100644 --- a/pkgs/drracket-pkgs/drracket/drracket/private/debug.rkt +++ b/pkgs/drracket-pkgs/drracket/drracket/private/debug.rkt @@ -627,8 +627,12 @@ profile todo: ;; with-mark : mark-stx syntax (any? -> syntax) -> syntax ;; a member of stacktrace-imports^ - ;; guarantees that the continuation marks associated with errortrace-key are - ;; members of the debug-source type, after unwrapped with st-mark-source + ;; This uses the following format for continuation marks: + ;; (cons Dummy srcloc-list) + ;; where Dummy is always ignored. + + ;; Note that this is not necessarily the same format used by `make-st-mark` + ;; which is unspecified. (define (with-mark src-stx expr phase) (let ([source (cond [(path? (syntax-source src-stx)) @@ -874,7 +878,7 @@ profile todo: ;; show-frame : (instanceof editor-canvas%) ;; (instanceof text%) - ;; st-mark? + ;; st-mark // see format description at `with-mark` ;; def ints // definitions and interactions texts ;; -> ;; void