1
0
mirror of https://github.com/urlysses/1991.git synced 2024-11-26 03:28:06 +11:00

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

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.