sbbs.el: Check-in [c0938f9005]

Overview

Comment:	Fix typo in sbbs--thread-loader's Scheme->Elisp translation
Downloads:	Tarball \| ZIP archive \| SQL archive
Timelines:	family \| ancestors \| descendants \| both \| master \| trunk
Files:	files \| file ages \| folders
SHA3-256:	c0938f900565438444200ef0dcb5d5eed44b3fe390c0f639160cd3caea840971
User & Date:	zge on 2022-01-24 09:12:49
Other Links:	branch diff \| manifest \| tags

Context

2022-01-24
09:16		Fix type update from [d0b75dd168] check-in: c6c6a90cab user: zge tags: master, trunk
09:12		Fix typo in sbbs--thread-loader's Scheme->Elisp translation check-in: c0938f9005 user: zge tags: master, trunk
09:11		Fix /mona/ check-in: d0b75dd168 user: zge tags: master, trunk

Changes

Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified sbbs.el from [490ff2e445] to [81d2e3071c].

   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