Changeset 4187

Timestamp:

10/04/03 01:47:24 (20 years ago)

Author:

piso

Message:

isValidCatchTag()

File:

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

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

@@ -3 +3 @@
  *
  * Copyright (C) 2003 Peter Graves
- * $Id: LispThread.java,v 1.17 2003-10-04 01:17:51 piso Exp $
+ * $Id: LispThread.java,v 1.18 2003-10-04 01:47:24 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -183 +183 @@
     public boolean isValidCatchTag(LispObject tag)
     {
-        for (int i = stack.size(); i-- > 0;) {
-            if (stack.get(i) == tag)
+        for (int i = catchTags.size(); i-- > 0;) {
+            if (catchTags.get(i) == tag)
                 return true;
         }