From aef101fd8484a58f18d509d95a4849c99b6e268f Mon Sep 17 00:00:00 2001 From: Stephen Chang Date: Fri, 1 May 2015 16:43:18 -0400 Subject: [PATCH] hashset unavailable method err msg: don't say unimplemented --- racket/collects/racket/private/set-types.rkt | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/racket/collects/racket/private/set-types.rkt b/racket/collects/racket/private/set-types.rkt index 0c8c2ea673..af11b1741e 100644 --- a/racket/collects/racket/private/set-types.rkt +++ b/racket/collects/racket/private/set-types.rkt @@ -459,13 +459,13 @@ (define custom-set-constant (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 (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)))) -(define mk-not-impl/immut (mk-not-impl "immutable set")) -(define mk-not-impl/mut (mk-not-impl "mutable set")) +(define mk-not-impl/immut (mk-not-impl "mutation" "immutable set")) +(define mk-not-impl/mut (mk-not-impl "non-mutation" "mutable set")) (serializable-struct immutable-custom-set custom-set [] #:methods gen:stream