From ffcd9bbebdd3e1dc1c5d57d40b96e4ce9c532939 Mon Sep 17 00:00:00 2001
From: Omar Rizwan <omar@omar.website>
Date: Fri, 21 Jul 2023 15:15:41 -0400
Subject: c: Some new errors.

---
 lib/c.tcl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'lib')

diff --git a/lib/c.tcl b/lib/c.tcl
index 9e7c7811..165ab723 100644
--- a/lib/c.tcl
+++ b/lib/c.tcl
@@ -45,7 +45,7 @@ namespace eval c {
                 #include <stdbool.h>
 
                 #define __ENSURE(EXPR) if (!(EXPR)) { Tcl_SetResult(interp, "failed to convert argument from Tcl to C in: " #EXPR, NULL); return TCL_ERROR; }
-                #define __ENSURE_OK(EXPR) if ((EXPR) != TCL_OK) { return TCL_ERROR; }
+                #define __ENSURE_OK(EXPR) if ((EXPR) != TCL_OK) { Tcl_SetResult(interp, "failed to convert argument from Tcl to C in: " #EXPR, NULL); return TCL_ERROR; }
             }
             variable code [list]
             variable objtypes [list]
@@ -260,6 +260,7 @@ namespace eval c {
                         snprintf(objPtr->bytes, objPtr->length + 1, format, $[join [lmap fieldname $fieldnames {expr {"Tcl_GetString(robj_$fieldname)"}}] ", "]);
                     }
                     int $[set type]_setFromAnyProc(Tcl_Interp *interp, Tcl_Obj *objPtr) {
+                        Tcl_SetResult(interp, "setFromAnyProc not implemented for $[set type]", NULL);
                         return TCL_ERROR;
                     }
                     Tcl_ObjType $[set type]_ObjType = (Tcl_ObjType) {
-- 
cgit v1.2.3