Changeset 8667


Ignore:
Timestamp:
02/28/05 19:05:00 (16 years ago)
Author:
piso
Message:

SYS:ENVIRONMENT-VARIABLES

File:
1 edited

Legend:

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

    r8666 r8667  
    33 *
    44 * Copyright (C) 2002-2005 Peter Graves
    5  * $Id: Environment.java,v 1.21 2005-02-28 17:21:25 piso Exp $
     5 * $Id: Environment.java,v 1.22 2005-02-28 19:05:00 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    250250                for (Binding binding = env.vars; binding != null; binding = binding.next)
    251251                    if (!binding.specialp)
    252                         result = new Cons(binding.symbol, result);
    253                 return result;
     252                        result = result.push(new Cons(binding.symbol, binding.value));
     253                return result.nreverse();
    254254            }
    255255            catch (ClassCastException e) {
Note: See TracChangeset for help on using the changeset viewer.