From d0558d962184e81ddd55e8e7ff1e0225ea084bad Mon Sep 17 00:00:00 2001 From: urlysses Date: Sat, 25 Feb 2017 11:44:58 -0500 Subject: [PATCH] So focused on keeping track of the stack, didn't realize over over == 2dup. --- 1991.fs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/1991.fs b/1991.fs index 7851f7b..d9d1682 100644 --- a/1991.fs +++ b/1991.fs @@ -126,7 +126,7 @@ pubvar reqroute 2dup s" <" search drop \ and replace <...> with the requested route word 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,) nip - s" =" s+ 2r> 2r> 2swap 2>r