Permalink
Browse files

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

  • Loading branch information...
1 parent 22277be commit 8ac8840df3ae057ac128cfef066ab25c234c9c9a nineties committed Mar 8, 2013
Showing with 3 additions and 4 deletions.
  1. +3 −4 rowl1/rowl1-interp.rlc
View
@@ -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)
))

0 comments on commit 8ac8840

Please sign in to comment.