sbbs.el: Diff

Differences From Artifact [490ff2e445]:

File sbbs.el — part of check-in [d0b75dd168] at 2022-01-24 09:11:58 on branch master — Fix /mona/ (user: zge, size: 30616) [annotate] [blame] [check-ins using]

To Artifact [81d2e3071c]:

File sbbs.el — part of check-in [c0938f9005] at 2022-01-24 09:12:49 on branch master — Fix typo in sbbs--thread-loader's Scheme->Elisp translation (user: zge, size: 30616) [annotate] [blame] [check-ins using]

   509    509           (save-excursion
   510    510             (save-match-data
   511    511               (while (search-forward "#f" nil t)
   512    512                 (unless (cadddr (syntax-ppss))
   513    513                   (replace-match "nil")))))
   514    514           (save-excursion
   515    515             (save-match-data
   516         -            (while (search-forward "#f" nil t)
          516  +            (while (search-forward "#t" nil t)
   517    517                 (unless (cadddr (syntax-ppss))
   518    518                   (replace-match "t")))))
   519    519           (let ((thread (read (current-buffer))))
   520    520             (with-current-buffer buf
   521    521               (let ((buffer-read-only nil))
   522    522                 (erase-buffer)
   523    523                 (setq header-line-format