Changeset 11014


Ignore:
Timestamp:
03/16/06 01:31:45 (15 years ago)
Author:
piso
Message:

Cleanup.

File:
1 edited

Legend:

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

    r11013 r11014  
    33 *
    44 * Copyright (C) 2003-2006 Peter Graves
    5  * $Id: dolist.java,v 1.14 2006-03-16 01:06:10 piso Exp $
     5 * $Id: dolist.java,v 1.15 2006-03-16 01:31:45 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    7070    try
    7171      {
    72         LispObject list = checkList(eval(listForm, env, thread));
    7372        final Environment ext = new Environment(env);
     73        // Implicit block.
     74        ext.addBlock(NIL, new LispObject());
     75        // Evaluate the list form.
     76        LispObject list = checkList(eval(listForm, ext, thread));
    7477        // Look for tags.
    7578        LispObject remaining = bodyForm;
     
    8386            ext.addTagBinding(current, remaining);
    8487          }
    85         // Implicit block.
    86         ext.addBlock(NIL, new LispObject());
    8788        // Establish a reusable binding.
    8889        final Object binding;
Note: See TracChangeset for help on using the changeset viewer.