Changeset 4781


Ignore:
Timestamp:
11/16/03 15:05:06 (18 years ago)
Author:
piso
Message:

getResult(): call clearValues() instead of setValues(null).

File:
1 edited

Legend:

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

    r3890 r4781  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Throw.java,v 1.6 2003-09-19 14:11:02 piso Exp $
     5 * $Id: Throw.java,v 1.7 2003-11-16 15:05:06 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    4242    public LispObject getResult()
    4343    {
    44         LispThread.currentThread().setValues(values);
     44        if (values != null)
     45            LispThread.currentThread().setValues(values);
     46        else
     47            LispThread.currentThread().clearValues();
    4548        return result;
    4649    }
Note: See TracChangeset for help on using the changeset viewer.