Changeset 4058

Timestamp:

09/25/03 18:20:25 (20 years ago)

Author:

piso

Message:

VECTOR-SUBSEQ: present a more informative error message if start > end.

File:

• trunk/j/src/org/armedbear/lisp/Primitives.java (modified) (2 diffs)

trunk/j/src/org/armedbear/lisp/Primitives.java

@@ -3 +3 @@
  *
  * Copyright (C) 2002-2003 Peter Graves
- * $Id: Primitives.java,v 1.438 2003-09-25 16:33:18 piso Exp $
+ * $Id: Primitives.java,v 1.439 2003-09-25 18:20:25 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -3955 +3955 @@
             int start = Fixnum.getValue(second);
             int end = third != NIL ? Fixnum.getValue(third) : v.length();
-            if (start > end)
-                throw new ConditionThrowable(new TypeError("start is greater than end"));
+            if (start > end) {
+                StringBuffer sb = new StringBuffer("start (");
+                sb.append(start);
+                sb.append(") is greater than end (");
+                sb.append(end);
+                sb.append(')');
+                throw new ConditionThrowable(new TypeError(sb.toString()));
+            }
             return v.subseq(start, end);
         }