From a21ba1745096229c01b65f08995bad4738e94d6c Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Fri, 16 Dec 2016 10:50:37 -0800 Subject: [PATCH] improve error message --- sugar/list.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/sugar/list.rkt b/sugar/list.rkt index 100980a..7cfc71e 100644 --- a/sugar/list.rkt +++ b/sugar/list.rkt @@ -171,7 +171,7 @@ (modulo (abs how-far) (length xs)) (abs how-far))) (cond - [(> abs-how-far (length xs)) (error caller "index is too large for list\nindex: ~a\nlist: ~v" how-far xs)] + [(> abs-how-far (length xs)) (error caller "index ~a is too large for list of length ~a" (* (if (eq? caller 'shift-left) -1 1) how-far) (length xs))] [(= how-far 0) xs] [(positive? how-far) (define-values (head tail) (split-at-right xs abs-how-far))