I have the following file:
#lang racket
(provide (all-defined-out))
(struct exn:fail:bmtc exn:fail ()
#:extra-constructor-name make-exn:fail:bmtc
#:transparent)
;; I expect this to take all the arguments from exn (its ultimate
superclass), plus a new argument which comes last.
(struct exn:fail:bmtc:unknown-user exn:fail:bmtc (username)
#:extra-constructor-name make-exn:fail:bmtc:unknown-user
#:transparent)
At the command line:
$ racket
-> (require "network/exceptions")
-> exn:fail:bmtc:unknown-user
#<procedure:exn:fail:bmtc:unknown-user>
-> (exn:fail:bmtc:unknown-user "message" (current-continuation-marks) "bob")
; exn:fail:bmtc:unknown-user: arity mismatch;
; the expected number of arguments does not match the given number
; expected: 2
; given: 3
; [,bt for context]
-> (exn:fail:bmtc:unknown-user "msg" (current-continuation-marks))
(exn:fail:bmtc:unknown-user "msg" #<continuation-mark-set>)
Given the declaration of exn:fail:bmtc:unknown-user I was expecting it to
take a third argument. What am I missing?
Note that I'm using Emacs and the command line, not DrRacket.
--
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 [email protected].
For more options, visit https://groups.google.com/d/optout.
