Im trying to translate some scheme examples in LFE and i stuck in that piece of code. someone can give me a tip?
lfe> (defun class-box (init-value)
(let ((content init-value))
(lambda (msg)
(let ((m (car msg)))
(cond
((== m 'read) content)
((== m 'write!)
(set content (cadr msg))
content)))))))
lfe> (set box-1 (class-box 50))
#Fun<lfe_eval.30.123855323/1>
lfe> (funcall box-1 '(read))
50
lfe> (funcall box-1 '(write! 56))
** exception error: function set/2 undefined