brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Add global count.

Browse source
This commit is contained in:
Dominik Pantůček 2023-06-23 22:42:43 +02:00
parent 25f9143634
commit c808852fb2
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/progress.scm
View file

@ -184,15 +184,15 @@
(lambda () body ...))))) (lambda () body ...)))))
;; Runs multiple partial progresses ;; Runs multiple partial progresses
(define (run-with-progresses% echo? name proc) (define (run-with-progresses% echo? name count proc)
(proc)) (proc))
;; Syntax wrapper ;; Syntax wrapper
(define-syntax with-progresses% (define-syntax with-progresses%
(syntax-rules () (syntax-rules ()
((_ echo? name body ...) ((_ echo? name count body ...)
(run-with-progresses% (run-with-progresses%
echo? name echo? name count
(lambda () body ...))))) (lambda () body ...)))))
;; Adds name to list of partial progress names, uses the same ;; Adds name to list of partial progress names, uses the same