From 1c9f11717c942c09174d3e21ed4cb4db9736102a Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 23 Mar 2009 13:23:25 +0000 Subject: [PATCH] remove unnecessary loop svn: r14231 --- src/mzscheme/src/eval.c | 12 ++++-------- 1 file changed, 4 insertions(+), 8 deletions(-) diff --git a/src/mzscheme/src/eval.c b/src/mzscheme/src/eval.c index cc22486294..9efc9e879a 100644 --- a/src/mzscheme/src/eval.c +++ b/src/mzscheme/src/eval.c @@ -2903,14 +2903,10 @@ static Scheme_Object *optimize_branch(Scheme_Object *o, Optimize_Info *info) t = scheme_optimize_expr(t, info); /* For test position, convert (if #t #f) to */ - while (1) { - if (SAME_TYPE(SCHEME_TYPE(t), scheme_branch_type) - && SAME_OBJ(((Scheme_Branch_Rec *)t)->tbranch, scheme_true) - && SAME_OBJ(((Scheme_Branch_Rec *)t)->fbranch, scheme_false)) - t = ((Scheme_Branch_Rec *)t)->test; - else - break; - } + if (SAME_TYPE(SCHEME_TYPE(t), scheme_branch_type) + && SAME_OBJ(((Scheme_Branch_Rec *)t)->tbranch, scheme_true) + && SAME_OBJ(((Scheme_Branch_Rec *)t)->fbranch, scheme_false)) + t = ((Scheme_Branch_Rec *)t)->test; if (SCHEME_TYPE(t) > _scheme_compiled_values_types_) { if (SCHEME_FALSEP(t))