#lang smol/hof
(deffun (mk-counter amount)
(lambda (m)
(if (equal? m "get")
amount
(set! amount (+ 1 amount)))))
(defvar o1 (mk-counter 1000))
(defvar o2 (mk-counter 0))
(o1 "count")
(o2 "count")
(o1 "get")
(o2 "get")
#lang smol/hof
(deffun (mk-counter amount)
(lambda (m)
(if (equal? m "get")
amount
(set! amount (+ 1 amount)))))
(defvar o1 (mk-counter 1000))
(defvar o2 (mk-counter 0))
(o1 "count")
(o2 "count")
(o1 "get")
(o2 "get")