Changeset 5848


Ignore:
Timestamp:
02/16/04 01:26:42 (18 years ago)
Author:
piso
Message:

Support initial contents.

File:
1 edited

Legend:

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

    r5845 r5848  
    33 *
    44 * Copyright (C) 2004 Peter Graves
    5  * $Id: adjust_array.java,v 1.2 2004-02-16 00:47:13 piso Exp $
     5 * $Id: adjust_array.java,v 1.3 2004-02-16 01:26:42 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    6262                newSize = dimensions;
    6363            if (newSize != null)
    64                 return v.adjustArray(Fixnum.getValue(newSize), initialElement);
     64                return v.adjustArray(Fixnum.getValue(newSize), initialElement,
     65                                     initialContents);
    6566        }
    6667        if (array instanceof LispString) {
     
    7374                newSize = dimensions;
    7475            if (newSize != null)
    75                 return s.adjustArray(Fixnum.getValue(newSize), initialElement);
     76                return s.adjustArray(Fixnum.getValue(newSize), initialElement,
     77                                     initialContents);
    7678        }
    7779        return signal(new LispError("ADJUST-ARRAY: unsupported case."));
Note: See TracChangeset for help on using the changeset viewer.