some print cases

interpreter/main.c

@@ -57,7 +57,7 @@ int main()
 	// char* funstream = "160 F13 example.Start0 0 AF11 example.map2 VF11 example.incAF17 _predefined._Cons2 LI1 AF17 _predefined._Cons2 LI2 AF17 _predefined._Cons2 LI3 VF16 _predefined._Nil36 F11 example.inc1 1 AF3 add2 VA0 LI1 148 F11 example.map2 1 SVA0 2 C16 _predefined._NilVF16 _predefined._NilC17 _predefined._ConsAF17 _predefined._Cons2 AA1 1 VL0 AF11 example.map2 VA1 VL1 50 A2 17 _predefined._Cons2 0 16 _predefined._Nil0 0 ";
 	// [_predefined._Cons [2] [_predefined._Cons [3] [_predefined._Cons [4] [_predefined._Nil]]]]
 	
-	char* funstream = "44 F13 example.Start0 0 AF11 example.fib1 LI35 119 F11 example.fib1 1 IAF2 lt2 VA0 LI2 LI1 AF3 add2 AF11 example.fib1 AF3 sub2 VA0 LI1 AF11 example.fib1 AF3 sub2 VA0 LI2 ";
+	char* funstream = "43 F13 example.Start0 0 AF11 example.fib1 LI3 119 F11 example.fib1 1 IAF2 lt2 VA0 LI2 LI1 AF3 add2 AF11 example.fib1 AF3 sub2 VA0 LI1 AF11 example.fib1 AF3 sub2 VA0 LI2 ";
 	
 	int nrfuns = parse(&funstream, strlen(funstream));		
 	printf("Number of functions parsed: %d\n", nrfuns);	

interpreter/thunk.c

@@ -18,6 +18,9 @@ int printDesc(Desc* f)
 		case FT_SLICE:
 			printDesc(((SliceEntry*) f)->forward_ptr);
 			return f->arity;
+		case FT_PRIM:
+			printf("%s", ((PrimEntry*) f)->name);
+			return f->arity;			
 		case FT_FUN:
 			printf("%s", ((FunEntry*) f)->name);
 			return f->arity;
@@ -150,8 +153,8 @@ void eval(Thunk* thunk)
 			thunk =  thunk->_forward_ptr;
 		}
 		
-		//print(thunk, false);
-		//printf("\n");		
+		print(thunk, false);
+		printf("\n");		
 		
 		switch(thunk->desc->type)
 		{
@@ -207,9 +210,20 @@ void print(Thunk* thunk, bool force)
 		{
 			printf("%d", thunk->_int);
 		}
+		else if((FunEntry*) thunk->desc == __BOOL__)
+		{
+			if(thunk->_bool)
+			{
+				printf("True");
+			}
+			else
+			{
+				printf("False");
+			}
+		}		
 		else
 		{
-			printf("printDesc: unhandled BOXED LIT\n");
+			printf("print: unhandled BOXED LIT\n");
 			exit(-1);						
 		}		
 	}