Merge branch 'master' into environments

2e3c797a · Juergen Nickelsen · 46e77db0 · 85b52a05 · 2e3c797a
Commit 2e3c797a authored Jul 05, 2015 by Juergen Nickelsen
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 2 deletions

Builtin.pm Builtin.pm +2 -2

No files found.
--- a/Builtin.pm
+++ b/Builtin.pm
@@ -324,7 +324,7 @@ sub Blet_star {
        #debug("Blet_star %s", $defs);
        new_environment();
        my $result = eval {
-                my $result;
+                my $result = $Nil;
                while (consp($defs)) {
                        my $def;
                        ($def, $defs) = cxr($defs);
@@ -367,7 +367,7 @@ sub Blet {
        #debug("Blet enter %s", $defs);
        new_environment();
        my $result = eval {
-                my $result;
+                my $result = $Nil;
                while (consp($defs)) {
                        my $def;
                        ($def, $defs) = cxr($defs);