M scripts/test.hex → scripts/test.hex

@@ -4,10 +4,12 @@ 0x0 "test-count" :
 0x0 "successes" :
 0x0 "failures" :
 () "errors" :
+errors puts
 () "fails" :
 0x0 "result" :
 
 (dup puts) "_" ::
+
 
 (
     "current-test" :
@@ -115,11 +117,11 @@ 
     ;("0.0.0.0" "." split ("0" "0" "0" "0") ==)
     ;("Hello, World!" "Hello" "Goodbye" replace "Goodbye, World!" ==)
     ;("test" "test.txt" write "test.txt" read "test" ==)
-    ("!" "test.txt" append "test.txt" read "test!" ==)
+    ;("!" "test.txt" append "test.txt" read "test!" ==)
     ;52
 
     ;("rm test.txt" exec 0x0 ==)
-    ("rm test.txt" run 0x0 get 0x1 ==)
+    ;("rm test.txt" run 0x0 get 0x1 ==)
     ("ls web/contents" run 0x1 get "\n" split len 0x7 ==)
     (args 0x1 get "scripts/test.hbx" ==)
     ;56

M src/symbols.c → src/symbols.c

@@ -1479,7 +1479,8 @@ {
         hex_error(ctx, "[symbol cat] Memory allocation failed");
         return 1;
     }
-    HEX_POP(ctx, value);
+    //HEX_POP(ctx, value);
+    value = hex_pop(ctx);
     if (value->type == HEX_TYPE_INVALID)
     {
         HEX_FREE(ctx, value);