stability fix in put expr

Makefile

@@ -7,7 +7,7 @@ CC_DEBUG        := clang
 CC_PROF         := clang
 CC_UNIFIED      := zig cc
 CFLAGS_UNIFIED  := -Oz -static
-CFLAGS          := -Ofast -Wall
+CFLAGS          := -O3 -Wall
 CFLAGS_DEBUG    := -g
 CFLAGS_PROF     := -fprofile-instr-generate -fcoverage-mapping
 LDFLAGS         := -lm

src/main/engine/sm_ast_engine.c

@@ -1730,13 +1730,9 @@ sm_object *sm_engine_eval(sm_object *input, sm_cx *current_cx, sm_expr *sf) {
     case SM_PUT_EXPR: {
       sm_string *str;
       for (int i = 0; i < sme->size; i++) {
-        sm_object *evaluated = sm_engine_eval(sm_expr_get_arg(sme, i), current_cx, sf);
-        if (!expect_type(evaluated, SM_STRING_TYPE)) {
-          sm_symbol *title   = sm_new_symbol("typeMismatch", 12);
-          sm_string *message = sm_new_fstring_at(
-            sms_heap, "put function takes strings, but parameter %i was not a string", i);
-          return ((sm_object *)sm_new_error_from_expr(title, message, sme, NULL));
-        }
+        sm_object *evaluated = eager_type_check(sme, i, SM_STRING_TYPE, current_cx, sf);
+        if (evaluated->my_type != SM_STRING_TYPE)
+          return evaluated;
         str = (sm_string *)evaluated;
         for (uint32_t i = 0; i < str->size; i++)
           putchar((&str->content)[i]);