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