Fix bug in letfn parser; add all bindings to env

Signed-off-by: James Hamlin <jfhamlin@gmail.com>

Author: jfhamlin

pkg/compiler/analyze.go

@@ -1111,7 +1111,7 @@ func (a *Analyzer) parseLetfnStar(form interface{}, env Env) (*ast.Node, error)
 	}
 	e := env
 	for name, bind := range bindsMap {
-		e = updateIn(env, vec(KWLocals), merge, NewMap(name, bind)).(Env)
+		e = updateIn(e, vec(KWLocals), merge, NewMap(name, bind)).(Env)
 	}
 	var binds []*ast.Node
 	for name, bind := range bindsMap {

test/glojure/test_glojure/lcm.glj

@@ -0,0 +1,14 @@
+(ns glojure.test-glojure.lcm
+  (:use glojure.test))
+
+(defn lcm
+  [& x]
+  (letfn [(gcd [a b] (if (zero? b) a (gcd b (mod a b))))
+          (lcm [a b] (/ (* a b) (gcd a b)))]
+    (reduce lcm x)))
+
+(deftest lcmtest
+  (is (= 6 (lcm 2 3))
+      "lcm of 2 and 3 is 6"))
+
+(run-tests)