Changeset 3773

Timestamp:

09/14/03 17:03:42 (19 years ago)

Author:

piso

Message:

setInitialContents()

File:

• trunk/j/src/org/armedbear/lisp/Array.java (modified) (3 diffs)

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

@@ -3 +3 @@
  *
  * Copyright (C) 2003 Peter Graves
- * $Id: Array.java,v 1.7 2003-08-27 17:28:25 piso Exp $
+ * $Id: Array.java,v 1.8 2003-09-14 17:03:42 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -72 +72 @@
 
     private int setInitialContents(int axis, int[] dims, LispObject contents,
-        int index) throws LispError
+                                   int index)
+        throws LispError
     {
         if (dims.length == 0) {
@@ -83 +84 @@
             ++index;
         } else {
-            if ((contents.getType() & TYPE_SEQUENCE) == 0)
-                throw new TypeError(contents, "sequence");
             int dim = dims[0];
             if (dim != contents.length())