Improving path-join.

2023-05-25 19:35:13 -07:00
parent 8c31cbd694
commit 0f47287dfa
2 changed files with 15 additions and 1 deletions
--- a/common/including.fs
+++ b/common/including.fs
@ -55,9 +55,11 @@ internals definitions
 0 value included-files

 : path-join { a a# b b# -- a n }
+  b if
+    b c@ [char] / = if 0 to a# then
+  then
  a# b# + { r# } r# cell+ cell+ allocate throw { r }
  2 cells +to r
-  b c@ [char] / = if 0 to a# then
  begin b b# starts./ while
    2 +to b -2 +to b#
    a# b# + to r#