twc/ludus
4
0
Fork 0
Code Issues 32 Pull Requests Packages Projects 8 Releases Wiki Activity

clj->extern

Browse Source
This commit is contained in:
Scott Richmond 2023-11-25 14:27:49 -05:00
parent fd77e1ed45
commit 246e9e5e53
1 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/ludus/prelude.cljc
View File

@ -241,14 +241,14 @@
:cljs (.bind (o/get js/window str) js/window)
))
(def clj {:name "clj"
(def extern {:name "extern"
::data/type ::data/clj
:body (fn [& args]
(println "Args passed: " 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))
;(println "Fn: " called)
;(println "Args: " (clj->js fn-args))
#?(
:clj(apply called fn-args)
:cljs (.apply called js/window (clj->js fn-args)))))})
@ -281,7 +281,7 @@
"conj" conj-
"get" get-
"type" type-
"clj" clj
"extern" extern
"first" first-
"rest" rest-
"nth" nth-