![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to mkdir.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth|
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] |