Fixed return-value of BeginModule{...} and EndModule{...}

nineties · Mar 8, 2013 · 8ac8840 · 8ac8840
1 parent 22277be
commit 8ac8840
Showing 1 changed file with 3 additions and 4 deletions.
diff --git a/rowl1/rowl1-interp.rlc b/rowl1/rowl1-interp.rlc
@@ -2,7 +2,7 @@
 ; rowl - 1st generation
 ; Copyright (C) 2010 nineties
 ;
-; $Id: rowl1-interp.rlc 2013-03-09 00:55:06 nineties $
+; $Id: rowl1-interp.rlc 2013-03-09 02:03:33 nineties $
 ;
 
 (import "rlvm-compile")
@@ -293,7 +293,7 @@
     (var module (create_module current_mod modsig))
     (= module_stack (cons module module_stack))
     (set_current_module module)
-    (return module)
+    (return @C_TRUE)
     ))
 
 (export fun eval_end_module (expr) (
@@ -308,9 +308,8 @@
     (if (! module) 
         (throw (exception current_mod (string "can not exit global-scope")))
         )
-    (var r current_mod)
     (set_current_module module)
-    (return r)
+    (return @C_TRUE)
     ))