Fix bad behavior of [ lo .. hi ] syntax. Now [4..0] ==> [], not [0].

This commit is contained in:
evancz 2012-08-10 22:15:48 +02:00
parent dea401b9f8
commit 028d2eca51

View file

@ -171,7 +171,7 @@ jsNil = "[\"Nil\"]"
jsCons e1 e2 = jsList [ show "Cons", e1, e2 ] jsCons e1 e2 = jsList [ show "Cons", e1, e2 ]
jsRange e1 e2 = (++"()") . jsFunc "" $ jsRange e1 e2 = (++"()") . jsFunc "" $
assign "lo" e1 ++ assign "hi" e2 ++ assign "lst" jsNil ++ assign "lo" e1 ++ assign "hi" e2 ++ assign "lst" jsNil ++
"do{" ++ assign "lst" (jsCons "hi" "lst") ++ "}while(hi-->lo)" ++ "if(lo<=hi){do{" ++ assign "lst" (jsCons "hi" "lst") ++ "}while(hi-->lo)}" ++
ret "lst" ret "lst"
binop (o:p) e1 e2 binop (o:p) e1 e2