Changeset 4510


Ignore:
Timestamp:
10/23/03 12:53:59 (18 years ago)
Author:
piso
Message:

Constructor: set offset = start to begin with.

File:
1 edited

Legend:

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

    r4096 r4510  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: StringInputStream.java,v 1.3 2003-09-28 14:16:05 piso Exp $
     5 * $Id: StringInputStream.java,v 1.4 2003-10-23 12:53:59 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    4343        this.start = start;
    4444        this.end = end;
     45        offset = start;
    4546    }
    4647
     
    7273    // ### make-string-input-stream
    7374    // make-string-input-stream string &optional start end => string-stream
    74     private static final Primitive MAKE_STRING_OUTPUT_STREAM =
    75         new Primitive("make-string-input-stream") {
     75    private static final Primitive MAKE_STRING_INPUT_STREAM =
     76        new Primitive("make-string-input-stream")
     77    {
    7678        public LispObject execute(LispObject arg) throws ConditionThrowable
    7779        {
Note: See TracChangeset for help on using the changeset viewer.