Print chars and booleans

scm/inc/compiler.scm

@@ -11,7 +11,7 @@
  (define (immediate-rep x)
    (cond
      ((integer? x) (bitwise-arithmetic-shift x fixnum-shift))
      ((char? x) (bitwise-xor (bitwise-arithmetic-shift (char->integer x) 8) char-shift))
      ((char? x) (bitwise-xor (bitwise-arithmetic-shift (char->integer x) char-shift) #b00001111))
      ((boolean? x) (bitwise-xor (bitwise-arithmetic-shift (cond
                                                             ((boolean=? x #t) 1)
                                                             ((boolean=? x #f) 0))

scm/inc/driver.c

@@ -6,6 +6,13 @@
#define fixnum_tag   0 // 00
#define fixnum_shift 2
#define char_mask 240  // 11110000
#define char_tag  15   // 00001111
#define char_shift 8
#define boolean_mask  96 // 1100000
#define boolean_shift 7
#define empty_list   47 // 00101111
int scheme_entry();
@@ -14,6 +21,10 @@ int main(int argc, char **argv) {
	int val = scheme_entry();
	if ((val & fixnum_mask) == fixnum_tag) {
		printf("%d\n", val >> fixnum_shift);
	} else if ((val & char_mask) == 0) {
		printf("#\\%c\n", val >> char_shift);
	} else if ((val & boolean_mask) == 0) {
		printf("#%s\n", (val >> boolean_shift) == 1 ? "t" : "f");
	} else if (val == empty_list) {
		printf("()\n");
	} else {