Changeset 2949

Timestamp:

Apr 23, 2012 8:36:30 AM (13 months ago)

Author:

quozl

Message:

ext2fs - avoid duplicate directory creation by mkdir, #11799

File:

• ofw/fs/ext2fs/methods.fth (modified) (1 diff)

ofw/fs/ext2fs/methods.fth

@@ -15 +15 @@
 
 : $mkdir   ( name$ -- error? )
+   dirent-vars 2>r 2>r                          ( name$ )
+   2dup $find-file                              ( name$ error? )
+   2r> 2r> restore-dirent                       ( name$ error? )
+   0=  if  2drop true exit  then                ( name$ )
+
    o# 40777 ($create) if  true exit  then