Hi guys.
Using Racket 7.8 [cs[, If I create a module called error.rkt with the following
code
#lang racket
(provide foo)
(define foo (λ () (raise-user-error "foo")))
And then a module called error-test.rket with the following code
#lang racket
(require "error.rkt")
(foo)
And execute error-r-test.rkt I get the following
Welcome to DrRacket, version 7.8 [cs].
Language: racket, with debugging; memory limit: 1024 MB.
-- #(struct:exn:fail:contract "vector-ref: contract violation\n expected:
vector?\n given: '((raise-user-error \"foo\")
#<path:/Users/lysseus/Library/Mobile
Documents/com~apple~CloudDocs/Racket/utils/conspiracy/error.rkt> 4 18 47 24)"
#<continuation-mark-set>)
("condition->exn" . #f)
("do-raise" . #f)
("dynamic-wind" . #f)
("errortrace-stack-item->srcloc" . #(struct:srcloc
#<path:.../private/stack-checkpoint.rkt> 168 0 6297 203))
("pick-first-defs" . #(struct:srcloc #<path:.../private/stack-checkpoint.rkt>
331 0 13000 425))
("get-exn-source-locs" . #(struct:srcloc
#<path:.../private/stack-checkpoint.rkt> 585 0 23184 391))
(#f . #(struct:srcloc #<path:.../private/arrow-val-first.rkt> 486 18 20735
32))
("error-display-handler/stacktrace" . #(struct:srcloc
#<path:.../private/debug.rkt> 362 2 15076 2612))
("debug-error-display-handler" . #(struct:srcloc
#<path:.../private/debug.rkt> 341 4 14358 566))
("default-uncaught-exception-handler" . #f)
("loop" . #f)
("call-in-empty-metacontinuation-frame" . #f)
("call-with-values" . #f)
("call-in-empty-metacontinuation-frame" . #f)
(|body of "/Users/lysseus/Library/Mobile
Documents/com~apple~CloudDocs/Racket/utils/conspiracy/error-test.rkt"| . #f)
("temp35_0" . #f)
("run-module-instance!" . #f)
("perform-require!" . #f)
(#f . #(struct:srcloc #<path:.../private/stack-checkpoint.rkt> 115 30 4709
11))
("call-with-stack-checkpoint" . #(struct:srcloc
#<path:.../private/stack-checkpoint.rkt> 82 0 3329 442))
("call-in-empty-metacontinuation-frame" . #f)
("*init" . #(struct:srcloc #<path:.../private/module-language.rkt> 463 8
22165 762))
("call-with-break-parameterization" . #(struct:srcloc
#<path:.../private/more-scheme.rkt> 148 2 4909 517))
("call-in-empty-metacontinuation-frame" . #f)
(#f . #(struct:srcloc #<path:.../private/rep.rkt> 1180 9 49153 5062))
(#f . #(struct:srcloc #<path:.../private/rep.rkt> 1493 15 64385 1548))
(#f . #(struct:srcloc #<path:.../common/queue.rkt> 435 6 19067 1056))
("call-in-empty-metacontinuation-frame" . #f)
("call-in-empty-metacontinuation-frame" . #f)
(#f . #(struct:srcloc #<path:.../common/queue.rkt> 486 32 21054 120))
("call-with-break-parameterization" . #(struct:srcloc
#<path:.../private/more-scheme.rkt> 148 2 4909 517))
("call-in-empty-metacontinuation-frame" . #f)
("eventspace-handler-thread-proc" . #(struct:srcloc
#<path:.../common/queue.rkt> 370 11 16515 690))
("call-in-empty-metacontinuation-frame" . #f)
("call-with-empty-metacontinuation-frame-for-swap" . #f)
exception raised by error display handler: vector-ref: contract violation
expected: vector?
given: '((raise-user-error "foo") #<path:/Users/lysseus/Library/Mobile
Documents/com~apple~CloudDocs/Racket/utils/conspiracy/error.rkt> 4 18 47 24);
original exception raised: foo
context...:
loop
dynamic-wind
.../private/stack-checkpoint.rkt:168:0: errortrace-stack-item->srcloc
.../private/stack-checkpoint.rkt:331:0: pick-first-defs
.../private/stack-checkpoint.rkt:585:0: get-exn-source-locs
.../private/arrow-val-first.rkt:486:18
.../private/debug.rkt:362:2: error-display-handler/stacktrace
.../private/debug.rkt:341:4: debug-error-display-handler
default-uncaught-exception-handler
loop
call-in-empty-metacontinuation-frame
call-with-values
call-in-empty-metacontinuation-frame
body of "/Users/lysseus/Library/Mobile
Documents/com~apple~CloudDocs/Racket/utils/conspiracy/error-test.rkt"
temp35_0
run-module-instance!
>
Is this what I should expect?
Kevin
--
You received this message because you are subscribed to the Google Groups
"Racket Users" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to racket-users+unsubscr...@googlegroups.com.
To view this discussion on the web visit
https://groups.google.com/d/msgid/racket-users/F848340C-7BBC-4C13-A94F-723AB4B941DA%40gmail.com.
