Adjust initial allocations to improve memory efficiency.

Also convert existing .rls (Rosella Source) files to module syntax.

rosella.c

@@ -47,7 +47,7 @@ int main(int argc, char **argv)
   }
 #endif
 
-  gc_init(6*1024*1024, 10*1024*1024, 16*1024*1024);
+  gc_init(1024*1024, 1024*1024, 4*1024*1024);
   builtin_init();
   interpreter_init();
 

src/examples/fact-iter.rls

@@ -1,5 +1,6 @@
-(letrec ([fact-iter (lambda (n product)
-                      (if (fix> n 1)
-                          (fact-iter (fix- n 1) (fix* n product))
-                          product))])
-  (fact-iter (string->number (car argv)) 1))
+(define (fact-iter n product)
+   (if (fix> n 1)
+       (fact-iter (fix- n 1) (fix* n product))
+       product))
+
+(fact-iter (string->number (car *argv*)) 1)

src/examples/fact-recurse.rls

@@ -1,5 +1,6 @@
-(letrec ([fact (lambda (n)
-                 (if (fix> n 1)
-                     (fix* n (fact (fix- n 1)))
-                     1))])
-  (fact (string->number (car argv))))
+(define (fact n)
+   (if (fix> n 1)
+       (fix* n (fact (fix- n 1)))
+       1))
+
+(fact (string->number (car *argv*)))