From 8ceac4294cea76159b8b23f2208d822b21633477 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Tue, 5 Mar 2019 15:40:24 -0800 Subject: [PATCH] improve error msgs --- xenomorph/xenomorph/base.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/xenomorph/xenomorph/base.rkt b/xenomorph/xenomorph/base.rkt index 3743bfd9..0ae6b9eb 100644 --- a/xenomorph/xenomorph/base.rkt +++ b/xenomorph/xenomorph/base.rkt @@ -70,10 +70,10 @@ (super-new) (define/pubment (decode input-port [parent #f]) - (post-decode (inner (error 'decode-not-augmented) decode input-port parent))) + (post-decode (inner (error 'xenomorph (format "decode not augmented in ~a" this)) decode input-port parent))) (define/pubment (encode val output-port [parent #f]) - (match (inner (error 'encode-not-augmented) encode (pre-encode val) output-port parent) + (match (inner (error 'xenomorph (format "encode not augmented in ~a" this)) encode (pre-encode val) output-port parent) [(? bytes? encode-result) (write-bytes encode-result output-port)] [_ (void)]))