added distinct func for setting the realm

1 files changed, 6 insertions, 3 deletions

diff --git a/colm/program.c b/colm/program.c
index 013d98ed..fc728344 100644
--- a/colm/program.c
+++ b/colm/program.c
@@ -179,13 +179,16 @@ Tree *colm_return_val( struct colm_program *prg )
 	return prg->returnVal;
 }
 
-Program *colm_new_program( RuntimeData *rtd, long activeRealm )
+void colm_set_debug( Program *prg, long activeRealm )
+{
+	prg->activeRealm = activeRealm;
+}
+
+Program *colm_new_program( RuntimeData *rtd )
 {
 	Program *prg = malloc(sizeof(Program));
 	memset( prg, 0, sizeof(Program) );
 
-	prg->activeRealm = activeRealm;
-
 	assert( sizeof(Int)      <= sizeof(Tree) );
 	assert( sizeof(Str)      <= sizeof(Tree) );
 	assert( sizeof(Pointer)  <= sizeof(Tree) );