Handle error for undefined functions

nilenso · Jul 1, 2024 · dfb0c78 · dfb0c78
1 parent 3dc5913
commit dfb0c78
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 3 deletions.
diff --git a/src/bean/errors.cljs b/src/bean/errors.cljs
@@ -25,6 +25,10 @@
   {:error (str "label \"" label-name "\" doesn't exist")
    :representation (str "label \"" label-name "\" doesn't exist")})
 
+(defn function-not-found []
+  {:error "function not found"
+   :representation "function not found"})
+
 (defn spill-error []
   {:error "Spill error"
    :representation "Spill error"})

diff --git a/src/bean/interpreter.cljs b/src/bean/interpreter.cljs
@@ -154,9 +154,10 @@
 
 (defn apply-f-args [sheet f args & [asts]]
   (let [fn-ast (:scalar f)]
-    (if (fn? fn-ast)
-      (apply-system-f sheet fn-ast args asts)
-      (apply-user-f sheet fn-ast args))))
+    (cond
+      (:error f) f
+      (fn? fn-ast) (apply-system-f sheet fn-ast args asts)
+      :else (apply-user-f sheet fn-ast args))))
 
 (defn apply-f [sheet f asts]
   (let [args (eval-asts sheet asts)]