From d504d6b8dea089e0b222eeb9d2d7aef834a9817a Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Fri, 21 Nov 2008 21:00:30 -0600 Subject: [PATCH] slice-errors now report the parameters to the slicing operation --- basis/debugger/debugger.factor | 5 ++--- core/sequences/sequences.factor | 2 +- 2 files changed, 3 insertions(+), 4 deletions(-) diff --git a/basis/debugger/debugger.factor b/basis/debugger/debugger.factor index ec93a01c19..0e7a56ee5f 100644 --- a/basis/debugger/debugger.factor +++ b/basis/debugger/debugger.factor @@ -206,9 +206,8 @@ M: no-cond summary M: no-case summary drop "Fall-through in case" ; -M: slice-error error. - "Cannot create slice because " write - reason>> print ; +M: slice-error summary + drop "Cannot create slice" ; M: bounds-error summary drop "Sequence index out of bounds" ; diff --git a/core/sequences/sequences.factor b/core/sequences/sequences.factor index 0fe47f0099..9afc7c6168 100644 --- a/core/sequences/sequences.factor +++ b/core/sequences/sequences.factor @@ -190,7 +190,7 @@ TUPLE: slice : collapse-slice ( m n slice -- m' n' seq ) [ from>> ] [ seq>> ] bi >r tuck + >r + r> r> ; inline -ERROR: slice-error reason ; +ERROR: slice-error from to seq reason ; : check-slice ( from to seq -- from to seq ) pick 0 < [ "start < 0" slice-error ] when