alx/ueforth
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Handle ../ above current level.

Browse Source
This commit is contained in:
Brad Nelson
2022-04-24 14:33:56 -07:00
parent f0d3238f17
commit 287974a58c
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
common/including.fs
View File

@ -54,7 +54,7 @@ internals definitions
a# b# + { r# } r# cell+ cell+ allocate throw { r } a# b# + { r# } r# cell+ cell+ allocate throw { r }
2 cells +to r 2 cells +to r
b c@ [char] / = if 0 to a# then b c@ [char] / = if 0 to a# then
begin b b# starts../ while begin b b# starts../ a# 0<> and while
3 +to b -3 +to b# 3 +to b -3 +to b#
a a# dirname to a# to a a a# dirname to a# to a
a# b# + to r# a# b# + to r#