diff options
Diffstat (limited to 'vikalpa.scm')
| -rw-r--r-- | vikalpa.scm | 8 |
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 |