Recursive function that does not terminate!

2009-06-23 Thread pupsik
The following recursive function does not terminate if I exexute it in my REPL. What is wrong? (This example is from the official Clojure-website). (defn my-zipmap [keys vals] (loop [my-map {} my-keys (seq keys) my-vals (seq vals)] (if (and my-keys my-vals) (recur (a

Recursive function that does not terminate!

2009-06-23 Thread pupsik
When I execute the following code snippet in the REPL I get an infinite loop. (The example is from the official Clojure-website, topic 'Functional Programming') What is wrong? (defn my-zipmap [keys vals] (loop [my-map {} my-keys (seq keys) my-vals (seq vals)] (if (and my-