Diff for /gforth/mkdir.fs between versions 1.6 and 1.9

version 1.6, 2010/12/30 21:46:14 version 1.9, 2012/03/13 20:00:04
Line 1 Line 1
 \ mkdir wrapper  \ mkdir wrapper
   
 \ Copyright (C) 2008 Free Software Foundation, Inc.  \ Copyright (C) 2008,2010 Free Software Foundation, Inc.
   
 \ This file is part of Gforth.  \ This file is part of Gforth.
   
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]

Removed from v.1.6  
changed lines
  Added in v.1.9


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