More work on cleaing up code.

client/main.c

@@ -105,7 +105,7 @@ void debug_repl(FILE *in, FILE *out) {
 }
 
 int main() {
-    printf("Super cool interpreter v0.0\n");
+    printf("GST v0.0 repl\nCopyright 2017 Calvin Rose\n");
     debug_repl(stdin, stdout);
     return 0;
 }

core/ds.c

@@ -248,8 +248,7 @@ GstValue gst_object_remove(Gst * vm, GstObject *o, GstValue key) {
     }
 }
 
-/* Put a value into the dictionary. Returns 1 if successful, 0 if out of memory.
- * The VM pointer is needed for memory allocation. */
+/* Put a value into the dictionary. */
 void gst_object_put(Gst *vm, GstObject *o, GstValue key, GstValue value) {
     GstBucket *bucket, *previous;
     uint32_t index = gst_hash(key) % o->capacity;

gsttests/basic.gst

@@ -0,0 +1,11 @@
+# Define assert
+(: assert (fn [x e] (if x x (do (print e) (exit 1)))))
+
+# Basic Math
+(assert (= 10 (+ 1 2 3 4), "addition")
+(assert (= -8 (- 1 2 3 4), "subtraction")
+(assert (= 24 (* 1 2 3 4), "multiplication")
+(assert (= 0.1 (/ 1 10), "division")
+
+# All good
+(exit 0)

libs/stl.gst

@@ -1,2 +1 @@
-# The standard library
-(fn + [...args]
+

sample.gst

@@ -1,12 +0,0 @@
-(do
-	(:= a (set-class {} {"call" (fn [self a] (set self "last" a) (print self) self)}))
-	(a 1)
-	(a 2)
-	(a 3)
-)
-
-# Run call-for-each test
-
-(call-for-each print 1 2 3 4)
-
-(call-for-each (fn [a] (print a "hi")) 1 2 3 45)