working on making xargs work

[chiark-tcl.git] / hbytes / chop.c

diff --git a/hbytes/chop.c b/hbytes/chop.c
index c81e5d6b915ae929b4442cf2e7873eb5b6f4fa35..cccd43f285358968b2bb36c894bc96ab7f51375b 100644 (file)
--- a/hbytes/chop.c
+++ b/hbytes/chop.c
@@ -4,6 +4,7 @@
 #include <string.h>
 
 #include "hbytes.h"
+#include "tables.h"
 
 static int strs1(Tcl_Interp *ip, int strc, Tcl_Obj *const *strv, int *l_r) {
   int rc, l, i;
@@ -61,7 +62,9 @@ int do_hbytes_concat(ClientData cd, Tcl_Interp *ip,
   return TCL_OK;
 }
 
-static int underrun(Tcl_Interp *ip) { return staticerr(ip,"data underrun"); }
+static int underrun(Tcl_Interp *ip) {
+  return staticerr(ip,"data underrun","HBYTES LENGTH UNDERRUN");
+}
 
 int do_hbytes_unprepend(ClientData cd, Tcl_Interp *ip,
                        HBytes_Var v, int preflength, HBytes_Value *result) {