Переглянути джерело

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

1991
urlysses 7 роки тому
джерело
коміт
d0558d9621
1 змінених файлів з 1 додано та 1 видалено
  1. +1
    -1
      1991.fs

+ 1
- 1
1991.fs Переглянути файл

@@ -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


Завантаження…
Відмінити
Зберегти