Changeset 345 for trunk/thune/boot.c

Timestamp:

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

Author:

krobillard

Message:

Thune - dirize now handles backslash.

Files:

• trunk/thune/boot.c (modified) (1 diff)

trunk/thune/boot.c

@@ -168 +168 @@
   "] proc :split-path    ; (fullpath -- path file)\n"
   "[\n"
-  "  dup last '/' eq? iff (dup '/' append drop)\n"
+  "  dup last dup '/' if/eq (drop return)\n"
+  "    '\\' if/eq return\n"
+  "  '/' append head\n"
   "] proc :dirize    ; (path -- path)\n"
   "[0 swap add] proc :to-dec\n"