From b8de6f77f8fdfee3e0833f976f1add6a99b98ca5 Mon Sep 17 00:00:00 2001 From: Thien-Thi Nguyen Date: Sat, 4 Dec 2021 06:46:36 -0500 Subject: [PATCH] Fix bug: Use a mutable pair for mutable pair work * module/scripts/read-text-outline.scm (make-text-outline-reader): Instead of '(start), use (list 'start). --- module/scripts/read-text-outline.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/module/scripts/read-text-outline.scm b/module/scripts/read-text-outline.scm index d0933bb0b..0a82949a4 100644 --- a/module/scripts/read-text-outline.scm +++ b/module/scripts/read-text-outline.scm @@ -187,7 +187,7 @@ (define (make-text-outline-reader re specs) (let ((parse-line (make-line-parser re specs))) ;; retval (lambda (port) - (let* ((all '(start)) + (let* ((all (list 'start)) (pchain (list))) ; parents chain (let loop ((line (read-line port)) (prev-level -1) ; how this relates to the first input -- 2.30.2