Fix a divide by 0 error when table is too small.

core/ds.c

@@ -176,7 +176,9 @@ void *gst_userdata(Gst *vm, uint32_t size, const GstUserType *utype) {
 /* Create a new table */
 GstTable *gst_table(Gst *vm, uint32_t capacity) {
     GstTable *t = gst_alloc(vm, sizeof(GstTable));
-    GstValue *data = gst_zalloc(vm, capacity * sizeof(GstValue));
+    GstValue *data;
+    if (capacity < 2) capacity = 2;
+    data = gst_zalloc(vm, capacity * sizeof(GstValue));
     t->data = data;
     t->capacity = capacity;
     t->count = 0;

libs/compile.gst

@@ -25,6 +25,3 @@
     'literalsArray []
     'slotMap []
 }))
-
-# Push a scope onto the compiler
-

libs/pp.gst

@@ -6,7 +6,7 @@
 # Pretty print an array or tuple
 (: print-seq (fn [start end a seen]
     (: seen (if seen seen {}))
-    (if (get seen s) (get seen s)
+    (if (get seen a) (get seen a)
         (do
             (: parts [])
             (: len (length a))
@@ -18,7 +18,7 @@
             (if (> len 0) (pop! parts))
             (push! parts end)
             (: ret (apply string start parts))
-            (set! seen s ret)
+            (set! seen a ret)
             ret))))
 
 # Pretty print an object or struct
@@ -53,7 +53,4 @@
     (: h (get handlers (type x)))
     ((if h h tostring) x seen)))
 
-(print (pp [1 {4 5 6 7} 2 3]))
-
-# Module export pattern - last expression in file is value of module
-pp
+# (print (pp [1 {4 5 6 7} 2 3]))