Cleanup cond()

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