Add check in from_to_step

2021-06-25 11:19:19 +02:00 · 2021-06-25 11:19:19 +02:00 · b366bed24b
commit b366bed24b
parent 1975ccf804
1 changed files with 1 additions and 0 deletions
--- a/priv/stdlib/List.aes
+++ b/priv/stdlib/List.aes
@ -80,6 +80,7 @@ namespace List =
 * `b` only if `(b - a) mod step == 0`. `step` should be bigger than 0.
 */
  function from_to_step(a : int, b : int, s : int) : list(int) =
+    require(step > 0, "List.from_to_step: non-positive step")
    from_to_step_(a, b - (b-a) mod s, s, [])
  private function from_to_step_(a : int, b : int, s : int, acc : list(int)) : list(int) =
    if(b < a) acc