better notification for value error

Author: tavmem

src/kc.c

@@ -287,8 +287,7 @@ I line(FILE*f, S*a, I*n, PDA*p) {  //just starting or just executed: *a=*n=*p=0,
  cleanup:
   if(fCheck && (strlen(s)==0 || s[strlen(s)-1]<0)) exit(0);
   S ptr=0;
-  //151012AP was -1, Changed to fer!=2 for fclose. Reverted to -1 (regression issue #312). fclose problem?? (issue #384).
-  if(!strcmp(errmsg,"value"))oerr();
+  if(!strcmp(errmsg,"value"));
   else if(strcmp(errmsg,"undescribed") && fer!=-1) { oerr(); I ctl=0;
     if(fError){
       if(2==fError)exit(1);

src/p.c

@@ -626,7 +626,11 @@ I capture(S s,I n,I k,I*m,V*w,I*d,K*locals,K*dict,K func)
                         I all=1;for(i=0;i<strlen(lineA);i++)if(!isalnum_(lineA[i])){all=0;break;}
                         if(lineA[0]=='_')all=0;
                         z=inKtree(dict,u,0);
-                        if((!fdc||all)&&!z)R (L)VLE;
+                        if((!fdc||all)&&!z){L err=(L)VLE;
+                           #ifndef DEBUG
+                           oerr(); O("%s\n%c\n",u,'^');
+                           #endif
+                           R err;}
                         z=denameD(dict,u,fdc&&!all); }
       ) 
     CS(MARK_VERB   ,  // "+" "4:" "_bin"  ;  grab "+:", "4::"

src/tests.c

@@ -492,7 +492,7 @@ Z I tests02()
   TC( (@[.:;"5 (a:5)/1";:] ), (1;"rank") )  
 
   TC(13, ({x(|+\\)\\1 1} 5)[5;0])
-  TC( (.[.:;,"@[a-b]";:]) , (1;"parse") ) //specific err not important
+  TC( (.[.:;,"@[a-b]";:]) , (1;"parse") )
 
   TC( 5, _ceiling 4.6)
   TC(-4, _ceiling -4.6)