suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

hashset unavailable method err msg: don't say unimplemented

Browse Source
This commit is contained in:
Stephen Chang 2015-05-01 16:43:18 -04:00
parent 606a946212
commit aef101fd84
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
racket/collects/racket/private/set-types.rkt
View File

@ -459,13 +459,13 @@
(define custom-set-constant (define custom-set-constant
(equal-hash-code "hash code for a set based on a hash table")) (equal-hash-code "hash code for a set based on a hash table"))
(define (((mk-not-impl struct-descrip) method-name) s . args) (define (((mk-not-impl meth-descrip struct-descrip) method-name) s . args)
(raise (raise
(exn:fail:support (exn:fail:support
(format "~a: method not implemented for ~a ~e" method-name struct-descrip s) (format "~a: ~a operation not available for ~a: ~e" method-name meth-descrip struct-descrip s)
(current-continuation-marks)))) (current-continuation-marks))))
(define mk-not-impl/immut (mk-not-impl "immutable set")) (define mk-not-impl/immut (mk-not-impl "mutation" "immutable set"))
(define mk-not-impl/mut (mk-not-impl "mutable set")) (define mk-not-impl/mut (mk-not-impl "non-mutation" "mutable set"))
(serializable-struct immutable-custom-set custom-set [] (serializable-struct immutable-custom-set custom-set []
#:methods gen:stream #:methods gen:stream