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

called keywords work in pipelines

Browse Source
This commit is contained in:
Scott Richmond 2024-07-14 14:28:09 -04:00
parent 9e50f0cbdf
commit 9ddb43a30f
2 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/interpreter.janet
View File

@ -460,6 +460,7 @@
[:function :tuple] (call-fn root-ast prev curr) [:function :tuple] (call-fn root-ast prev curr)
# [:applied :tuple] (call-partial root-ast prev curr) # [:applied :tuple] (call-partial root-ast prev curr)
[:keyword :args] (get (first curr) prev :^nil) [:keyword :args] (get (first curr) prev :^nil)
[:keyword :tuple] (get (first curr) prev :^nil)
[:dict :keyword] (get prev curr :^nil) [:dict :keyword] (get prev curr :^nil)
[:nil :keyword] :^nil [:nil :keyword] :^nil
[:pkg :keyword] (get prev curr :^nil) [:pkg :keyword] (get prev curr :^nil)
@ -473,7 +474,7 @@
# (pp terms) # (pp terms)
(def first-term (first terms)) (def first-term (first terms))
(def last-term (last terms)) (def last-term (last terms))
(var prev (interpret first-term ctx)) (var prev (interpret first-term ctx))
# (print "root term: ") # (print "root term: ")
# (pp prev) # (pp prev)
(for i 1 (-> terms length dec) (for i 1 (-> terms length dec)
@ -489,9 +490,9 @@
(def last-term (last terms)) (def last-term (last terms))
(for i 1 (-> terms length dec) (for i 1 (-> terms length dec)
(def curr (interpret (terms i) ctx)) (def curr (interpret (terms i) ctx))
(set prev (call-fn (first terms) curr [prev]))) (set prev (apply-synth-term (first terms) curr [prev])))
(def last-fn (interpret last-term ctx)) (def last-fn (interpret last-term ctx))
(call-fn (first terms) last-fn [prev])) (apply-synth-term (first terms) last-fn [prev]))
(defn- pkg [ast ctx] (defn- pkg [ast ctx]
(def members (ast :data)) (def members (ast :data))

7
src/ludus.janet
View File

@ -53,21 +53,20 @@
(comment (comment
# (do # (do
(def start (os/clock)) # (def start (os/clock))
(def source ` (def source `
at ("aéc", 3)
`) `)
(def out (-> source (def out (-> source
ludus ludus
j/decode j/decode
)) ))
(def end (os/clock)) # (def end (os/clock))
(setdyn :out stdout) (setdyn :out stdout)
(pp out) (pp out)
(def console (out "console")) (def console (out "console"))
(print console) (print console)
(def result (out "result")) (def result (out "result"))
(print result) (print result)
(print (- end start)) # (print (- end start))
) )