Minor cleanups to get compilation working on clang

README.md

@@ -13,3 +13,9 @@ func greeting(name:Text)->Text
 ```
 
 Check out the [test/](test/) folder to see some examples.
+
+## Dependencies
+
+Tomo uses the [Boehm garbage collector](https://www.hboehm.info/gc/) for
+runtime garbage collection (which is available from your package manager of
+choice, for example: `pacman -S gc`).

builtins/array.c

@@ -321,7 +321,8 @@ public uint32_t Array__hash(const array_t *arr, const TypeInfo *type)
     const TypeInfo *item = type->ArrayInfo.item;
     if (item->tag == PointerInfo || (item->tag == CustomInfo && item->CustomInfo.hash == NULL)) { // Raw data hash
         int64_t item_size = item->size;
-        uint8_t hash_batch[4 + 8*item_size] = {};
+        uint8_t hash_batch[4 + 8*item_size];
+        memset(hash_batch, 0, sizeof(hash_batch));
         uint8_t *p = hash_batch, *end = hash_batch + sizeof(hash_batch);
         int64_t length = arr->length;
         *p = (uint32_t)length;

builtins/functions.c

@@ -130,25 +130,6 @@ public CORD builtin_last_err()
     return CORD_from_char_star(strerror(errno));
 }
 
-static inline char *without_colors(const char *str)
-{
-    // Strip out color escape sequences: "\x1b[" ... "m"
-    size_t fmt_len = strlen(str);
-    char *buf = GC_malloc_atomic(fmt_len+1);
-    char *dest = buf;
-    for (const char *src = str; *src; ++src) {
-        if (src[0] == '\x1b' && src[1] == '[') {
-            src += 2;
-            while (*src && *src != 'm')
-                ++src;
-        } else {
-            *(dest++) = *src;
-        }
-    }
-    *dest = '\0';
-    return buf;
-}
-
 public void __doctest(void *expr, const TypeInfo *type, CORD expected, const char *filename, int64_t start, int64_t end)
 {
     static file_t *file = NULL;

builtins/table.c

@@ -271,7 +271,8 @@ public void *Table_reserve(table_t *t, const void *key, const void *value, const
 
     maybe_copy_on_write(t, type);
 
-    char buf[entry_size(type)] = {};
+    char buf[entry_size(type)];
+    memset(buf, 0, sizeof(buf));
     memcpy(buf, key, key_size);
     if (value && value_size > 0)
         memcpy(buf + value_offset(type), value, value_size);

compile.c

@@ -1454,10 +1454,11 @@ void compile_namespace(env_t *env, const char *ns_name, ast_t *block)
     for (ast_list_t *stmt = block ? Match(block, Block)->statements : NULL; stmt; stmt = stmt->next) {
         ast_t *ast = stmt->ast;
         switch (ast->tag) {
-        case FunctionDef:
+        case FunctionDef: {
             CORD code = compile_statement(ns_env, ast);
             env->code->funcs = CORD_cat(env->code->funcs, code);
             break;
+        }
         case Declare: {
             auto decl = Match(ast, Declare);
             type_t *t = get_type(ns_env, decl->value);