[FIX]forgot revert current-module

diff --git a/example/class.scm b/example/class.scm
index 4cd607b..be85424 100644 (file)
--- a/example/class.scm
+++ b/example/class.scm
@@ -11,7 +11,7 @@
 (define-class Foo (Object) (x y))
 (define-method init ([self Foo] x)
   (print x)
-  (let ((t 10)) 
+  (let ((t 10))
     (let ((t 12))
       (print t))))
 

diff --git a/src/bindCheck.ml b/src/bindCheck.ml
index 24bf248..a0b82fb 100644 (file)
--- a/src/bindCheck.ml
+++ b/src/bindCheck.ml
@@ -127,7 +127,9 @@ let rec check_stmt exports env : stmt -> env =
                name
              else
                env.current ^ "." ^ name} in
-         List.fold_left (check_stmt exports) env' body
+       let env'' =
+         List.fold_left (check_stmt exports) env' body in
+         {env'' with current = env.current}
     | `Expr expr ->
        check_expr env expr;
        env