2021-12-29 02:32:43 +00:00
|
|
|
(define (displayln x)
|
|
|
|
(display x)
|
|
|
|
(newline))
|
2021-12-29 02:09:51 +00:00
|
|
|
|
|
|
|
(define (make-print x)
|
2021-12-29 02:32:43 +00:00
|
|
|
(define (print)
|
|
|
|
(displayln x))
|
|
|
|
print)
|
2021-12-29 02:09:51 +00:00
|
|
|
|
|
|
|
(define print-2 (make-print 2))
|
|
|
|
(define print-4 (make-print 4))
|
|
|
|
|
|
|
|
(print-4)
|
2021-12-29 02:32:43 +00:00
|
|
|
(print-2)
|