@@ -44,9 +44,7 @@ impl Runtime {
4444 for v in vals {
4545 eval_status. value_stack . push ( v. clone ( ) ) ;
4646 }
47- eval_status
48- . work_stack
49- . push ( EvalStep :: Apply ( None , size) ) ;
47+ eval_status. work_stack . push ( EvalStep :: Apply ( None , size) ) ;
5048 self . eval ( & mut eval_status, & mut env) ?;
5149 Ok ( eval_status. value_stack . pop ( ) . unwrap_or ( Value :: Nil ) )
5250 }
@@ -253,10 +251,7 @@ impl Runtime {
253251 Expression :: Cond ( _, cond) => {
254252 eval_status. work_stack . push ( EvalStep :: Select (
255253 Box :: new ( EvalStep :: Expression ( binding_name. clone ( ) , cond. if_true ) ) ,
256- Box :: new ( EvalStep :: Expression (
257- binding_name. clone ( ) ,
258- cond. if_false ,
259- ) ) ,
254+ Box :: new ( EvalStep :: Expression ( binding_name. clone ( ) , cond. if_false ) ) ,
260255 ) ) ;
261256 eval_status
262257 . work_stack
@@ -295,7 +290,7 @@ impl Runtime {
295290 eval_status : & mut EvalStatus ,
296291 vals : & [ Value ] ,
297292 current_env : & mut Environment ,
298- binding_name : & Option < Name >
293+ binding_name : & Option < Name > ,
299294 ) -> Result < ( ) > {
300295 info ! ( "Applying {} to {} arguments" , & vals[ 0 ] , & vals[ 1 ..] . len( ) ) ;
301296 match & vals[ 0 ] {
@@ -346,10 +341,9 @@ impl Runtime {
346341 }
347342 mem:: swap ( & mut env, current_env) ;
348343 eval_status. work_stack . push ( EvalStep :: ReplaceEnv ( env) ) ;
349- eval_status. work_stack . push ( EvalStep :: Expression (
350- binding_name. clone ( ) ,
351- lam. body . clone ( ) ,
352- ) ) ;
344+ eval_status
345+ . work_stack
346+ . push ( EvalStep :: Expression ( binding_name. clone ( ) , lam. body . clone ( ) ) ) ;
353347 None
354348 }
355349 Code :: ExternSimple ( ext) => Some ( ext ( & args) ?) ,
0 commit comments