(command.CommandList children: [ (C {<source>} { (command_sub left_token: <Id.Left_DollarParen '$('> command_list: (command.CommandList children:[(C {<dirname>} {($ Id.VSub_Number '$0')})]) ) </reader.sh> } ) (C {<source>} { (command_sub left_token: <Id.Left_DollarParen '$('> command_list: (command.CommandList children:[(C {<dirname>} {($ Id.VSub_Number '$0')})]) ) </printer.sh> } ) (C {<source>} { (command_sub left_token: <Id.Left_DollarParen '$('> command_list: (command.CommandList children:[(C {<dirname>} {($ Id.VSub_Number '$0')})]) ) </env.sh> } ) (C {<source>} { (command_sub left_token: <Id.Left_DollarParen '$('> 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: <Id.Op_Semi _> ) ] 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: <Id.ControlFlow_Return return> arg_word: {<0>} ) ] ) ] spids: [98 110] ) ] ) (command.ControlFlow token:<Id.ControlFlow_Return return> 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: <Id.Op_Semi _> ) ] action: [ (C {<_symbol>} {<quote>}) (C {<_list>} {(DQ (${ Id.VSub_Name r))} {(DQ (${ Id.VSub_Number 1))}) (command.ControlFlow token:<Id.ControlFlow_Return return>) ] spids: [161 174] ) ] else_action: [ (command.Sentence child: (C {<_nth>} {(DQ (${ Id.VSub_Number 1))} {<0>}) terminator: <Id.Op_Semi _> ) (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: <Id.VSub_Name ANON> bracket_op: (bracket_op.ArrayIndex expr: (arith_expr.ArithWord w:{(DQ (${ Id.VSub_Name a0))}) ) ) ) } right: {(DQ <unquote>)} ) ) terminator: <Id.Op_Semi _> ) ] action: [ (C {<_nth>} {(DQ (${ Id.VSub_Number 1))} {<1>}) (command.ControlFlow token: <Id.ControlFlow_Return return> ) ] spids: [224 250] ) (if_arm cond: [ (command.Sentence child: (C {<IS_PAIR>} {(DQ (${ Id.VSub_Name a0))}) terminator: <Id.Op_Semi _> ) ] action: [ (command.Sentence child: (C {<_nth>} {(DQ (${ Id.VSub_Name a0))} {<0>}) terminator: <Id.Op_Semi _> ) (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: <Id.VSub_Name ANON> bracket_op: (bracket_op.ArrayIndex expr: (arith_expr.ArithWord w: {(DQ (${ Id.VSub_Name a00))} ) ) ) ) } right: {(DQ <splice-unquote>)} ) ) terminator: <Id.Op_Semi _> ) ] action: [ (command.Sentence child: (C {<_symbol>} {<concat>}) terminator: <Id.Op_Semi _> ) (C {<local>} {<Id.Lit_VarLike 'a='> (DQ (${ Id.VSub_Name r))}) (command.Sentence child: (C {<_nth>} {(DQ (${ Id.VSub_Name a0))} {<1>}) terminator: <Id.Op_Semi _> ) (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: <Id.Op_Semi _> ) (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: <Id.ControlFlow_Return return> ) ] spids: [302 328] ) ] ) ] spids: [267 278] ) ] ) ] ) (command.Sentence child:(C {<_symbol>} {<cons>}) terminator:<Id.Op_Semi _>) (C {<local>} {<Id.Lit_VarLike 'a='> (DQ (${ Id.VSub_Name r))}) (command.Sentence child: (C {<QUASIQUOTE>} {(DQ (${ Id.VSub_Name a0))}) terminator: <Id.Op_Semi _> ) (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: <Id.Op_Semi _> ) (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:<Id.ControlFlow_Return return>) ] ) ) (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: <Id.Op_Semi _> ) ] action: [ (command.Sentence child: (command.ControlFlow token:<Id.ControlFlow_Return return> arg_word:{<1>}) terminator: <Id.Op_Semi _> ) ] spids: [524 538] ) ] ) (command.Sentence child: (C {<_nth>} {(DQ (${ Id.VSub_Number 1))} {<0>}) terminator: <Id.Op_Semi _> ) (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: <Id.Op_Semi _> ) ] 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: <Id.Op_Semi _> ) ] action: [ (C {<ENV_GET>} {(DQ (${ Id.VSub_Number 2))} {(DQ (${ Id.VSub_Name a0))}) (C {<Id.Lit_LBracket '['>} { (DQ (braced_var_sub token: <Id.VSub_Name ANON> bracket_op: (bracket_op.ArrayIndex expr: (arith_expr.ArithWord w: {(DQ (${ Id.VSub_Name r) <_ismacro_>)} ) ) ) ) } {<Id.Lit_RBracket ']'>} ) (command.ControlFlow token: <Id.ControlFlow_Return return> arg_word: {($ Id.VSub_QMark '$?')} ) ] spids: [599 612] ) ] ) ] spids: [569 581] ) ] ) (command.ControlFlow token:<Id.ControlFlow_Return return> 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: <Id.KW_While while> cond: [ (command.Sentence child: (C {<IS_MACRO_CALL>} {(DQ (${ Id.VSub_Name ast))} {(DQ (${ Id.VSub_Name env))}) terminator: <Id.Op_Semi _> ) ] body: (command.DoGroup children: [ (command.Sentence child: (C {<_nth>} {(DQ (${ Id.VSub_Name ast))} {<0>}) terminator: <Id.Op_Semi _> ) (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: <Id.Op_Semi _> ) (C {<local>} {<Id.Lit_VarLike 'mac='> (DQ (braced_var_sub token: <Id.VSub_Name ANON> 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: <Id.VSub_Name mac> suffix_op: (suffix_op.Unary op_id:Id.VOp1_DPercent arg_word:{<'@*'>}) ) } { (braced_var_sub token: <Id.VSub_Name ANON> 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: <Id.Op_Semi _> ) (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:<Id.ControlFlow_Return return>) ] 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: <Id.VSub_Name ANON> bracket_op: (bracket_op.ArrayIndex expr: (arith_expr.ArithWord w:{(DQ (${ Id.VSub_Name ast))}) ) ) ) } ) (command.Sentence child: (C {<_hash_map>}) terminator: <Id.Op_Semi _> ) (C {<local>} {<Id.Lit_VarLike 'new_hm='> (DQ (${ Id.VSub_Name r))}) (C {<eval>} {<local>} {<Id.Lit_VarLike 'keys='> (DQ (word_part.EscapedLiteral token:<Id.Lit_EscapedChar '\\$'>) <'{!'> (${ 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:<Id.Lit_EscapedChar '\\$'>) <'{'> (${ Id.VSub_Name hm) <'['> (word_part.EscapedLiteral token:<Id.Lit_EscapedChar '\\"'>) (${ Id.VSub_Name key) (word_part.EscapedLiteral token: <Id.Lit_EscapedChar '\\"'> ) <']}'> ) } ) (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: <Id.KW_While while> cond: [(command.Sentence child:(C {<true>}) terminator:<Id.Op_Semi _>)] 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: <Id.ControlFlow_Return return> 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: <Id.Op_Semi _> ) ] action: [ (C {<EVAL_AST>} {(DQ (${ Id.VSub_Name ast))} {(DQ (${ Id.VSub_Name env))}) (command.ControlFlow token: <Id.ControlFlow_Return return> ) ] 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: <Id.Op_Semi _> ) ] action: [ (C {<EVAL_AST>} {(DQ (${ Id.VSub_Name ast))} {(DQ (${ Id.VSub_Name env))}) (command.ControlFlow token: <Id.ControlFlow_Return return> ) ] 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: <Id.ControlFlow_Return return> ) ] ) (command.Sentence child: (C {<_nth>} {(DQ (${ Id.VSub_Name ast))} {<0>}) terminator: <Id.Op_Semi _> ) (C {<local>} {<Id.Lit_VarLike 'a0='> (DQ (${ Id.VSub_Name r))}) (command.Sentence child: (C {<_nth>} {(DQ (${ Id.VSub_Name ast))} {<1>}) terminator: <Id.Op_Semi _> ) (C {<local>} {<Id.Lit_VarLike 'a1='> (DQ (${ Id.VSub_Name r))}) (command.Sentence child: (C {<_nth>} {(DQ (${ Id.VSub_Name ast))} {<2>}) terminator: <Id.Op_Semi _> ) (C {<local>} {<Id.Lit_VarLike 'a2='> (DQ (${ Id.VSub_Name r))}) (command.Case to_match: { (DQ (braced_var_sub token: <Id.VSub_Name ANON> 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: <Id.ControlFlow_Return return> arg_word: {<1>} ) ] ) (C {<ENV_SET>} {(DQ (${ Id.VSub_Name env))} {(DQ (${ Id.VSub_Name a1))} {(DQ (${ Id.VSub_Name r))} ) (command.ControlFlow token: <Id.ControlFlow_Return return> ) ] 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: <Id.Op_Semi _> ) (C {<local>} {<Id.Lit_VarLike 'let_env='> (DQ (${ Id.VSub_Name r))}) (C {<local>} {<Id.Lit_VarLike 'let_pairs='> (sh_array_literal left: <Id.Op_LParen _> words: [ { (braced_var_sub token: <Id.VSub_Name ANON> 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: <Id.KW_While while> cond: [ (command.Sentence child: (command.DBracket expr: (bool_expr.WordTest w: { (DQ (braced_var_sub token: <Id.VSub_Name let_pairs> bracket_op: (bracket_op.ArrayIndex expr: (arith_expr.ArithWord w: {(DQ (${ Id.VSub_Name idx))} ) ) ) ) } ) ) terminator: <Id.Op_Semi _> ) ] body: (command.DoGroup children: [ (C {<EVAL>} { (DQ (braced_var_sub token: <Id.VSub_Name let_pairs> 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: <Id.Lit_ArithVarLike idx> ) 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: <Id.VSub_Name let_pairs> 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: <Id.Lit_ArithVarLike idx> ) 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: <Id.ControlFlow_Return return> ) ] 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: <Id.ControlFlow_Return return> 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: <Id.ControlFlow_Return return> ) ] 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: <Id.ControlFlow_Return return> ) ] spids: [1727 1728 1748 -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: <Id.ControlFlow_Return return> ) ] ) (command.Sentence child: (C {<_nth>} {(DQ (${ Id.VSub_Name a2))} {<0>}) terminator: <Id.Op_Semi _> ) (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: <Id.VSub_Name ANON> 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: <Id.Op_Semi _> ) ] action: [ (command.Sentence child: (C {<_nth>} {(DQ (${ Id.VSub_Name a2))} {<1>}) terminator: <Id.Op_Semi _> ) (C {<local>} {<Id.Lit_VarLike 'a21='> (DQ (${ Id.VSub_Name r))}) (command.Sentence child: (C {<_nth>} {(DQ (${ Id.VSub_Name a2))} {<2>}) terminator: <Id.Op_Semi _> ) (C {<local>} {<Id.Lit_VarLike 'a22='> (DQ (${ Id.VSub_Name r))}) (command.Sentence child: (C {<_list>} {(DQ (${ Id.VSub_Name a21))}) terminator: <Id.Op_Semi _> ) (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: [1930] ) ] ) (C {<EVAL>} {(DQ (${ Id.VSub_Name a22))} {(DQ (${ Id.VSub_Name try_env))} ) ] spids: [1808 1835] ) ] ) (command.ControlFlow token: <Id.ControlFlow_Return return> ) ] spids: [1751 1753 1956 -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: [2022] ) ] ) (command.ControlFlow token: <Id.ControlFlow_Return return> 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: [2040] ) ] ) ] spids: [1959 1960 2052 -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: <Id.ControlFlow_Return return> 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: <Id.Op_Semi _> ) ] action: [ (command.Sentence child: (C {<_nth>} {(DQ (${ Id.VSub_Name ast))} {<3>}) terminator: <Id.Op_Semi _> ) (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: <Id.Op_Semi _> ) ] action: [ (command.ShAssignment pairs: [ (assign_pair lhs: (sh_lhs_expr.Name name:ast) op: assign_op.Equal rhs: {(DQ (${ Id.VSub_Name a3))} spids: [2171] ) ] ) ] spids: [2155 2168] ) ] 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: [2182] ) ] ) (command.ControlFlow token: <Id.ControlFlow_Return return> ) ] ) ] spids: [2090 2127] ) ] 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: [2203] ) ] ) ] ) ] spids: [2055 2056 2218 -1] ) (case_arm pat_list: [{<fn> <Id.Lit_Star '*'>}] action: [ (C {<_function>} { (DQ <'ENV '> (word_part.EscapedLiteral token: <Id.Lit_EscapedChar '\\"'> ) (${ Id.VSub_Name env) (word_part.EscapedLiteral token:<Id.Lit_EscapedChar '\\"'>) <' '> (word_part.EscapedLiteral token: <Id.Lit_EscapedChar '\\"'> ) (${ Id.VSub_Name a1) (word_part.EscapedLiteral token:<Id.Lit_EscapedChar '\\"'>) <' '> (word_part.EscapedLiteral token: <Id.Lit_EscapedChar '\\"'> ) (word_part.EscapedLiteral token:<Id.Lit_EscapedChar '\\$'>) <'{@}'> (word_part.EscapedLiteral token: <Id.Lit_EscapedChar '\\"'> ) <'; '> <' EVAL '> (word_part.EscapedLiteral token:<Id.Lit_EscapedChar '\\"'>) (${ Id.VSub_Name a2) (word_part.EscapedLiteral token:<Id.Lit_EscapedChar '\\"'>) <' '> (word_part.EscapedLiteral token: <Id.Lit_EscapedChar '\\"'> ) (word_part.EscapedLiteral token:<Id.Lit_EscapedChar '\\$'>) <'{r}'> (word_part.EscapedLiteral token: <Id.Lit_EscapedChar '\\"'> ) ) } {(DQ (${ Id.VSub_Name a2))} {(DQ (${ Id.VSub_Name env))} {(DQ (${ Id.VSub_Name a1))} ) (command.ControlFlow token: <Id.ControlFlow_Return return> ) ] spids: [2221 2223 2283 -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: [2316] ) ] ) (command.ControlFlow token: <Id.ControlFlow_Return return> 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: <Id.Op_Semi _> ) (C {<local>} {<Id.Lit_VarLike 'f='> (DQ (braced_var_sub token: <Id.VSub_Name ANON> 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: <Id.Op_Semi _> ) (C {<local>} {<Id.Lit_VarLike 'args='> (DQ (braced_var_sub token: <Id.VSub_Name ANON> 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: <Id.VSub_Name f> suffix_op: (suffix_op.PatSub pat: {<'@'>} replace: {<' '>} replace_mode: Id.Lit_Slash ) ) ) } right: {(DQ (${ Id.VSub_Name f))} ) ) terminator: <Id.Op_Semi _> ) ] action: [ (C {<Id.KW_Set set>} {<-->} { (braced_var_sub token: <Id.VSub_Name f> 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: [2434] ) ] ) (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: [2461] ) ] ) ] spids: [2391 2417] ) ] else_action: [ (C {<eval>} { (braced_var_sub token: <Id.VSub_Name f> suffix_op: (suffix_op.Unary op_id: Id.VOp1_DPercent arg_word: {<'@*'>} ) ) } {(${ Id.VSub_Name args)} ) (command.ControlFlow token: <Id.ControlFlow_Return return> ) ] ) ] spids: [2286 2287 2495 -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: <Id.Op_Semi _> ) ] 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: [2544] ) ] ) (command.ShAssignment pairs: [ (assign_pair lhs: (sh_lhs_expr.Name name:__ERROR) op: assign_op.Equal rhs: (word.Empty) spids: [2553] ) ] ) ] spids: [2517 2530] ) ] else_action: [(C {<_pr_str>} {(DQ (${ Id.VSub_Number 1))} {<yes>})] ) ] ) ) (command.CommandList children: [ (command.Sentence child:(C {<ENV>}) terminator:<Id.Op_Semi _>) (command.ShAssignment pairs: [ (assign_pair lhs: (sh_lhs_expr.Name name:REPL_ENV) op: assign_op.Equal rhs: {(DQ (${ Id.VSub_Name r))} spids: [2581] ) ] ) ] ) (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: [2596] ) ] ) (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: <Id.Op_Semi _> ) (C {<local>} {<Id.Lit_VarLike 'sym='> (DQ (${ Id.VSub_Name r))}) (C {<_function>} { (DQ (${ Id.VSub_Number 2) <' '> (word_part.EscapedLiteral token:<Id.Lit_EscapedChar '\\"'>) (word_part.EscapedLiteral token:<Id.Lit_EscapedChar '\\$'>) <'{@}'> (word_part.EscapedLiteral token:<Id.Lit_EscapedChar '\\"'>) ) } ) (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: <Id.VSub_Name core_ns> 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: <Id.VSub_Name core_ns> bracket_op: (bracket_op.ArrayIndex expr: (arith_expr.ArithWord w:{(DQ (${ Id.VSub_Name n))}) ) ) ) } ) terminator: <Id.Op_Semi _> ) ] ) ) (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: <Id.Op_Semi _> ) ] ) ) (C {<_fref>} {(DQ <eval>)} {<_eval>}) (command.CommandList children: [ (command.Sentence child:(C {<_list>}) terminator:<Id.Op_Semi _>) (command.ShAssignment pairs: [ (assign_pair lhs: (sh_lhs_expr.Name name:argv) op: assign_op.Equal rhs: {(DQ (${ Id.VSub_Name r))} spids: [2778] ) ] ) ] ) (command.ForEach iter_name: _arg iter_words: [ { (DQ (braced_var_sub token: <Id.VSub_At '@'> 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: <Id.Op_Semi _> ) (command.Sentence child: (C {<_conj> <Id.KW_Bang '!'>} {(DQ (${ Id.VSub_Name argv))} {(DQ (${ Id.VSub_Name r))}) terminator: <Id.Op_Semi _> ) ] ) ) (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: <Id.Op_Semi _> ) (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:<Id.Lit_EscapedChar '\\"'>) <'(do '> (word_part.EscapedLiteral token:<Id.Lit_EscapedChar '\\"'>) <' (slurp f) '> (word_part.EscapedLiteral token:<Id.Lit_EscapedChar '\\"'>) <')'> (word_part.EscapedLiteral token:<Id.Lit_EscapedChar '\\"'>) <')))))'> ) } ) (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:<Id.Lit_EscapedChar '\\"'>) <'odd number of forms to cond'> (word_part.EscapedLiteral token:<Id.Lit_EscapedChar '\\"'>) <")) (cons 'cond (rest (rest xs)))))))"> ) } ) (C {<REP>} { (DQ <'(defmacro! or (fn* (& xs) (if (empty? xs) nil (if (= 1 (count xs)) (first xs) '> (word_part.EscapedLiteral token:<Id.Lit_EscapedChar '\\`'>) <'(let* (or_FIXME ~(first xs)) (if or_FIXME or_FIXME (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: <Id.Op_Semi _> ) ] action: [ (C {<REP>} { (DQ <'(load-file '> (word_part.EscapedLiteral token:<Id.Lit_EscapedChar '\\"'>) (${ Id.VSub_Number 1) (word_part.EscapedLiteral token:<Id.Lit_EscapedChar '\\"'>) <')'> ) } ) (command.ControlFlow token:<Id.ControlFlow_Exit exit> arg_word:{<0>}) ] spids: [2902 2915] ) ] ) (command.WhileUntil keyword: <Id.KW_While while> cond: [(command.Sentence child:(C {<true>}) terminator:<Id.Op_Semi _>)] body: (command.DoGroup children: [ (command.AndOr ops: [Id.Op_DPipe] children: [ (C {<READLINE>} {(DQ <'user> '>)}) (command.ControlFlow token: <Id.ControlFlow_Exit exit> 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))}) ] ) ] ) ) ] )