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:
parent
6310938b54
commit
f0cac5c8f2
4
1991.fs
4
1991.fs
@ -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.
|
||||
|
Loading…
Reference in New Issue
Block a user