Changeset 2949


Ignore:
Timestamp:
Apr 23, 2012, 8:36:30 AM (2 years ago)
Author:
quozl
Message:

ext2fs - avoid duplicate directory creation by mkdir, #11799

File:
1 edited

Legend:

Unmodified
Added
Removed
  • ofw/fs/ext2fs/methods.fth

    r2796 r2949  
    1515 
    1616: $mkdir   ( name$ -- error? ) 
     17   dirent-vars 2>r 2>r                          ( name$ ) 
     18   2dup $find-file                              ( name$ error? ) 
     19   2r> 2r> restore-dirent                       ( name$ error? ) 
     20   0=  if  2drop true exit  then                ( name$ ) 
     21 
    1722   o# 40777 ($create) if  true exit  then 
    1823 
Note: See TracChangeset for help on using the changeset viewer.