Changeset 11015


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

_flet() cleanup

File:
1 edited

Legend:

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

    r10970 r11015  
    33 *
    44 * Copyright (C) 2003-2006 Peter Graves
    5  * $Id: SpecialOperators.java,v 1.52 2006-01-20 15:03:43 piso Exp $
     5 * $Id: SpecialOperators.java,v 1.53 2006-03-16 11:13:08 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    465465                decls = decls.cdr();
    466466              }
    467             LispObject lambdaExpression =
    468               new Cons(Symbol.LAMBDA,
    469                        new Cons(parameters, body));
    470             Closure closure;
    471             if (recursive)
    472               closure = new Closure(lambdaExpression, ext);
    473             else
    474               closure = new Closure(lambdaExpression, env);
    475             closure.setLambdaName(list2(Symbol.FLET, name));
     467            LispObject lambda_expression =
     468              new Cons(Symbol.LAMBDA, new Cons(parameters, body));
     469            LispObject lambda_name =
     470              list2(recursive ? Symbol.LABELS : Symbol.FLET, name);
     471            Closure closure =
     472              new Closure(lambda_name, lambda_expression,
     473                          recursive ? ext : env);
    476474            ext.addFunctionBinding(name, closure);
    477475            defs = defs.cdr();
Note: See TracChangeset for help on using the changeset viewer.