Diff for /gforth/mkdir.fs between versions 1.7 and 1.8

version 1.7, 2010/12/31 18:09:02 version 1.8, 2012/03/13 19:33:31
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 1 tilde_cstr r> over >r mkdir r> free drop f>ior ;
         end-c-library          end-c-library
     [THEN]      [THEN]
 [THEN]  [THEN]

Removed from v.1.7  
changed lines
  Added in v.1.8


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>