From c2cac963b64c94ab5b9aca34228bfca687a2e733 Mon Sep 17 00:00:00 2001
From: David Schmenk <dschmenk@gmail.com>
Date: Thu, 11 Jul 2024 11:37:08 -0700
Subject: [PATCH] Cleanup cond()

---
 src/lisp/s-expr.pla | 12 +-----------
 1 file changed, 1 insertion(+), 11 deletions(-)

diff --git a/src/lisp/s-expr.pla b/src/lisp/s-expr.pla
index 7d4bc1f..ee54eb5 100644
--- a/src/lisp/s-expr.pla
+++ b/src/lisp/s-expr.pla
@@ -527,7 +527,7 @@ export def eval_expr(expr)#1
           break
         elsif expr_car=>lambda // DEFINEd lambda S-expression
           expr = enter_lambda(expr_car=>lambda, expr=>cdr)
-        elsif expr_car == sym_cond
+        elsif expr_car == sym_cond // Inline cond() evaluation
           expr = expr=>cdr
 	  while expr
 	    if eval_expr(expr=>car=>car) == @pred_true
@@ -619,16 +619,6 @@ def natv_quote(expr)
   return expr=>car
 end
 
-def natv_cond(expr)
-  while expr
-    if eval_expr(expr=>car=>car) == @pred_true
-      return eval_expr(expr=>car=>cdr=>car)
-    fin
-    expr = expr=>cdr
-  loop
-  return NULL
-end
-
 def natv_label(expr)
   var valptr