(command.CommandList children: [ (C {(source)} { (command_sub left_token: (Token id:Id.Left_DollarParen val:'$(' span_id:6) command_list: (command.CommandList children:[(C {(dirname)} {($ Id.VSub_Number '$0')})]) ) (/reader.sh) } ) (C {(source)} { (command_sub left_token: (Token id:Id.Left_DollarParen val:'$(' span_id:15) command_list: (command.CommandList children:[(C {(dirname)} {($ Id.VSub_Number '$0')})]) ) (/printer.sh) } ) (C {(source)} { (command_sub left_token: (Token id:Id.Left_DollarParen val:'$(' span_id:24) command_list: (command.CommandList children:[(C {(dirname)} {($ Id.VSub_Number '$0')})]) ) (/env.sh) } ) (C {(source)} { (command_sub left_token: (Token id:Id.Left_DollarParen val:'$(' span_id:33) command_list: (command.CommandList children:[(C {(dirname)} {($ Id.VSub_Number '$0')})]) ) (/core.sh) } ) (command.ShFunction name: READ body: (command.BraceGroup children: [ (command.AndOr ops: [Id.Op_DAmp Id.Op_DPipe] children: [ (C {(Id.Lit_LBracket '[')} {(DQ (${ Id.VSub_Number 1))} {(Id.Lit_RBracket ']')}) (command.ShAssignment pairs: [ (assign_pair lhs: (sh_lhs_expr.Name name:r) op: assign_op.Equal rhs: {(DQ (${ Id.VSub_Number 1))} spids: [64] ) ] ) (C {(READLINE)}) ] ) (C {(READ_STR)} {(DQ (${ Id.VSub_Name r))}) ] ) ) (command.ShFunction name: IS_PAIR body: (command.BraceGroup children: [ (command.If arms: [ (if_arm cond: [ (command.Sentence child: (C {(_sequential) (Id.Lit_QMark '?')} {(DQ (${ Id.VSub_Number 1))}) terminator: (Token id:Id.Op_Semi val:';' span_id:108) ) ] action: [ (C {(_count)} {(DQ (${ Id.VSub_Number 1))}) (command.AndOr ops: [Id.Op_DAmp] children: [ (command.DBracket expr: (bool_expr.Binary op_id: Id.Op_Great left: {(DQ (${ Id.VSub_Name r))} right: {(0)} ) ) (command.ControlFlow token: (Token id:Id.ControlFlow_Return val:return span_id:138) arg_word: {(0)} ) ] ) ] spids: [98 110] ) ] ) (command.ControlFlow token: (Token id:Id.ControlFlow_Return val:return span_id:146) arg_word: {(1)} ) ] ) ) (command.ShFunction name: QUASIQUOTE body: (command.BraceGroup children: [ (command.If arms: [ (if_arm cond: [ (command.Sentence child: (command.Pipeline children: [(C {(IS_PAIR)} {(DQ (${ Id.VSub_Number 1))})] negated: T ) terminator: (Token id:Id.Op_Semi val:';' span_id:172) ) ] action: [ (C {(_symbol)} {(quote)}) (C {(_list)} {(DQ (${ Id.VSub_Name r))} {(DQ (${ Id.VSub_Number 1))}) (command.ControlFlow token: (Token id:Id.ControlFlow_Return val:return span_id:197) ) ] spids: [161 174] ) ] else_action: [ (command.Sentence child: (C {(_nth)} {(DQ (${ Id.VSub_Number 1))} {(0)}) terminator: (Token id:Id.Op_Semi val:';' span_id:212) ) (C {(local)} {(Id.Lit_VarLike 'a0=') (DQ (${ Id.VSub_Name r))}) (command.If arms: [ (if_arm cond: [ (command.Sentence child: (command.DBracket expr: (bool_expr.Binary op_id: Id.BoolBinary_GlobDEqual left: { (DQ (braced_var_sub token: (Token id:Id.VSub_Name val:ANON span_id:230) bracket_op: (bracket_op.ArrayIndex expr: (arith_expr.ArithWord w:{(DQ (${ Id.VSub_Name a0))}) ) ) ) } right: {(DQ (unquote))} ) ) terminator: (Token id:Id.Op_Semi val:';' span_id:248) ) ] action: [ (C {(_nth)} {(DQ (${ Id.VSub_Number 1))} {(1)}) (command.ControlFlow token: (Token id:Id.ControlFlow_Return val:return span_id:264) ) ] spids: [224 250] ) (if_arm cond: [ (command.Sentence child: (C {(IS_PAIR)} {(DQ (${ Id.VSub_Name a0))}) terminator: (Token id:Id.Op_Semi val:';' span_id:276) ) ] action: [ (command.Sentence child: (C {(_nth)} {(DQ (${ Id.VSub_Name a0))} {(0)}) terminator: (Token id:Id.Op_Semi val:';' span_id:290) ) (C {(local)} {(Id.Lit_VarLike 'a00=') (DQ (${ Id.VSub_Name r))}) (command.If arms: [ (if_arm cond: [ (command.Sentence child: (command.DBracket expr: (bool_expr.Binary op_id: Id.BoolBinary_GlobDEqual left: { (DQ (braced_var_sub token: (Token id:Id.VSub_Name val:ANON span_id:308) bracket_op: (bracket_op.ArrayIndex expr: (arith_expr.ArithWord w: {(DQ (${ Id.VSub_Name a00))} ) ) ) ) } right: {(DQ (splice-unquote))} ) ) terminator: (Token id:Id.Op_Semi val:';' span_id:326) ) ] action: [ (command.Sentence child: (C {(_symbol)} {(concat)}) terminator: (Token id:Id.Op_Semi val:';' span_id:334) ) (C {(local)} {(Id.Lit_VarLike 'a=') (DQ (${ Id.VSub_Name r))}) (command.Sentence child: (C {(_nth)} {(DQ (${ Id.VSub_Name a0))} {(1)}) terminator: (Token id:Id.Op_Semi val:';' span_id:355) ) (C {(local)} {(Id.Lit_VarLike 'b=') (DQ (${ Id.VSub_Name r))}) (C {(_rest)} {(DQ (${ Id.VSub_Number 1))}) (command.Sentence child: (C {(QUASIQUOTE)} {(DQ (${ Id.VSub_Name r))}) terminator: (Token id:Id.Op_Semi val:';' span_id:383) ) (C {(local)} {(Id.Lit_VarLike 'c=') (DQ (${ Id.VSub_Name r))}) (C {(_list)} {(DQ (${ Id.VSub_Name a))} {(DQ (${ Id.VSub_Name b))} {(DQ (${ Id.VSub_Name c))} ) (command.ControlFlow token: (Token id:Id.ControlFlow_Return val:return span_id:416) ) ] spids: [302 328] ) ] ) ] spids: [267 278] ) ] ) ] ) (command.Sentence child: (C {(_symbol)} {(cons)}) terminator: (Token id:Id.Op_Semi val:';' span_id:431) ) (C {(local)} {(Id.Lit_VarLike 'a=') (DQ (${ Id.VSub_Name r))}) (command.Sentence child: (C {(QUASIQUOTE)} {(DQ (${ Id.VSub_Name a0))}) terminator: (Token id:Id.Op_Semi val:';' span_id:450) ) (C {(local)} {(Id.Lit_VarLike 'b=') (DQ (${ Id.VSub_Name r))}) (C {(_rest)} {(DQ (${ Id.VSub_Number 1))}) (command.Sentence child: (C {(QUASIQUOTE)} {(DQ (${ Id.VSub_Name r))}) terminator: (Token id:Id.Op_Semi val:';' span_id:478) ) (C {(local)} {(Id.Lit_VarLike 'c=') (DQ (${ Id.VSub_Name r))}) (C {(_list)} {(DQ (${ Id.VSub_Name a))} {(DQ (${ Id.VSub_Name b))} {(DQ (${ Id.VSub_Name c))}) (command.ControlFlow token: (Token id:Id.ControlFlow_Return val:return span_id:511) ) ] ) ) (command.ShFunction name: IS_MACRO_CALL body: (command.BraceGroup children: [ (command.If arms: [ (if_arm cond: [ (command.Sentence child: (command.Pipeline children: [(C {(_list) (Id.Lit_QMark '?')} {(DQ (${ Id.VSub_Number 1))})] negated: T ) terminator: (Token id:Id.Op_Semi val:';' span_id:536) ) ] action: [ (command.Sentence child: (command.ControlFlow token: (Token id:Id.ControlFlow_Return val:return span_id:540) arg_word: {(1)} ) terminator: (Token id:Id.Op_Semi val:';' span_id:543) ) ] spids: [524 538] ) ] ) (command.Sentence child: (C {(_nth)} {(DQ (${ Id.VSub_Number 1))} {(0)}) terminator: (Token id:Id.Op_Semi val:';' span_id:557) ) (C {(local)} {(Id.Lit_VarLike 'a0=') (DQ (${ Id.VSub_Name r))}) (command.If arms: [ (if_arm cond: [ (command.Sentence child: (C {(_symbol) (Id.Lit_QMark '?')} {(DQ (${ Id.VSub_Name a0))}) terminator: (Token id:Id.Op_Semi val:';' span_id:579) ) ] action: [ (C {(ENV_FIND)} {(DQ (${ Id.VSub_Number 2))} {(DQ (${ Id.VSub_Name a0))}) (command.If arms: [ (if_arm cond: [ (command.Sentence child: (command.DBracket expr: (bool_expr.WordTest w:{(DQ (${ Id.VSub_Name r))}) ) terminator: (Token id:Id.Op_Semi val:';' span_id:610) ) ] action: [ (C {(ENV_GET)} {(DQ (${ Id.VSub_Number 2))} {(DQ (${ Id.VSub_Name a0))}) (C {(Id.Lit_LBracket '[')} { (DQ (braced_var_sub token: (Token id:Id.VSub_Name val:ANON span_id:634) bracket_op: (bracket_op.ArrayIndex expr: (arith_expr.ArithWord w: {(DQ (${ Id.VSub_Name r) (_ismacro_))} ) ) ) ) } {(Id.Lit_RBracket ']')} ) (command.ControlFlow token: (Token id:Id.ControlFlow_Return val:return span_id:649) arg_word: {($ Id.VSub_QMark '$?')} ) ] spids: [599 612] ) ] ) ] spids: [569 581] ) ] ) (command.ControlFlow token: (Token id:Id.ControlFlow_Return val:return span_id:660) arg_word: {(1)} ) ] ) ) (command.ShFunction name: MACROEXPAND body: (command.BraceGroup children: [ (C {(local)} {(Id.Lit_VarLike 'ast=') (DQ (${ Id.VSub_Number 1))} {(Id.Lit_VarLike 'env=') (DQ (${ Id.VSub_Number 2))} ) (command.WhileUntil keyword: (Token id:Id.KW_While val:while span_id:692) cond: [ (command.Sentence child: (C {(IS_MACRO_CALL)} {(DQ (${ Id.VSub_Name ast))} {(DQ (${ Id.VSub_Name env))}) terminator: (Token id:Id.Op_Semi val:';' span_id:707) ) ] body: (command.DoGroup children: [ (command.Sentence child: (C {(_nth)} {(DQ (${ Id.VSub_Name ast))} {(0)}) terminator: (Token id:Id.Op_Semi val:';' span_id:721) ) (C {(local)} {(Id.Lit_VarLike 'a0=') (DQ (${ Id.VSub_Name r))}) (command.Sentence child: (C {(ENV_GET)} {(DQ (${ Id.VSub_Name env))} {(DQ (${ Id.VSub_Name a0))}) terminator: (Token id:Id.Op_Semi val:';' span_id:746) ) (C {(local)} {(Id.Lit_VarLike 'mac=') (DQ (braced_var_sub token: (Token id:Id.VSub_Name val:ANON span_id:753) bracket_op: (bracket_op.ArrayIndex expr: (arith_expr.ArithWord w:{(DQ (${ Id.VSub_Name r))}) ) ) ) } ) (C {(_rest)} {(DQ (${ Id.VSub_Name ast))}) (C { (braced_var_sub token: (Token id:Id.VSub_Name val:mac span_id:775) suffix_op: (suffix_op.Unary op_id:Id.VOp1_DPercent arg_word:{('@*')}) ) } { (braced_var_sub token: (Token id:Id.VSub_Name val:ANON span_id:781) bracket_op: (bracket_op.ArrayIndex expr: (arith_expr.ArithWord w:{(DQ (${ Id.VSub_Name r))}) ) ) } ) (command.ShAssignment pairs: [ (assign_pair lhs: (sh_lhs_expr.Name name:ast) op: assign_op.Equal rhs: {(DQ (${ Id.VSub_Name r))} spids: [792] ) ] ) ] ) ) (command.ShAssignment pairs: [ (assign_pair lhs: (sh_lhs_expr.Name name:r) op: assign_op.Equal rhs: {(DQ (${ Id.VSub_Name ast))} spids: [803] ) ] ) ] ) ) (command.ShFunction name: EVAL_AST body: (command.BraceGroup children: [ (C {(local)} {(Id.Lit_VarLike 'ast=') (DQ (${ Id.VSub_Number 1))} {(Id.Lit_VarLike 'env=') (DQ (${ Id.VSub_Number 2))} ) (command.Sentence child: (C {(_obj_type)} {(DQ (${ Id.VSub_Name ast))}) terminator: (Token id:Id.Op_Semi val:';' span_id:850) ) (C {(local)} {(Id.Lit_VarLike 'ot=') (DQ (${ Id.VSub_Name r))}) (command.Case to_match: {(DQ (${ Id.VSub_Name ot))} arms: [ (case_arm pat_list: [{(symbol)}] action: [ (C {(ENV_GET)} {(DQ (${ Id.VSub_Name env))} {(DQ (${ Id.VSub_Name ast))}) (command.ControlFlow token: (Token id:Id.ControlFlow_Return val:return span_id:892) ) ] spids: [873 874 894 -1] ) (case_arm pat_list: [{(list)}] action: [ (C {(_map_with_type)} {(_list)} {(EVAL)} {(DQ (${ Id.VSub_Name ast))} {(DQ (${ Id.VSub_Name env))} ) ] spids: [897 898 919 -1] ) (case_arm pat_list: [{(vector)}] action: [ (C {(_map_with_type)} {(_vector)} {(EVAL)} {(DQ (${ Id.VSub_Name ast))} {(DQ (${ Id.VSub_Name env))} ) ] spids: [922 923 944 -1] ) (case_arm pat_list: [{(hash_map)}] action: [ (C {(local)} {(Id.Lit_VarLike 'res=') (DQ )} {(Id.Lit_VarLike 'key=')} {(Id.Lit_VarLike 'val=') (DQ )} {(Id.Lit_VarLike 'hm=') (DQ (braced_var_sub token: (Token id:Id.VSub_Name val:ANON span_id:966) bracket_op: (bracket_op.ArrayIndex expr: (arith_expr.ArithWord w:{(DQ (${ Id.VSub_Name ast))}) ) ) ) } ) (command.Sentence child: (C {(_hash_map)}) terminator: (Token id:Id.Op_Semi val:';' span_id:979) ) (C {(local)} {(Id.Lit_VarLike 'new_hm=') (DQ (${ Id.VSub_Name r))}) (C {(eval)} {(local)} {(Id.Lit_VarLike 'keys=') (DQ (word_part.EscapedLiteral token: (Token id:Id.Lit_EscapedChar val:'\\$' span_id:997) ) ('{!') (${ Id.VSub_Name hm) ('[@]}') ) } ) (command.ForEach iter_name: key iter_words: [{(${ Id.VSub_Name keys)}] do_arg_iter: F body: (command.DoGroup children: [ (C {(eval)} {(Id.Lit_VarLike 'val=') (DQ (word_part.EscapedLiteral token: (Token id:Id.Lit_EscapedChar val:'\\$' span_id:1024) ) ('{') (${ Id.VSub_Name hm) ('[') (word_part.EscapedLiteral token: (Token id:Id.Lit_EscapedChar val:'\\"' span_id:1030) ) (${ Id.VSub_Name key) (word_part.EscapedLiteral token: (Token id:Id.Lit_EscapedChar val:'\\"' span_id:1034) ) (']}') ) } ) (C {(EVAL)} {(DQ (${ Id.VSub_Name val))} {(DQ (${ Id.VSub_Name env))}) (C {(_assoc) (Id.KW_Bang '!')} {(DQ (${ Id.VSub_Name new_hm))} {(DQ (${ Id.VSub_Name key))} {(DQ (${ Id.VSub_Name r))} ) ] ) ) (command.ShAssignment pairs: [ (assign_pair lhs: (sh_lhs_expr.Name name:r) op: assign_op.Equal rhs: {(DQ (${ Id.VSub_Name new_hm))} spids: [1079] ) ] ) ] spids: [947 948 1086 -1] ) (case_arm pat_list: [{(Id.Lit_Star '*')}] action: [ (command.ShAssignment pairs: [ (assign_pair lhs: (sh_lhs_expr.Name name:r) op: assign_op.Equal rhs: {(DQ (${ Id.VSub_Name ast))} spids: [1093] ) ] ) ] spids: [1089 1090 1100 -1] ) ] ) ] ) ) (command.ShFunction name: EVAL body: (command.BraceGroup children: [ (C {(local)} {(Id.Lit_VarLike 'ast=') (DQ (${ Id.VSub_Number 1))} {(Id.Lit_VarLike 'env=') (DQ (${ Id.VSub_Number 2))} ) (command.WhileUntil keyword: (Token id:Id.KW_While val:while span_id:1133) cond: [ (command.Sentence child: (C {(true)}) terminator: (Token id:Id.Op_Semi val:';' span_id:1136) ) ] body: (command.DoGroup children: [ (command.ShAssignment pairs: [ (assign_pair lhs: (sh_lhs_expr.Name name:r) op: assign_op.Equal rhs: (word.Empty) spids: [1141] ) ] ) (command.AndOr ops: [Id.Op_DAmp] children: [ (command.DBracket expr: (bool_expr.WordTest w:{(DQ (${ Id.VSub_Name __ERROR))}) ) (command.ControlFlow token: (Token id:Id.ControlFlow_Return val:return span_id:1156) arg_word: {(1)} ) ] ) (command.If arms: [ (if_arm cond: [ (command.Sentence child: (command.Pipeline children: [ (C {(_list) (Id.Lit_QMark '?')} {(DQ (${ Id.VSub_Name ast))}) ] negated: T ) terminator: (Token id:Id.Op_Semi val:';' span_id:1177) ) ] action: [ (C {(EVAL_AST)} {(DQ (${ Id.VSub_Name ast))} {(DQ (${ Id.VSub_Name env))}) (command.ControlFlow token: (Token id:Id.ControlFlow_Return val:return span_id:1197) ) ] spids: [1165 1179] ) ] ) (C {(MACROEXPAND)} {(DQ (${ Id.VSub_Name ast))} {(DQ (${ Id.VSub_Name env))}) (command.ShAssignment pairs: [ (assign_pair lhs: (sh_lhs_expr.Name name:ast) op: assign_op.Equal rhs: {(DQ (${ Id.VSub_Name r))} spids: [1223] ) ] ) (command.If arms: [ (if_arm cond: [ (command.Sentence child: (command.Pipeline children: [ (C {(_list) (Id.Lit_QMark '?')} {(DQ (${ Id.VSub_Name ast))}) ] negated: T ) terminator: (Token id:Id.Op_Semi val:';' span_id:1243) ) ] action: [ (C {(EVAL_AST)} {(DQ (${ Id.VSub_Name ast))} {(DQ (${ Id.VSub_Name env))}) (command.ControlFlow token: (Token id:Id.ControlFlow_Return val:return span_id:1263) ) ] spids: [1231 1245] ) ] ) (command.AndOr ops: [Id.Op_DAmp Id.Op_DAmp] children: [ (C {(_empty) (Id.Lit_QMark '?')} {(DQ (${ Id.VSub_Name ast))}) (command.ShAssignment pairs: [ (assign_pair lhs: (sh_lhs_expr.Name name:r) op: assign_op.Equal rhs: {(DQ (${ Id.VSub_Name ast))} spids: [1280] ) ] ) (command.ControlFlow token: (Token id:Id.ControlFlow_Return val:return span_id:1289) ) ] ) (command.Sentence child: (C {(_nth)} {(DQ (${ Id.VSub_Name ast))} {(0)}) terminator: (Token id:Id.Op_Semi val:';' span_id:1302) ) (C {(local)} {(Id.Lit_VarLike 'a0=') (DQ (${ Id.VSub_Name r))}) (command.Sentence child: (C {(_nth)} {(DQ (${ Id.VSub_Name ast))} {(1)}) terminator: (Token id:Id.Op_Semi val:';' span_id:1323) ) (C {(local)} {(Id.Lit_VarLike 'a1=') (DQ (${ Id.VSub_Name r))}) (command.Sentence child: (C {(_nth)} {(DQ (${ Id.VSub_Name ast))} {(2)}) terminator: (Token id:Id.Op_Semi val:';' span_id:1344) ) (C {(local)} {(Id.Lit_VarLike 'a2=') (DQ (${ Id.VSub_Name r))}) (command.Case to_match: { (DQ (braced_var_sub token: (Token id:Id.VSub_Name val:ANON span_id:1360) bracket_op: (bracket_op.ArrayIndex expr: (arith_expr.ArithWord w:{(DQ (${ Id.VSub_Name a0))}) ) ) ) } arms: [ (case_arm pat_list: [{(def) (Id.KW_Bang '!')}] action: [ (C {(EVAL)} {(DQ (${ Id.VSub_Name a2))} {(DQ (${ Id.VSub_Name env))}) (command.AndOr ops: [Id.Op_DAmp] children: [ (command.DBracket expr: (bool_expr.WordTest w:{(DQ (${ Id.VSub_Name __ERROR))}) ) (command.ControlFlow token: (Token id:Id.ControlFlow_Return val:return span_id:1405) arg_word: {(1)} ) ] ) (C {(ENV_SET)} {(DQ (${ Id.VSub_Name env))} {(DQ (${ Id.VSub_Name a1))} {(DQ (${ Id.VSub_Name r))} ) (command.ControlFlow token: (Token id:Id.ControlFlow_Return val:return span_id:1431) ) ] spids: [1374 1376 1433 -1] ) (case_arm pat_list: [{(let) (Id.Lit_Star '*')}] action: [ (command.Sentence child: (C {(ENV)} {(DQ (${ Id.VSub_Name env))}) terminator: (Token id:Id.Op_Semi val:';' span_id:1447) ) (C {(local)} {(Id.Lit_VarLike 'let_env=') (DQ (${ Id.VSub_Name r))}) (C {(local)} {(Id.Lit_VarLike 'let_pairs=') (sh_array_literal left: (Token id:Id.Op_LParen val:'(' span_id:1462) words: [ { (braced_var_sub token: (Token id:Id.VSub_Name val:ANON span_id:1464) bracket_op: (bracket_op.ArrayIndex expr: (arith_expr.ArithWord w:{(DQ (${ Id.VSub_Name a1))}) ) ) } ] ) } ) (C {(local)} {(Id.Lit_VarLike 'idx=') (0)}) (command.WhileUntil keyword: (Token id:Id.KW_While val:while span_id:1486) cond: [ (command.Sentence child: (command.DBracket expr: (bool_expr.WordTest w: { (DQ (braced_var_sub token: (Token id: Id.VSub_Name val: let_pairs span_id: 1492 ) bracket_op: (bracket_op.ArrayIndex expr: (arith_expr.ArithWord w: {(DQ (${ Id.VSub_Name idx))} ) ) ) ) } ) ) terminator: (Token id:Id.Op_Semi val:';' span_id:1504) ) ] body: (command.DoGroup children: [ (C {(EVAL)} { (DQ (braced_var_sub token: (Token id:Id.VSub_Name val:let_pairs span_id:1513) bracket_op: (bracket_op.ArrayIndex expr: (arith_expr.ArithWord w: { (word_part.ArithSub anode: (arith_expr.Binary op_id: Id.Arith_Plus left: (arith_expr.VarRef token: (Token id: Id.Lit_ArithVarLike val: idx span_id: 1517 ) ) right: (arith_expr.ArithWord w: {(Id.Lit_Digits 1)} ) ) ) } ) ) ) ) } {(DQ (${ Id.VSub_Name let_env))} ) (C {(ENV_SET)} {(DQ (${ Id.VSub_Name let_env))} { (DQ (braced_var_sub token: (Token id:Id.VSub_Name val:let_pairs span_id:1545) bracket_op: (bracket_op.ArrayIndex expr: (arith_expr.ArithWord w:{(${ Id.VSub_Name idx)}) ) ) ) } {(DQ (${ Id.VSub_Name r))} ) (command.ShAssignment pairs: [ (assign_pair lhs: (sh_lhs_expr.Name name:idx) op: assign_op.Equal rhs: { (word_part.ArithSub anode: (arith_expr.Binary op_id: Id.Arith_Plus left: (arith_expr.VarRef token: (Token id: Id.Lit_ArithVarLike val: idx span_id: 1564 ) ) right: (arith_expr.ArithWord w:{(Id.Lit_Digits 2)}) ) ) } spids: [1561] ) ] ) ] ) ) (command.ShAssignment pairs: [ (assign_pair lhs: (sh_lhs_expr.Name name:ast) op: assign_op.Equal rhs: {(DQ (${ Id.VSub_Name a2))} spids: [1576] ) ] ) (command.ShAssignment pairs: [ (assign_pair lhs: (sh_lhs_expr.Name name:env) op: assign_op.Equal rhs: {(DQ (${ Id.VSub_Name let_env))} spids: [1584] ) ] ) ] spids: [1436 1438 1596 -1] ) (case_arm pat_list: [{(quote)}] action: [ (command.ShAssignment pairs: [ (assign_pair lhs: (sh_lhs_expr.Name name:r) op: assign_op.Equal rhs: {(DQ (${ Id.VSub_Name a1))} spids: [1603] ) ] ) (command.ControlFlow token: (Token id:Id.ControlFlow_Return val:return span_id:1611) ) ] spids: [1599 1600 1613 -1] ) (case_arm pat_list: [{(quasiquote)}] action: [ (C {(QUASIQUOTE)} {(DQ (${ Id.VSub_Name a1))}) (command.ShAssignment pairs: [ (assign_pair lhs: (sh_lhs_expr.Name name:ast) op: assign_op.Equal rhs: {(DQ (${ Id.VSub_Name r))} spids: [1629] ) ] ) ] spids: [1616 1617 1641 -1] ) (case_arm pat_list: [{(defmacro) (Id.KW_Bang '!')}] action: [ (C {(EVAL)} {(DQ (${ Id.VSub_Name a2))} {(DQ (${ Id.VSub_Name env))}) (command.AndOr ops: [Id.Op_DAmp] children: [ (command.DBracket expr: (bool_expr.WordTest w:{(DQ (${ Id.VSub_Name __ERROR))}) ) (command.ControlFlow token: (Token id:Id.ControlFlow_Return val:return span_id:1676) arg_word: {(1)} ) ] ) (command.ShAssignment pairs: [ (assign_pair lhs: (sh_lhs_expr.IndexedName name: ANON index: (arith_expr.ArithWord w: {(DQ (${ Id.VSub_Name r) (_ismacro_))} ) ) op: assign_op.Equal rhs: {(DQ (yes))} spids: [1681] ) ] ) (C {(ENV_SET)} {(DQ (${ Id.VSub_Name env))} {(DQ (${ Id.VSub_Name a1))} {(DQ (${ Id.VSub_Name r))} ) (command.ControlFlow token: (Token id:Id.ControlFlow_Return val:return span_id:1722) ) ] spids: [1644 1646 1724 -1] ) (case_arm pat_list: [{(macroexpand)}] action: [ (C {(MACROEXPAND)} {(DQ (${ Id.VSub_Name a1))} {(DQ (${ Id.VSub_Name env))}) (command.ControlFlow token: (Token id:Id.ControlFlow_Return val:return span_id:1746) ) ] spids: [1727 1728 1748 -1] ) (case_arm pat_list: [{(sh) (Id.Lit_Star '*')}] action: [ (C {(EVAL)} {(DQ (${ Id.VSub_Name a1))} {(DQ (${ Id.VSub_Name env))}) (C {(local)} {(Id.Lit_VarLike 'output=') (DQ )}) (C {(local)} {(Id.Lit_VarLike 'line=') (DQ )}) (command.WhileUntil keyword: (Token id:Id.KW_While val:while span_id:1784) cond: [ (command.Sentence child: (C {(read)} {(line)}) terminator: (Token id:Id.Op_Semi val:';' span_id:1789) ) ] body: (command.DoGroup children: [ (command.ShAssignment pairs: [ (assign_pair lhs: (sh_lhs_expr.Name name:output) op: assign_op.Equal rhs: { (DQ (${ Id.VSub_Name output) (${ Id.VSub_Name line) (Id.Lit_Other '\\') (n) ) } spids: [1794] ) ] ) ] ) redirects: [ (redir.Redir op: (Token id:Id.Redir_Less val:'<' span_id:1809) fd: -1 arg_word: { (command_sub left_token: (Token id: Id.Left_ProcSubIn val: '<(' span_id: 1811 ) command_list: (command.CommandList children: [ (C {(eval)} { (braced_var_sub token: (Token id: Id.VSub_Name val: ANON span_id: 1815 ) bracket_op: (bracket_op.ArrayIndex expr: (arith_expr.ArithWord w: {(DQ (${ Id.VSub_Name r))} ) ) ) } ) ] ) ) } ) ] ) (C {(_string)} { (DQ (braced_var_sub token: (Token id:Id.VSub_Name val:output span_id:1831) suffix_op: (suffix_op.Unary op_id: Id.VOp1_Percent arg_word: { (word_part.EscapedLiteral token: (Token id: Id.Lit_EscapedChar val: '\\\\' span_id: 1833 ) ) (n) } ) ) ) } ) (command.ControlFlow token: (Token id:Id.ControlFlow_Return val:return span_id:1839) ) ] spids: [1751 1753 1841 -1] ) (case_arm pat_list: [{(try) (Id.Lit_Star '*')}] action: [ (C {(EVAL)} {(DQ (${ Id.VSub_Name a1))} {(DQ (${ Id.VSub_Name env))}) (command.AndOr ops: [Id.Op_DAmp] children: [ (command.DBracket expr: (bool_expr.Unary op_id: Id.BoolUnary_z child: {(DQ (${ Id.VSub_Name __ERROR))} ) ) (command.ControlFlow token: (Token id:Id.ControlFlow_Return val:return span_id:1877) ) ] ) (command.Sentence child: (C {(_nth)} {(DQ (${ Id.VSub_Name a2))} {(0)}) terminator: (Token id:Id.Op_Semi val:';' span_id:1889) ) (C {(local)} {(Id.Lit_VarLike 'a20=') (DQ (${ Id.VSub_Name r))}) (command.If arms: [ (if_arm cond: [ (command.Sentence child: (C {(Id.Lit_LBracket '[')} { (DQ (braced_var_sub token: (Token id:Id.VSub_Name val:ANON span_id:1907) bracket_op: (bracket_op.ArrayIndex expr: (arith_expr.ArithWord w: {(DQ (${ Id.VSub_Name a20))} ) ) ) ) } {(Id.Lit_Equals '=') (Id.Lit_Equals '=')} {(DQ (catch__STAR__))} {(Id.Lit_RBracket ']')} ) terminator: (Token id:Id.Op_Semi val:';' span_id:1926) ) ] action: [ (command.Sentence child: (C {(_nth)} {(DQ (${ Id.VSub_Name a2))} {(1)}) terminator: (Token id:Id.Op_Semi val:';' span_id:1940) ) (C {(local)} {(Id.Lit_VarLike 'a21=') (DQ (${ Id.VSub_Name r))}) (command.Sentence child: (C {(_nth)} {(DQ (${ Id.VSub_Name a2))} {(2)}) terminator: (Token id:Id.Op_Semi val:';' span_id:1961) ) (C {(local)} {(Id.Lit_VarLike 'a22=') (DQ (${ Id.VSub_Name r))}) (command.Sentence child: (C {(_list)} {(DQ (${ Id.VSub_Name a21))}) terminator: (Token id:Id.Op_Semi val:';' span_id:1980) ) (C {(local)} {(Id.Lit_VarLike 'binds=') (DQ (${ Id.VSub_Name r))}) (C {(ENV)} {(DQ (${ Id.VSub_Name env))} {(DQ (${ Id.VSub_Name binds))} {(DQ (${ Id.VSub_Name __ERROR))} ) (C {(local)} {(Id.Lit_VarLike 'try_env=') (DQ (${ Id.VSub_Name r))}) (command.ShAssignment pairs: [ (assign_pair lhs: (sh_lhs_expr.Name name:__ERROR) op: assign_op.Equal rhs: (word.Empty) spids: [2023] ) ] ) (C {(EVAL)} {(DQ (${ Id.VSub_Name a22))} {(DQ (${ Id.VSub_Name try_env))} ) ] spids: [1901 1928] ) ] ) (command.ControlFlow token: (Token id:Id.ControlFlow_Return val:return span_id:2047) ) ] spids: [1844 1846 2049 -1] ) (case_arm pat_list: [{(Id.KW_Do do)}] action: [ (C {(_count)} {(DQ (${ Id.VSub_Name ast))}) (C {(_slice)} {(DQ (${ Id.VSub_Name ast))} {(1)} { (word_part.ArithSub anode: (arith_expr.Binary op_id: Id.Arith_Minus left: (arith_expr.ArithWord w:{(${ Id.VSub_Name r)}) right: (arith_expr.ArithWord w:{(Id.Lit_Digits 2)}) ) ) } ) (C {(EVAL_AST)} {(DQ (${ Id.VSub_Name r))} {(DQ (${ Id.VSub_Name env))}) (command.AndOr ops: [Id.Op_DAmp Id.Op_DAmp] children: [ (command.DBracket expr: (bool_expr.WordTest w:{(DQ (${ Id.VSub_Name __ERROR))}) ) (command.ShAssignment pairs: [ (assign_pair lhs: (sh_lhs_expr.Name name:r) op: assign_op.Equal rhs: (word.Empty) spids: [2115] ) ] ) (command.ControlFlow token: (Token id:Id.ControlFlow_Return val:return span_id:2119) arg_word: {(1)} ) ] ) (C {(_last)} {(DQ (${ Id.VSub_Name ast))}) (command.ShAssignment pairs: [ (assign_pair lhs: (sh_lhs_expr.Name name:ast) op: assign_op.Equal rhs: {(DQ (${ Id.VSub_Name r))} spids: [2133] ) ] ) ] spids: [2052 2053 2145 -1] ) (case_arm pat_list: [{(Id.KW_If if)}] action: [ (C {(EVAL)} {(DQ (${ Id.VSub_Name a1))} {(DQ (${ Id.VSub_Name env))}) (command.AndOr ops: [Id.Op_DAmp] children: [ (command.DBracket expr: (bool_expr.WordTest w:{(DQ (${ Id.VSub_Name __ERROR))}) ) (command.ControlFlow token: (Token id:Id.ControlFlow_Return val:return span_id:2178) arg_word: {(1)} ) ] ) (command.If arms: [ (if_arm cond: [ (command.Sentence child: (command.DBracket expr: (bool_expr.LogicalOr left: (bool_expr.Binary op_id: Id.BoolBinary_GlobDEqual left: {(DQ (${ Id.VSub_Name r))} right: {(DQ (${ Id.VSub_Name __false))} ) right: (bool_expr.Binary op_id: Id.BoolBinary_GlobDEqual left: {(DQ (${ Id.VSub_Name r))} right: {(DQ (${ Id.VSub_Name __nil))} ) ) ) terminator: (Token id:Id.Op_Semi val:';' span_id:2218) ) ] action: [ (command.Sentence child: (C {(_nth)} {(DQ (${ Id.VSub_Name ast))} {(3)}) terminator: (Token id:Id.Op_Semi val:';' span_id:2236) ) (C {(local)} {(Id.Lit_VarLike 'a3=') (DQ (${ Id.VSub_Name r))}) (command.If arms: [ (if_arm cond: [ (command.Sentence child: (command.DBracket expr: (bool_expr.WordTest w: {(DQ (${ Id.VSub_Name a3))} ) ) terminator: (Token id:Id.Op_Semi val:';' span_id:2259) ) ] action: [ (command.ShAssignment pairs: [ (assign_pair lhs: (sh_lhs_expr.Name name:ast) op: assign_op.Equal rhs: {(DQ (${ Id.VSub_Name a3))} spids: [2264] ) ] ) ] spids: [2248 2261] ) ] else_action: [ (command.ShAssignment pairs: [ (assign_pair lhs: (sh_lhs_expr.Name name:r) op: assign_op.Equal rhs: {(DQ (${ Id.VSub_Name __nil))} spids: [2275] ) ] ) (command.ControlFlow token: (Token id: Id.ControlFlow_Return val: return span_id: 2283 ) ) ] ) ] spids: [2183 2220] ) ] else_action: [ (command.ShAssignment pairs: [ (assign_pair lhs: (sh_lhs_expr.Name name:ast) op: assign_op.Equal rhs: {(DQ (${ Id.VSub_Name a2))} spids: [2296] ) ] ) ] ) ] spids: [2148 2149 2311 -1] ) (case_arm pat_list: [{(fn) (Id.Lit_Star '*')}] action: [ (C {(_function)} { (DQ ('ENV ') (word_part.EscapedLiteral token: (Token id:Id.Lit_EscapedChar val:'\\"' span_id:2322) ) (${ Id.VSub_Name env) (word_part.EscapedLiteral token: (Token id:Id.Lit_EscapedChar val:'\\"' span_id:2326) ) (' ') (word_part.EscapedLiteral token:(Token id:Id.Lit_EscapedChar val:'\\"' span_id:2328)) (${ Id.VSub_Name a1) (word_part.EscapedLiteral token:(Token id:Id.Lit_EscapedChar val:'\\"' span_id:2332)) (' ') (word_part.EscapedLiteral token: (Token id:Id.Lit_EscapedChar val:'\\"' span_id:2334) ) (word_part.EscapedLiteral token:(Token id:Id.Lit_EscapedChar val:'\\$' span_id:2335)) ('{@}') (word_part.EscapedLiteral token: (Token id:Id.Lit_EscapedChar val:'\\"' span_id:2337) ) ('; ') (' EVAL ') (word_part.EscapedLiteral token: (Token id:Id.Lit_EscapedChar val:'\\"' span_id:2341) ) (${ Id.VSub_Name a2) (word_part.EscapedLiteral token: (Token id:Id.Lit_EscapedChar val:'\\"' span_id:2345) ) (' ') (word_part.EscapedLiteral token:(Token id:Id.Lit_EscapedChar val:'\\"' span_id:2347)) (word_part.EscapedLiteral token: (Token id:Id.Lit_EscapedChar val:'\\$' span_id:2348) ) ('{r}') (word_part.EscapedLiteral token:(Token id:Id.Lit_EscapedChar val:'\\"' span_id:2350)) ) } {(DQ (${ Id.VSub_Name a2))} {(DQ (${ Id.VSub_Name env))} {(DQ (${ Id.VSub_Name a1))} ) (command.ControlFlow token: (Token id:Id.ControlFlow_Return val:return span_id:2374) ) ] spids: [2314 2316 2376 -1] ) (case_arm pat_list: [{(Id.Lit_Star '*')}] action: [ (C {(EVAL_AST)} {(DQ (${ Id.VSub_Name ast))} {(DQ (${ Id.VSub_Name env))}) (command.AndOr ops: [Id.Op_DAmp Id.Op_DAmp] children: [ (command.DBracket expr: (bool_expr.WordTest w:{(DQ (${ Id.VSub_Name __ERROR))}) ) (command.ShAssignment pairs: [ (assign_pair lhs: (sh_lhs_expr.Name name:r) op: assign_op.Equal rhs: (word.Empty) spids: [2409] ) ] ) (command.ControlFlow token: (Token id:Id.ControlFlow_Return val:return span_id:2413) arg_word: {(1)} ) ] ) (C {(local)} {(Id.Lit_VarLike 'el=') (DQ (${ Id.VSub_Name r))}) (command.Sentence child: (C {(_first)} {(DQ (${ Id.VSub_Name el))}) terminator: (Token id:Id.Op_Semi val:';' span_id:2435) ) (C {(local)} {(Id.Lit_VarLike 'f=') (DQ (braced_var_sub token: (Token id:Id.VSub_Name val:ANON span_id:2442) bracket_op: (bracket_op.ArrayIndex expr: (arith_expr.ArithWord w:{(DQ (${ Id.VSub_Name r))}) ) ) ) } ) (command.Sentence child: (C {(_rest)} {(DQ (${ Id.VSub_Name el))}) terminator: (Token id:Id.Op_Semi val:';' span_id:2461) ) (C {(local)} {(Id.Lit_VarLike 'args=') (DQ (braced_var_sub token: (Token id:Id.VSub_Name val:ANON span_id:2468) bracket_op: (bracket_op.ArrayIndex expr: (arith_expr.ArithWord w:{(DQ (${ Id.VSub_Name r))}) ) ) ) } ) (command.If arms: [ (if_arm cond: [ (command.Sentence child: (command.DBracket expr: (bool_expr.Binary op_id: Id.BoolBinary_GlobNEqual left: { (DQ (braced_var_sub token: (Token id: Id.VSub_Name val: f span_id: 2490 ) suffix_op: (suffix_op.PatSub pat: {('@')} replace: {(' ')} replace_mode: Id.Lit_Slash ) ) ) } right: {(DQ (${ Id.VSub_Name f))} ) ) terminator: (Token id:Id.Op_Semi val:';' span_id:2508) ) ] action: [ (C {(Id.KW_Set set)} {(--)} { (braced_var_sub token: (Token id:Id.VSub_Name val:f span_id:2518) suffix_op: (suffix_op.PatSub pat: {('@')} replace: {(' ')} replace_mode: Id.Lit_Slash ) ) } ) (command.ShAssignment pairs: [ (assign_pair lhs: (sh_lhs_expr.Name name:ast) op: assign_op.Equal rhs: {(DQ (${ Id.VSub_Number 2))} spids: [2527] ) ] ) (C {(ENV)} {(DQ (${ Id.VSub_Number 3))} {(DQ (${ Id.VSub_Number 4))} {(${ Id.VSub_Name args)} ) (command.ShAssignment pairs: [ (assign_pair lhs: (sh_lhs_expr.Name name:env) op: assign_op.Equal rhs: {(DQ (${ Id.VSub_Name r))} spids: [2554] ) ] ) ] spids: [2484 2510] ) ] else_action: [ (C {(eval)} { (braced_var_sub token: (Token id:Id.VSub_Name val:f span_id:2568) suffix_op: (suffix_op.Unary op_id: Id.VOp1_DPercent arg_word: {('@*')} ) ) } {(${ Id.VSub_Name args)} ) (command.ControlFlow token: (Token id:Id.ControlFlow_Return val:return span_id:2578) ) ] ) ] spids: [2379 2380 2588 -1] ) ] ) ] ) ) ] ) ) (command.ShFunction name: PRINT body: (command.BraceGroup children: [ (command.If arms: [ (if_arm cond: [ (command.Sentence child: (command.DBracket expr: (bool_expr.WordTest w:{(DQ (${ Id.VSub_Name __ERROR))}) ) terminator: (Token id:Id.Op_Semi val:';' span_id:2621) ) ] action: [ (C {(_pr_str)} {(DQ (${ Id.VSub_Name __ERROR))} {(yes)}) (command.ShAssignment pairs: [ (assign_pair lhs: (sh_lhs_expr.Name name:r) op: assign_op.Equal rhs: {(DQ ('Error: ') (${ Id.VSub_Name r))} spids: [2637] ) ] ) (command.ShAssignment pairs: [ (assign_pair lhs: (sh_lhs_expr.Name name:__ERROR) op: assign_op.Equal rhs: (word.Empty) spids: [2646] ) ] ) ] spids: [2610 2623] ) ] else_action: [(C {(_pr_str)} {(DQ (${ Id.VSub_Number 1))} {(yes)})] ) ] ) ) (command.CommandList children: [ (command.Sentence child: (C {(ENV)}) terminator: (Token id:Id.Op_Semi val:';' span_id:2672) ) (command.ShAssignment pairs: [ (assign_pair lhs: (sh_lhs_expr.Name name:REPL_ENV) op: assign_op.Equal rhs: {(DQ (${ Id.VSub_Name r))} spids: [2674] ) ] ) ] ) (command.ShFunction name: REP body: (command.BraceGroup children: [ (command.ShAssignment pairs: [ (assign_pair lhs: (sh_lhs_expr.Name name:r) op: assign_op.Equal rhs: (word.Empty) spids: [2689] ) ] ) (C {(READ)} {(DQ (${ Id.VSub_Number 1))}) (C {(EVAL)} {(DQ (${ Id.VSub_Name r))} {(DQ (${ Id.VSub_Name REPL_ENV))}) (C {(PRINT)} {(DQ (${ Id.VSub_Name r))}) ] ) ) (command.ShFunction name: _fref body: (command.BraceGroup children: [ (command.Sentence child: (C {(_symbol)} {(DQ (${ Id.VSub_Number 1))}) terminator: (Token id:Id.Op_Semi val:';' span_id:2745) ) (C {(local)} {(Id.Lit_VarLike 'sym=') (DQ (${ Id.VSub_Name r))}) (C {(_function)} { (DQ (${ Id.VSub_Number 2) (' ') (word_part.EscapedLiteral token: (Token id:Id.Lit_EscapedChar val:'\\"' span_id:2764) ) (word_part.EscapedLiteral token:(Token id:Id.Lit_EscapedChar val:'\\$' span_id:2765)) ('{@}') (word_part.EscapedLiteral token: (Token id:Id.Lit_EscapedChar val:'\\"' span_id:2767) ) ) } ) (C {(ENV_SET)} {(DQ (${ Id.VSub_Name REPL_ENV))} {(DQ (${ Id.VSub_Name sym))} {(DQ (${ Id.VSub_Name r))} ) ] ) ) (command.ForEach iter_name: n iter_words: [ { (DQ (braced_var_sub token: (Token id:Id.VSub_Name val:core_ns span_id:2802) prefix_op: (Id.VSub_Bang) bracket_op: (bracket_op.WholeArray op_id:Id.Lit_At) ) ) } ] do_arg_iter: F body: (command.DoGroup children: [ (command.Sentence child: (C {(_fref)} {(DQ (${ Id.VSub_Name n))} { (DQ (braced_var_sub token: (Token id:Id.VSub_Name val:core_ns span_id:2822) bracket_op: (bracket_op.ArrayIndex expr: (arith_expr.ArithWord w:{(DQ (${ Id.VSub_Name n))}) ) ) ) } ) terminator: (Token id:Id.Op_Semi val:';' span_id:2832) ) ] ) ) (command.ShFunction name: _eval body: (command.BraceGroup children: [ (command.Sentence child: (C {(EVAL)} {(DQ (${ Id.VSub_Number 1))} {(DQ (${ Id.VSub_Name REPL_ENV))}) terminator: (Token id:Id.Op_Semi val:';' span_id:2856) ) ] ) ) (C {(_fref)} {(DQ (eval))} {(_eval)}) (command.CommandList children: [ (command.Sentence child: (C {(_list)}) terminator: (Token id:Id.Op_Semi val:';' span_id:2869) ) (command.ShAssignment pairs: [ (assign_pair lhs: (sh_lhs_expr.Name name:argv) op: assign_op.Equal rhs: {(DQ (${ Id.VSub_Name r))} spids: [2871] ) ] ) ] ) (command.ForEach iter_name: _arg iter_words: [ { (DQ (braced_var_sub token: (Token id:Id.VSub_At val:'@' span_id:2886) suffix_op: (suffix_op.Slice begin:(arith_expr.ArithWord w:{(Id.Lit_Digits 2)})) ) ) } ] do_arg_iter: F body: (command.DoGroup children: [ (command.Sentence child: (C {(_string)} {(DQ (${ Id.VSub_Name _arg))}) terminator: (Token id:Id.Op_Semi val:';' span_id:2902) ) (command.Sentence child: (C {(_conj) (Id.KW_Bang '!')} {(DQ (${ Id.VSub_Name argv))} {(DQ (${ Id.VSub_Name r))}) terminator: (Token id:Id.Op_Semi val:';' span_id:2918) ) ] ) ) (C {(_symbol)} {(DQ (__STAR__ARGV__STAR__))}) (command.Sentence child: (C {(ENV_SET)} {(DQ (${ Id.VSub_Name REPL_ENV))} {(DQ (${ Id.VSub_Name r))} {(DQ (${ Id.VSub_Name argv))} ) terminator: (Token id:Id.Op_Semi val:';' span_id:2947) ) (C {(REP)} { (DQ ('(def! *host-language* ') (word_part.EscapedLiteral token: (Token id:Id.Lit_EscapedChar val:'\\"' span_id:2957) ) (bash) (word_part.EscapedLiteral token:(Token id:Id.Lit_EscapedChar val:'\\"' span_id:2959)) (')') ) } ) (C {(REP)} {(DQ ('(def! not (fn* (a) (if a false true)))'))}) (C {(REP)} { (DQ ('(def! load-file (fn* (f) (eval (read-string (str ') (word_part.EscapedLiteral token: (Token id:Id.Lit_EscapedChar val:'\\"' span_id:2973) ) ('(do ') (word_part.EscapedLiteral token:(Token id:Id.Lit_EscapedChar val:'\\"' span_id:2975)) (' (slurp f) ') (word_part.EscapedLiteral token:(Token id:Id.Lit_EscapedChar val:'\\"' span_id:2977)) (')') (word_part.EscapedLiteral token: (Token id:Id.Lit_EscapedChar val:'\\"' span_id:2979) ) (')))))') ) } ) (C {(REP)} { (DQ ( "(defmacro! cond (fn* (& xs) (if (> (count xs) 0) (list 'if (first xs) (if (> (count xs) 1) (nth xs 1) (throw " ) (word_part.EscapedLiteral token:(Token id:Id.Lit_EscapedChar val:'\\"' span_id:2987)) ('odd number of forms to cond') (word_part.EscapedLiteral token:(Token id:Id.Lit_EscapedChar val:'\\"' span_id:2989)) (")) (cons 'cond (rest (rest xs)))))))") ) } ) (C {(REP)} {(DQ ('(def! *gensym-counter* (atom 0))'))}) (C {(REP)} { (DQ ('(def! gensym (fn* [] (symbol (str ') (word_part.EscapedLiteral token: (Token id:Id.Lit_EscapedChar val:'\\"' span_id:3003) ) (G__) (word_part.EscapedLiteral token:(Token id:Id.Lit_EscapedChar val:'\\"' span_id:3005)) (' (swap! *gensym-counter* (fn* [x] (+ 1 x)))))))') ) } ) (C {(REP)} { (DQ ( '(defmacro! or (fn* (& xs) (if (empty? xs) nil (if (= 1 (count xs)) (first xs) (let* (condvar (gensym)) ' ) (word_part.EscapedLiteral token:(Token id:Id.Lit_EscapedChar val:'\\`' span_id:3013)) ('(let* (~condvar ~(first xs)) (if ~condvar ~condvar (or ~@(rest xs)))))))))') ) } ) (command.If arms: [ (if_arm cond: [ (command.Sentence child: (command.DBracket expr:(bool_expr.WordTest w:{(DQ (${ Id.VSub_Number 1))})) terminator: (Token id:Id.Op_Semi val:';' span_id:3032) ) ] action: [ (C {(REP)} { (DQ ('(load-file ') (word_part.EscapedLiteral token: (Token id:Id.Lit_EscapedChar val:'\\"' span_id:3041) ) (${ Id.VSub_Number 1) (word_part.EscapedLiteral token: (Token id:Id.Lit_EscapedChar val:'\\"' span_id:3045) ) (')') ) } ) (command.ControlFlow token: (Token id:Id.ControlFlow_Exit val:exit span_id:3050) arg_word: {(0)} ) ] spids: [3021 3034] ) ] ) (C {(REP)} { (DQ ('(println (str ') (word_part.EscapedLiteral token: (Token id:Id.Lit_EscapedChar val:'\\"' span_id:3065) ) ('Mal [') (word_part.EscapedLiteral token:(Token id:Id.Lit_EscapedChar val:'\\"' span_id:3067)) (' *host-language* ') (word_part.EscapedLiteral token:(Token id:Id.Lit_EscapedChar val:'\\"' span_id:3069)) (']') (word_part.EscapedLiteral token: (Token id:Id.Lit_EscapedChar val:'\\"' span_id:3071) ) ('))') ) } ) (command.WhileUntil keyword: (Token id:Id.KW_While val:while span_id:3075) cond: [ (command.Sentence child: (C {(true)}) terminator: (Token id:Id.Op_Semi val:';' span_id:3078) ) ] body: (command.DoGroup children: [ (command.AndOr ops: [Id.Op_DPipe] children: [ (C {(READLINE)} {(DQ ('user> '))}) (command.ControlFlow token: (Token id:Id.ControlFlow_Exit val:exit span_id:3091) arg_word: {(DQ ($ Id.VSub_QMark '$?'))} ) ] ) (command.AndOr ops: [Id.Op_DAmp Id.Op_DAmp] children: [ (command.DBracket expr:(bool_expr.WordTest w:{(DQ (${ Id.VSub_Name r))})) (C {(REP)} {(DQ (${ Id.VSub_Name r))}) (C {(echo)} {(DQ (${ Id.VSub_Name r))}) ] ) ] ) ) ] )