@@ -1470,7 +1470,7 @@ compile_remove_subexpr(Compile *compile, PElement *root)
14701470
14711471/* This is a def with multiple RHS. Check that:
14721472 *
1473- * - all defs hjave the same number of args
1473+ * - all defs have the same number of args
14741474 * - no more then def RHS has no pattern matching args
14751475 * - if there is a no-pattern def, it must be the last one
14761476 */
@@ -2316,8 +2316,7 @@ compile_lcomp(Compile *compile)
23162316 /* A filter.
23172317 */
23182318 n1 = compile_copy_tree (compile ,
2319- element -> expr -> compile -> tree ,
2320- scope );
2319+ element -> expr -> compile -> tree , scope );
23212320 n2 = tree_leafsym_new (scope , child );
23222321 n3 = tree_leaf_new (scope , "$$sofar" );
23232322 n1 = tree_ifelse_new (scope , n1 , n2 , n3 );
@@ -2335,8 +2334,7 @@ compile_lcomp(Compile *compile)
23352334 IOBJECT (element )-> name );
23362335 param1 -> generated = TRUE;
23372336 symbol_parameter_init (param1 );
2338- param2 = symbol_new_defining (child -> expr -> compile ,
2339- "$$sofar" );
2337+ param2 = symbol_new_defining (child -> expr -> compile , "$$sofar" );
23402338 param2 -> generated = TRUE;
23412339 symbol_parameter_init (param2 );
23422340
@@ -2365,8 +2363,7 @@ compile_lcomp(Compile *compile)
23652363 }
23662364 n3 = tree_appl_new (scope , n3 , n2 );
23672365 n2 = compile_copy_tree (compile ,
2368- element -> expr -> compile -> tree ,
2369- scope );
2366+ element -> expr -> compile -> tree , scope );
23702367 n3 = tree_appl_new (scope , n3 , n2 );
23712368 scope -> tree = n3 ;
23722369
0 commit comments