From 703e9e93087d32364087a0ebc9e315869b70ff7c Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Sat, 15 Jun 2024 21:17:03 -0500
Subject: Update things

---
 lib/read.scm | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

(limited to 'lib/read.scm')

diff --git a/lib/read.scm b/lib/read.scm
index 1b611bb..f84b3a5 100644
--- a/lib/read.scm
+++ b/lib/read.scm
@@ -26,7 +26,7 @@
         (def (cdr (assoc 'default line-types))))
     (cond
      ((null? lin) def)                             ; empty line
-     ((assoc (car lin) line-types) => cdr)         ; a line type exists
+     ((assoc (car lin) line-types) => cdr)         ; a known line type
      (else def))))                                 ; otherwise ...
 
 (define (parse-lines lines doc)
@@ -48,10 +48,8 @@
           ;;;; FIXME: I think this necessitates a special emit-verbatim
           ;;;; function.
           (parse-verbatim (cdr lines) doc '()
-                   #;       (if (< 1 (length words))
-                              (cons 'verb (cdr words))
-                          'verb)
-                          'verb))
+                          ;;; FIXME
+                          (cons 'verb (cdr words))))
          (else                                     ; another line type
           (apply parse-stanza lines doc '() (line-type words)))))))
 
@@ -67,7 +65,7 @@
 
 (define (parse-stanza lines doc stanza st-type
                       #!optional (st-inlines '()) (st-words cdr))
-  (define (close-stanza) (cons (cons st-type (reverse stanza)) doc))
+  (define (close-stanza) (cons (cons (list st-type) (reverse stanza)) doc))
   (if (null? lines)                                ; end of document
       (parse-lines lines (close-stanza))
       (let* ((ln (car lines))
-- 
cgit 1.4.1-21-gabe81