Changeset 10134


Ignore:
Timestamp:
10/17/05 16:40:38 (16 years ago)
Author:
piso
Message:

READ

File:
1 edited

Legend:

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

    r10133 r10134  
    33 *
    44 * Copyright (C) 2002-2005 Peter Graves
    5  * $Id: Primitives.java,v 1.833 2005-10-17 16:30:34 piso Exp $
     5 * $Id: Primitives.java,v 1.834 2005-10-17 16:40:38 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    41094109        {
    41104110            final LispThread thread = LispThread.currentThread();
     4111            final LispObject obj = _STANDARD_INPUT_.symbolValue(thread);
    41114112            final Stream stream;
    41124113            try {
    4113                 stream = (Stream) _STANDARD_INPUT_.symbolValue(thread);
    4114             }
    4115             catch (ClassCastException e) {
    4116                 return signalTypeError(_STANDARD_INPUT_.symbolValue(thread),
    4117                                        Symbol.STREAM);
     4114                stream = (Stream) obj;
     4115            }
     4116            catch (ClassCastException e) {
     4117                return signalTypeError(obj, Symbol.STREAM);
    41184118            }
    41194119            return stream.read(true, NIL, false, thread);
Note: See TracChangeset for help on using the changeset viewer.