fix: let/let* with empty body is not an error, just nil

803ab188 · Juergen Nickelsen · 73b821ce · 803ab188
Commit 803ab188 authored Jul 04, 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
@@ -307,7 +307,7 @@ sub Blet_star {

        #debug("Blet_star %s", $defs);
        my $result = eval {
-                my $result;
+                my $result = $Nil;
                while (consp($defs)) {
                        my $def;
                        ($def, $defs) = cxr($defs);
@@ -350,7 +350,7 @@ sub Blet {

        #debug("Blet enter %s", $defs);
        my $result = eval {
-                my $result;
+                my $result = $Nil;
                while (consp($defs)) {
                        my $def;
                        ($def, $defs) = cxr($defs);