diff options
| author | Kathy Gray | 2015-01-15 16:03:23 +0000 |
|---|---|---|
| committer | Kathy Gray | 2015-01-15 16:03:23 +0000 |
| commit | 4efce161754548f8497c7952949bc2fff73d9dbc (patch) | |
| tree | b5e12b2f54978d4d4e2bcd646b3c1b247b5ef94d /src | |
| parent | 2467b590dcbae4b0ea6a81bc45851395867d5b68 (diff) | |
Fix for loop error causing premature stopping
Diffstat (limited to 'src')
| -rw-r--r-- | src/lem_interp/interp.lem | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/lem_interp/interp.lem b/src/lem_interp/interp.lem index 23635092..42073bf1 100644 --- a/src/lem_interp/interp.lem +++ b/src/lem_interp/interp.lem @@ -1238,7 +1238,7 @@ and interp_main mode t_level l_env l_mem (E_aux exp (l,annot)) = let (by_e,env) = to_exp mode le by_val_whole in match by_val with | V_lit (L_aux (L_num by_num) bl) -> - if ((is_inc && (from_num >= to_num)) || (from_num <= to_num)) + if ((is_inc && (from_num >= to_num)) || (not(is_inc) && (from_num <= to_num))) then (Value(V_lit (L_aux L_unit l)),lm,le) else let (ftyp,ttyp,btyp) = (val_typ from_val,val_typ to_val,val_typ by_val) in |