[gforth] / gforth / mkdir.fs  

gforth: gforth/mkdir.fs

Diff for /gforth/mkdir.fs between version 1.8 and 1.9

version 1.8, Tue Mar 13 19:33:31 2012 UTC version 1.9, Tue Mar 13 20:00:04 2012 UTC
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> over >r mkdir r> free drop f>ior ;          >r tilde_cstr r> over >r mkdir r> free drop f>ior ;
         end-c-library          end-c-library
     [THEN]      [THEN]
 [THEN]  [THEN]

Generate output suitable for use with a patch program
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help