Changeset 3773


Ignore:
Timestamp:
09/14/03 17:03:42 (19 years ago)
Author:
piso
Message:

setInitialContents()

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/Array.java

    r3538 r3773  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: Array.java,v 1.7 2003-08-27 17:28:25 piso Exp $
     5 * $Id: Array.java,v 1.8 2003-09-14 17:03:42 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    7272
    7373    private int setInitialContents(int axis, int[] dims, LispObject contents,
    74         int index) throws LispError
     74                                   int index)
     75        throws LispError
    7576    {
    7677        if (dims.length == 0) {
     
    8384            ++index;
    8485        } else {
    85             if ((contents.getType() & TYPE_SEQUENCE) == 0)
    86                 throw new TypeError(contents, "sequence");
    8786            int dim = dims[0];
    8887            if (dim != contents.length())
Note: See TracChangeset for help on using the changeset viewer.