src/c/main.c~

   1 #include "assertions.h"
   2 #include "scheme.h"
   3 #include <stdio.h>
   4
   5 /* Stack (initialized in arch.c) */
   6 int* stack;
   7 int sp;
   8 int fp;
   9
  10 /* General Purpose Registers (initialized in arch.c) */
  11 int* r;
  12 int r_res;
  13
  14 /* Top Level */
  15 SymbolNode *topLevel;
  16
  17 /* Entry point */
  18 int main() {
  19     topLevel = NULL; /* todo: add build-in procedures */
  20
  21     schemeCompiledFunction();
  22     ASSERT_ALWAYS(r_res!=0,"");
  23
  24     if ( IS_SOB_VOID(r_res) ) goto Lend;
  25     printf( sobToString(SOB(r_res)) );
  26 Lend:
  27     return 0;
  28 }