small fixes to allow warningless compilation with Qt
[k8noscheme:mainline.git] / zclos.scm
1 (define (prinln c) (let () (princ c) (newline)))
2
3 (define (make-counter)
4   (let ((count 0))
5     (lambda ()
6       (set! count (+ count 1)) count)))
7
8 (define c1 (make-counter))
9 (define c2 (make-counter))
10
11 (prinln (c1)) ;1
12 (prinln (c1)) ;2
13
14 (prinln (c2)) ;1
15 (prinln (c2)) ;2
16
17 ; 3 and 3
18 (prinln (c1))
19 (prinln (c2))