izaya
/
1991
mirror of https://github.com/urlysses/1991.git
1
0
Fork 0
Code Issues Releases Wiki Activity

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

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
\ specific files (e.g., public/, views/).
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 /
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
2drop \ no slash,
s" ./" \ same dir execution.