Changeset 8095


Ignore:
Timestamp:
11/04/04 11:02:04 (17 years ago)
Author:
piso
Message:

funcall0(f, LispThread?.currentThread()) => LispThread?.currentThread().execute(f)

File:
1 edited

Legend:

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

    r8084 r8095  
    11/*
    2  * StringInputStream.java
     2 * SlimeInputStream.java
    33 *
    4  * Copyright (C) 2004 Peter Graves
    5  * $Id: SlimeInputStream.java,v 1.3 2004-11-03 15:27:23 piso Exp $
     4 * Copyright (C) 2004 András Simon, Peter Graves
     5 * $Id: SlimeInputStream.java,v 1.4 2004-11-04 11:02:04 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    7979            try {
    8080                ostream.finishOutput();
    81                 s = funcall0(f, LispThread.currentThread()).getStringValue();
     81                s = LispThread.currentThread().execute(f).getStringValue();
    8282            }
    8383            catch (Throwable t) {
     
    9292        ++offset;
    9393        if (n == '\n')
    94             ++lineNumber; 
     94            ++lineNumber;
    9595        return n;
    9696    }
     
    129129    // make-slime-input-stream function output-stream => slime-input-stream
    130130    private static final Primitive MAKE_SLIME_INPUT_STREAM =
    131         new Primitive("make-slime-input-stream", PACKAGE_EXT, true, "function output-stream")
     131        new Primitive("make-slime-input-stream", PACKAGE_EXT, true,
     132                      "function output-stream")
    132133    {
    133         public LispObject execute(LispObject first, LispObject second) throws ConditionThrowable
     134        public LispObject execute(LispObject first, LispObject second)
     135            throws ConditionThrowable
    134136        {
    135137            final Function fun;
Note: See TracChangeset for help on using the changeset viewer.