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


On Sat, Sep 19, 2020 at 5:31 PM Kevin Forchione <lyss...@gmail.com> wrote:

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

-- 
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/CAL3TdOOOO%2BE3s7MSVSPzD1ZxT-LsHZcLpuycVe3ztch0MAgF6g%40mail.gmail.com.

Reply via email to