Merge pull request #386 from asarhaddon/test-let-recursive-def

[jackhill/mal.git] / ps / step8_macros.ps

diff --git a/ps/step8_macros.ps b/ps/step8_macros.ps
index 6bb8fea..51eabc9 100644 (file)
--- a/ps/step8_macros.ps
+++ b/ps/step8_macros.ps
@@ -111,7 +111,9 @@ end } def
           ast env eval_ast
       }{ %else still a list
         /a0 ast 0 _nth def
-        /def! a0 eq { %if def!
+        a0 _nil? { %if ()
+            ast
+        }{ /def! a0 eq { %if def!
             /a1 ast 1 _nth def
             /a2 ast 2 _nth def
             env a1  a2 env EVAL  env_set
@@ -180,7 +182,7 @@ end } def
             }{ %else (regular procedure/function)
                 (cannot apply native proc!\n) print quit
             } ifelse } ifelse
-        } ifelse } ifelse } ifelse } ifelse } ifelse } ifelse } ifelse } ifelse } ifelse
+        } ifelse } ifelse } ifelse } ifelse } ifelse } ifelse } ifelse } ifelse } ifelse } ifelse
       } ifelse
     } ifelse