read_mini, ^G returns Null_String

["Klaus Schmid" <klaus.schmid@xxxxxxx>]

s= read_mini( "pr", "de", "ok")

If this runs and gets aborted (^G),
a Null_String ("") is left on the stack.

Tested workaround:

static define t()
{
   variable s;
   
   ERROR_BLOCK {
      _clear_error();
      pop();
      NULL;
   }
   read_mini( "pr","de","ok");
   s= ();
   return s; % NULL if error or ^G
}

With other solutions I was not lucky. s= read_mini() seems to prevent
to redefine s in the ERROR_BLOCK. Does this mean s gets finally defined
by read_mini _after_ the ERROR_BLOCK runs?


-- Klaus


--------------------------
To unsubscribe send email to <jed-users-request@xxxxxxxxxxx> with
the word "unsubscribe" in the message body.
Need help? Email <jed-users-owner@xxxxxxxxxxx>.