izaya/1991
1
0
Fork 0
mirror of https://github.com/urlysses/1991.git synced 2024-11-26 11:38:05 +11:00
Code Issues Releases Wiki Activity

Fix bug where repeat invocations of sourcedir returned different results (due to abuse of sourcefilename memore address)

Browse Source
This commit is contained in:
urlysses 2017-02-18 09:46:33 -05:00
parent 6310938b54
commit f0cac5c8f2
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
1991.fs
View File

@ -19,9 +19,11 @@ include unix/socket.fs
\ Useful for specifying in which dir to find \ Useful for specifying in which dir to find
\ specific files (e.g., public/, views/). \ specific files (e.g., public/, views/).
sourcefilename \ get the name of our file sourcefilename \ get the name of our file
pad dup >r place \ copy the string so we don't
r> count \ modify sourcefilename.
2dup reverse \ reverse and search for first / 2dup reverse \ reverse and search for first /
s" /" search if \ if found, reverse string to s" /" search if \ if found, reverse string to
2dup reverse \ to strip the filename but keep dir. 2dup reverse \ strip the filename but keep dir.
else else
2drop \ no slash, 2drop \ no slash,
s" ./" \ same dir execution. s" ./" \ same dir execution.