From f590c9c29ff60b1e3ab9ebfb8703d390a5b3df1c Mon Sep 17 00:00:00 2001 From: Masaya Tojo Date: Tue, 5 Jan 2021 10:02:22 +0900 Subject: wip68 --- vikalpa.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'vikalpa.scm') 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 -- cgit v1.2.3