Commit b8e21589 authored by Juergen Nickelsen's avatar Juergen Nickelsen
Browse files

turned back some overeager environment passing

parent 11da44b2

Eval.pm

+2 −3
Original line number Diff line number Diff line
@@ -138,7 +138,7 @@ sub call_form { 
                return $result;

        };

        backto_environment($saved_env);

        # return error after restoring bindungs

        # return error after restoring bindings

        unless (defined($result)) {

                say("$eval_depth: ", princs(cons(function_name($func),

                                                 $orig_args)))
@@ -215,9 +215,8 @@ sub eval_count { 
}



sub Eval {

        my ($ob, $env) = @_;

        my ($ob) = @_;

        #debugl("eval expr: %s", $ob);

        $env //= $Env;



        $eval_depth++;

        $eval_counter++;