read-dir rcsnd read-dir
read-dir
* read-dir ( c_addr u1 wdirid -- u2 flag wior ) gforth read_dir

will vanish without warning. see gforth documentation.

gforth' gforth ordinary primitive