Reimplement variadic if without recursion (closes hylang#842)

hy/compiler.py

@@ -1035,7 +1035,7 @@ def compile_if(self, expression):
         if expression:
             orel_expr = expression.pop(0)
             if isinstance(orel_expr, HyExpression) and isinstance(orel_expr[0],
-               HySymbol) and orel_expr[0] == 'if*':
+               HySymbol) and orel_expr[0] in ('if*', 'if'):
                 # Nested ifs: don't waste temporaries
                 root = self.temp_if is None
                 nested = True

hy/core/bootstrap.hy

@@ -10,11 +10,14 @@
   "if with elif"
   (setv n (len args))
   (if* n
-       (if* (= n 1)
-            (get args 0)
-            `(if* ~(get args 0)
-                  ~(get args 1)
-                  (if ~@(cut args 2))))))
+       (do
+          (setv args (list args))
+          (setv else-branch (if* (% n 2) (.pop args) `None))
+          (.reverse args)
+          (reduce (fn [current-else [then-branch cond]]
+                      `(if* ~cond ~then-branch ~current-else))
+                  (zip (cut args None None 2) (cut args 1 None 2))
+                  else-branch))))
 
 (defmacro macro-error [location reason]
   "error out properly within a macro"