Changeset 4018

Timestamp:

09/23/03 14:55:45 (20 years ago)

Author:

piso

Message:

Work in progress.

File:

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

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

@@ -3 +3 @@
  *
  * Copyright (C) 2003 Peter Graves
- * $Id: Do.java,v 1.1 2003-09-23 12:57:30 piso Exp $
+ * $Id: Do.java,v 1.2 2003-09-23 14:55:45 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -82 +82 @@
         // Look for tags.
         Binding tags = null;
-        LispObject remaining = args;
+        LispObject remaining = body;
         while (remaining != NIL) {
             LispObject current = remaining.car();