Changeset 8503


Ignore:
Timestamp:
02/08/05 16:41:20 (16 years ago)
Author:
piso
Message:

setValues(LispObject[]): handle 1-value case correctly.

File:
1 edited

Legend:

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

    r8435 r8503  
    33 *
    44 * Copyright (C) 2003-2005 Peter Graves
    5  * $Id: LispThread.java,v 1.72 2005-02-01 03:19:33 piso Exp $
     5 * $Id: LispThread.java,v 1.73 2005-02-08 16:41:20 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    259259    public final LispObject setValues(LispObject[] values)
    260260    {
    261         if (values == null) {
    262             Debug.assertTrue(false);
    263             _values = null;
    264         } else
    265             _values = values;
    266         return values.length > 0 ? values[0] : NIL;
     261        switch (values.length) {
     262            case 0:
     263                _values = values;
     264                return NIL;
     265            case 1:
     266                _values = null;
     267                return values[0];
     268            default:
     269                _values = values;
     270                return values[0];
     271        }
    267272    }
    268273
Note: See TracChangeset for help on using the changeset viewer.