From 87e8492ab6ebdbe090d9db65614f69ca107aa805 Mon Sep 17 00:00:00 2001
From: cage <cage@invalid>
Date: Fri, 11 Oct 2024 11:13:47 +0200
Subject: [PATCH] - fixed regression: gopher parser missed a bunch of rules.

---
 src/gopher/parser.lisp | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/gopher/parser.lisp b/src/gopher/parser.lisp
index 2127eac..3d485e2 100644
--- a/src/gopher/parser.lisp
+++ b/src/gopher/parser.lisp
@@ -258,7 +258,7 @@
                                     gopher-selector gopher-field-separator
                                     gopher-host gopher-field-separator
                                     gopher-port gopher-line-separator)
-                               line-separator)
+                               gopher-line-separator)
   (:function (lambda (line)
                (if (listp line)
                    (list :type      (first line)
@@ -332,7 +332,7 @@
   (:function caar))
 
 (defun parse-text-file (data)
-  (parse 'text-file data))
+  (parse 'gopher-text-file data))
 
 (defrule gopher-gopher-url-authority (or (and (+ (not #\:))
                                        #\:
@@ -350,7 +350,7 @@
 
 (defrule gopher-gopher-url (and (+ (not #\:))
                          "://"
-                         gopher-url-authority
+                         gopher-gopher-url-authority
                          (? (and (not #\/)
                                  (& #\/)))
                          (* (character-ranges (#\u0000 #\uffff))))