[racket users] raise-user-error question

[Kevin Forchione]

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

[Robby Findler]

That's some internal error "uh oh, something's wrong ... print out some hints to help people debug!" message.

It looks like that's been fixed since, however as I don't see it in git build.

Robby

--
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...@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.