From 335347dc06eb6288e2fcae56addf123300bd9810 Mon Sep 17 00:00:00 2001
From: Zhukov Anton <a.zhukov1@tcsbank.ru>
Date: Wed, 18 Aug 2021 14:53:43 +0300
Subject: [PATCH 1/4] Setting default 408 timeout to 30 seconds

---
 1991.fs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/1991.fs b/1991.fs
index 8ea2273..071b4e8 100644
--- a/1991.fs
+++ b/1991.fs
@@ -464,6 +464,7 @@ s" image/x-icon" filetype: ico
     either-resolve or-404 ;
 
 : start-server { server client }
+    30000000 set-socket-timeout
     begin
         server 255 listen
         server accept-socket to client

From 4781fa4729fe0a3d97e4c887bfe58b0028265f46 Mon Sep 17 00:00:00 2001
From: Zhukov Anton <a.zhukov1@tcsbank.ru>
Date: Wed, 18 Aug 2021 15:01:31 +0300
Subject: [PATCH 2/4] Fix fuzzy-find-route

---
 1991.fs | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/1991.fs b/1991.fs
index 071b4e8..3296dda 100644
--- a/1991.fs
+++ b/1991.fs
@@ -97,13 +97,13 @@ pubvar reqroute
     \ returns true.
     \ Also takes the addr u of the requested
     \ route we're trying to validate.
-    >r routes wordlist-id @                     \ Store xt and specify wordlist
+    >r routes wordlist-id @
     begin
-    dup
+	dup
     while
-        r@ over >r execute while r> @
-    repeat r>
-    then
+	    r@ over >r execute  WHILE r> name>link
+	repeat  r>
+    then  
     rdrop
     ?dup if
         get-tmp-query-string                    \ Save our fuzzy vars to the request's

From 7b5f2a8f5a25ffb2e00070c4f1e064a3403c860b Mon Sep 17 00:00:00 2001
From: Zhukov Anton <a.zhukov1@tcsbank.ru>
Date: Wed, 18 Aug 2021 15:06:53 +0300
Subject: [PATCH 3/4] Fix comment

---
 1991.fs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/1991.fs b/1991.fs
index 3296dda..77b9385 100644
--- a/1991.fs
+++ b/1991.fs
@@ -97,7 +97,7 @@ pubvar reqroute
     \ returns true.
     \ Also takes the addr u of the requested
     \ route we're trying to validate.
-    >r routes wordlist-id @
+    >r routes wordlist-id @                     \ Store xt and specify wordlist
     begin
 	dup
     while

From 599c756c67c6ca0c64d900b0d121572647b23316 Mon Sep 17 00:00:00 2001
From: Zhukov Anton <a.zhukov1@tcsbank.ru>
Date: Wed, 18 Aug 2021 15:09:09 +0300
Subject: [PATCH 4/4] Fix tabs

---
 1991.fs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/1991.fs b/1991.fs
index 77b9385..a7f034c 100644
--- a/1991.fs
+++ b/1991.fs
@@ -99,10 +99,10 @@ pubvar reqroute
     \ route we're trying to validate.
     >r routes wordlist-id @                     \ Store xt and specify wordlist
     begin
-	dup
+        dup
     while
-	    r@ over >r execute  WHILE r> name>link
-	repeat  r>
+	r@ over >r execute  WHILE r> name>link
+    repeat  r>
     then  
     rdrop
     ?dup if