Changeset 345 for trunk/thune/mkboot.t

Timestamp:

01/08/07 18:06:20 (2 years ago)

Author:

krobillard

Message:

Thune - dirize now handles backslash.

Files:

• trunk/thune/mkboot.t (modified) (1 diff)

trunk/thune/mkboot.t

@@ -193 +193 @@
 
 [
-  dup last '/' eq? iff (dup '/' append drop)
+  dup last dup '/' if/eq (drop return)
+    '\\' if/eq return
+  '/' append head
 ] proc :dirize    ; (path -- path)