From 246e9e5e539035b266e855e62cf7c699d5474b12 Mon Sep 17 00:00:00 2001
From: Scott Richmond <kredati@users.noreply.github.com>
Date: Sat, 25 Nov 2023 14:27:49 -0500
Subject: [PATCH] clj->extern

---
 src/ludus/prelude.cljc | 24 ++++++++++++------------
 1 file changed, 12 insertions(+), 12 deletions(-)

diff --git a/src/ludus/prelude.cljc b/src/ludus/prelude.cljc
index 248dc06..e768485 100644
--- a/src/ludus/prelude.cljc
+++ b/src/ludus/prelude.cljc
@@ -241,17 +241,17 @@
      :cljs (.bind (o/get js/window str) js/window)
      ))
 
-(def clj {:name "clj"
-          ::data/type ::data/clj
-          :body (fn [& args]
-                  (println "Args passed: " args)
-                  (let [called (-> args first strpart readstr resolve-str)
-                        fn-args (rest args)]
-                    (println "Fn: " called)
-                    (println "Args: " (clj->js fn-args))
-                    #?(
-                       :clj(apply called fn-args)
-                       :cljs (.apply called js/window (clj->js fn-args)))))})
+(def extern {:name "extern"
+             ::data/type ::data/clj
+             :body (fn [& args]
+                     ;(println "Args passed: " args)
+                     (let [called (-> args first strpart readstr resolve-str)
+                           fn-args (rest args)]
+                       ;(println "Fn: " called)
+                       ;(println "Args: " (clj->js fn-args))
+                       #?(
+                          :clj(apply called fn-args)
+                          :cljs (.apply called js/window (clj->js fn-args)))))})
 
 (def count- {:name "count"
              ::data/type ::data/clj
@@ -281,7 +281,7 @@
               "conj" conj-
               "get" get-
               "type" type-
-              "clj" clj
+              "extern" extern
               "first" first-
               "rest" rest-
               "nth" nth-