Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-18 21:29:19 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Implement review comments

Browse source 
Add comment to procedure indent-string to indicate need for a reset for
a second report.

Correct import of (chibi optional).
This commit is contained in:
Jürgen Geßwein 2021-09-05 13:15:00 +02:00
parent e0497b3084
commit e2c8619a21
2 changed files with 7 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lib/chibi/test.scm
View file

@ -497,6 +497,10 @@
(test-first-indentation))))))
(* (current-group-indent) (min level (test-max-indentation)))))
;; Terminate the current and indent the next line with the given number
;; of spaces. The very first string does not terminate a line. There
;; should be a way to reset first? when creating more than one report
;; in a session.
(define indent-string
(let ((first? #t))
(lambda (indent)

6
lib/chibi/test.sld
View file

@ -24,11 +24,11 @@
(scheme process-context)
(scheme time)
(chibi diff)
(chibi term ansi))
(chibi term ansi)
(chibi optional))
(cond-expand
(chibi
(import (only (chibi) pair-source print-exception)
(chibi optional)))
(import (only (chibi) pair-source print-exception)))
(chicken
(import (only (chicken) print-error-message))
(begin