Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-20 22:29:16 +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)))))) (test-first-indentation))))))
(* (current-group-indent) (min level (test-max-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 (define indent-string
(let ((first? #t)) (let ((first? #t))
(lambda (indent) (lambda (indent)

6
lib/chibi/test.sld
View file

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