Fix bad behavior of [ lo .. hi ]
syntax. Now [4..0] ==> [], not [0].
This commit is contained in:
parent
dea401b9f8
commit
028d2eca51
1 changed files with 1 additions and 1 deletions
|
@ -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
|
||||||
|
|
Loading…
Reference in a new issue