gistfile1.txt

i define

(defn action-data [dir]
  (let [source (lfs-textline dir)]
    (<- [?p ?a ] (source ?line) (re-parse [#"[^\s]+"] ?line :> ?p ?a)
                    (:distinct false))))

i execute

(let [foo (action-data "testdata.txt")] foo)

i get

{:type :generator, :id "c8f930a6-26b4-4a94-815e-90b6d4b15a7f", :join-set-var nil, :ground? true, :sourcemap {"84e2b8dd-3a98-44ba-9618-dac650d31f48" #<Lfs Lfs["TextLine[['line']->[ALL]]"]["testdata.txt"]"]>}, :pipe #<Each Each(cf9a0454-1844-43be-901e-90ec3c01b723)[Identity[decl:ARGS]]>, :outfields ["?p" "?a"], :trapmap {}}