izaya/1991
1
0
Fork 0
mirror of https://github.com/urlysses/1991.git synced 2024-11-01 07:50:56 +11:00
Code Issues Releases Wiki Activity

So focused on keeping track of the stack, didn't realize over over == 2dup.

Browse Source
This commit is contained in:
urlysses 2017-02-25 11:44:58 -05:00
parent dfb84bb22d
commit d0558d9621
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
1991.fs
View File

@ -126,7 +126,7 @@ pubvar reqroute
2dup s" <" search drop \ and replace <...> with the requested route word 2dup s" <" search drop \ and replace <...> with the requested route word
nip nip
\ ( \ (
over over - 1+ 2r@ rot /string \ (Store the beginnings of user's <"match"> word.) 2dup - 1+ 2r@ rot /string \ (Store the beginnings of user's <"match"> word.)
2dup s" >" search drop \ (Retrieve full <"match"> user word,) 2dup s" >" search drop \ (Retrieve full <"match"> user word,)
nip - s" =" s+ nip - s" =" s+
2r> 2r> 2swap 2>r 2r> 2r> 2swap 2>r