Return to mkdir.fs CVS log | Up to [gforth] / gforth |
version 1.7, 2010/12/31 18:09:02 | version 1.9, 2012/03/13 20:00:04 |
---|---|
Line 34 | Line 34 |
c-function f>ior IOR n -- n ( f -- ior ) | c-function f>ior IOR n -- n ( f -- ior ) |
: =mkdir ( c-addr u mode -- ior ) | : =mkdir ( c-addr u mode -- ior ) |
>r 1 tilde_cstr r> mkdir f>ior ; | >r tilde_cstr r> over >r mkdir r> free drop f>ior ; |
end-c-library | end-c-library |
[THEN] | [THEN] |
[THEN] | [THEN] |