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