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]

        (save-excursion
          (save-match-data
            (while (search-forward "#f" nil t)
              (unless (cadddr (syntax-ppss))
                (replace-match "nil")))))
        (save-excursion
          (save-match-data
            (while (search-forward "#f" nil t)
              (unless (cadddr (syntax-ppss))
                (replace-match "t")))))
        (let ((thread (read (current-buffer))))
          (with-current-buffer buf
            (let ((buffer-read-only nil))
              (erase-buffer)
              (setq header-line-format

        (save-excursion
          (save-match-data
            (while (search-forward "#f" nil t)
              (unless (cadddr (syntax-ppss))
                (replace-match "nil")))))
        (save-excursion
          (save-match-data
            (while (search-forward "#t" nil t)
              (unless (cadddr (syntax-ppss))
                (replace-match "t")))))
        (let ((thread (read (current-buffer))))
          (with-current-buffer buf
            (let ((buffer-read-only nil))
              (erase-buffer)
              (setq header-line-format