diff options
Diffstat (limited to 'tex/context/base/mkiv/cldf-ini.lua')
-rw-r--r-- | tex/context/base/mkiv/cldf-ini.lua | 34 |
1 files changed, 17 insertions, 17 deletions
diff --git a/tex/context/base/mkiv/cldf-ini.lua b/tex/context/base/mkiv/cldf-ini.lua index 463ece151..0778ced4e 100644 --- a/tex/context/base/mkiv/cldf-ini.lua +++ b/tex/context/base/mkiv/cldf-ini.lua @@ -124,8 +124,8 @@ local scannerdefmode = true local maxflushnodeindex = 0x10FFFF - 1 -- tokenflushmode = false --- scannerdefmode = false -- nodeflushmode = false +-- scannerdefmode = false -- In earlier experiments a function tables was referred to as lua.calls and the -- primitive \luafunctions was \luacall and we used our own implementation of @@ -792,11 +792,11 @@ local function writer(parent,command,...) -- already optimized before call if type(tj) == "function" then tj = storefunction(tj) if tokenflushmode then - if newtoken then + -- if newtoken then flush(currentcatcodes,"[",newtoken(tj,lua_expandable_call_token_code),"]") - else - flush(currentcatcodes,"[",t_cldl_luafunction,tj,"]") - end + -- else + -- flush(currentcatcodes,"[",t_cldl_luafunction,tj,"]") + -- end else flush(currentcatcodes,s_cldl_option_b,tj,s_cldl_option_e) end @@ -810,11 +810,11 @@ local function writer(parent,command,...) -- already optimized before call if type(tj) == "function" then tj = storefunction(tj) if tokenflushmode then - if newtoken then + -- if newtoken then flush(currentcatcodes,"[",newtoken(tj,lua_expandable_call_token_code),j == tn and "]" or ",") - else - flush(currentcatcodes,"[",t_cldl_luafunction,tj,j == tn and "]" or ",") - end + -- else + -- flush(currentcatcodes,"[",t_cldl_luafunction,tj,j == tn and "]" or ",") + -- end else flush(currentcatcodes,s_cldl_option_s,tj,j == tn and "]" or ",") end @@ -831,11 +831,11 @@ local function writer(parent,command,...) -- already optimized before call -- todo: ctx|prt|texcatcodes ti = storefunction(ti) if tokenflushmode then - if newtoken then + -- if newtoken then flush(currentcatcodes,"{",newtoken(ti,lua_expandable_call_token_code),"}") - else - flush(currentcatcodes,"{",t_cldl_luafunction,ti,"}") - end + -- else + -- flush(currentcatcodes,"{",t_cldl_luafunction,ti,"}") + -- end else flush(currentcatcodes,s_cldl_argument_f,ti,s_cldl_argument_e) end @@ -1060,11 +1060,11 @@ local caller = function(parent,f,a,...) -- ignored: a ... f = storefunction(f) if tokenflushmode then - if newtoken then + -- if newtoken then flush(currentcatcodes,"{",newtoken(f,lua_expandable_call_token_code),"}") - else - flush(currentcatcodes,"{",t_cldl_luafunction,f,"}") - end + -- else + -- flush(currentcatcodes,"{",t_cldl_luafunction,f,"}") + -- end else flush(currentcatcodes,s_cldl_argument_b,f,s_cldl_argument_e) -- todo: ctx|prt|texcatcodes end |