wip68

1 files changed, 4 insertions, 4 deletions

diff --git a/vikalpa.scm b/vikalpa.scm
index 8713e25..3e45883 100644
--- a/vikalpa.scm
+++ b/vikalpa.scm
@@ -718,12 +718,12 @@
                          (result/error 'guard-error `(,name ,@args) `(and ,@gs))))))
              (else (result/error 'function-not-found name)))))
          ((if-form? expr)
-          (let ((test/result (eval (if-form-test expr))))
-            (if (error? test/result)
+          (let ((test/result (eval (result/expr (if-form-test expr)))))
+            (if (result/error? test/result)
                 test/result
                 (if (expr-unquote (result/expr-expr test/result))
-                    (eval (if-form-then expr))
-                    (eval (if-form-else expr))))))
+                    (eval (result/expr (if-form-then expr)))
+                    (eval (result/expr (if-form-else expr)))))))
          ((variable? expr)
           (result/error 'eval 'variable-found expr))
          (else