From 3bd9b338b567f33404f6816fbf9b552cffa85009 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Wed, 21 May 2014 19:59:06 -0400 Subject: [PATCH] Fix error messages --- minimart/route.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/minimart/route.rkt b/minimart/route.rkt index 6f3a7cf..e7baeb3 100644 --- a/minimart/route.rkt +++ b/minimart/route.rkt @@ -414,11 +414,11 @@ [(? vector? v) (cons SOV (vector-foldr walk (cons EOS acc) v))] [(? non-object-struct?) (define-values (t skipped?) (struct-info p)) - (when skipped? (error 'pattern->matcher "Cannot reflect on struct instance ~v" p)) + (when skipped? (error 'compile-projection "Cannot reflect on struct instance ~v" p)) (define fs (cdr (vector->list (struct->vector p)))) (cons t (foldr walk (cons EOS acc) fs))] ;; TODO: consider options for treating hash tables as compounds rather than (useless) atoms - [(? hash?) (error 'pattern->matcher "Cannot match on hash tables at present")] + [(? hash?) (error 'compile-projection "Cannot match on hash tables at present")] [other (cons other acc)]))) ;; Matcher × CompiledProjection [× (Value -> (Option Value))] → Matcher