Fix number of loop bindings.
This commit is contained in:
parent
83d0917e7a
commit
c7da65ad0b
1 changed files with 2 additions and 1 deletions
|
@ -210,7 +210,8 @@
|
||||||
(loop (cdr lines)
|
(loop (cdr lines)
|
||||||
(+ number 1)
|
(+ number 1)
|
||||||
printed-something
|
printed-something
|
||||||
#f))))))
|
#f
|
||||||
|
rtbl))))))
|
||||||
|
|
||||||
;; Performs self-tests of the listing module.
|
;; Performs self-tests of the listing module.
|
||||||
(define (listing-tests!)
|
(define (listing-tests!)
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue