From 92cd755c54855ef307c6bfdd007629f59816b92d Mon Sep 17 00:00:00 2001
From: retropikzel <retropikzel@iki.fi>
Date: Wed, 7 Jan 2026 14:29:54 +0200
Subject: [PATCH 1/2] Remove google search. List all supported implementations.

---
 doc/chibi.scrbl         |  5 +++++
 lib/chibi/snow/fort.scm | 15 +--------------
 2 files changed, 6 insertions(+), 14 deletions(-)

diff --git a/doc/chibi.scrbl b/doc/chibi.scrbl
index 46619d9a..9c4e3b65 100755
--- a/doc/chibi.scrbl
+++ b/doc/chibi.scrbl
@@ -1657,6 +1657,7 @@ The \scheme{implementations} command tells you which you currently have
 installed. The following are currently supported:
 
 \itemlist[
+\item{capyscheme - version >= 0.1.0}
 \item{chibi - version >= 0.7.3}
 \item{chicken - version >= 4.9.0 with the \scheme{r7rs} egg}
 \item{cyclone - version >= 0.5.3}
@@ -1664,11 +1665,15 @@ installed. The following are currently supported:
 \item{gambit - version >= 4.9.3}
 \item{generic; By default libraries are installed into /usr/local/lib/snow or %LOCALAPPDATA%/lib/snow on windows}
 \item{gauche - version >= 0.9.4}
+\item{guile - version >= 3.0.7}
 \item{kawa - version >= 2.0; you need to add the install dir to the search path, e.g. \scheme{-Dkawa.import.path=/usr/local/share/kawa/lib/*.sld}}
+\item{loko - version >= 0.12.2}
+\item{mit-scheme - version >= 12.1}
 \item{larceny - version 0.98; you need to add "lib/Snow" to the paths in startup.sch}
 \item{mosh - version >= 0.29-rc1}
 \item{racket - version >= 8.16 with the \scheme{r7rs} pkg}
 \item{sagittarius - version >= 0.9.13}
 \item{stklos - version > 2.10}
+\item{tr7 - version > 2.0.12}
 \item{ypsilon - version > 2.0.8}
 ]
diff --git a/lib/chibi/snow/fort.scm b/lib/chibi/snow/fort.scm
index 63d9c1bf..db7edade 100644
--- a/lib/chibi/snow/fort.scm
+++ b/lib/chibi/snow/fort.scm
@@ -241,20 +241,7 @@
                (a (@ (href . "/pkg")) "Libraries")
                (a (@ (href . "/doc")) "Docs")
                (a (@ (href . "/link")) "Resources")
-               (a (@ (href . "/faq")) "FAQ"))
-          (div (@ (id . "search"))
-               (form
-                 (@ (action . "http://www.google.com/search"))
-                 (input (@ (type . "text") (name . "q")))
-                 (input (@ (type . "hidden")
-                           (name . "domains")
-                           (value . "snow-fort.org")))
-                 (input (@ (type . "hidden")
-                           (name . "sitesearch")
-                           (value . "snow-fort.org")))
-                 (input (@ (type . "submit")
-                           (name . "search")
-                           (value . "Search Libraries"))))))
+               (a (@ (href . "/faq")) "FAQ")))
      ,body)))
 
 (define (dependency-url cfg dep . o)

From 3918a3b9cec006fa4ff0eb0f227741b9d5a9d987 Mon Sep 17 00:00:00 2001
From: retropikzel <retropikzel@iki.fi>
Date: Thu, 8 Jan 2026 16:00:04 +0200
Subject: [PATCH 2/2] Add back the google search as it search the whole page

---
 lib/chibi/snow/fort.scm | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/lib/chibi/snow/fort.scm b/lib/chibi/snow/fort.scm
index db7edade..e0eb8089 100644
--- a/lib/chibi/snow/fort.scm
+++ b/lib/chibi/snow/fort.scm
@@ -241,7 +241,19 @@
                (a (@ (href . "/pkg")) "Libraries")
                (a (@ (href . "/doc")) "Docs")
                (a (@ (href . "/link")) "Resources")
-               (a (@ (href . "/faq")) "FAQ")))
+               (a (@ (href . "/faq")) "FAQ"))
+          (form
+            (@ (action . "http://www.google.com/search"))
+            (input (@ (type . "text") (name . "q")))
+            (input (@ (type . "hidden")
+                      (name . "domains")
+                      (value . "snow-fort.org")))
+            (input (@ (type . "hidden")
+                      (name . "sitesearch")
+                      (value . "snow-fort.org")))
+            (input (@ (type . "submit")
+                      (name . "search")
+                      (value . "Search Libraries")))))
      ,body)))
 
 (define (dependency-url cfg dep . o)