Welcome to the CHICKEN Scheme pasting service

no title added by lemonpie on Tue Nov 29 09:26:41 2016

(define <test> (send Object :copy))
(send <test> :rename "Test Object")
(send <test> :answer :setup () (send self :set 'value 0))
(send <test> :answer :setval (x) (send self :set 'value x))
(send <test> :answer :test ()
      (display
       (format #f "Value: ~A\n" (send self :get 'value))))


(define v1 (send <test> :instance))
(send v1 :setval (* 5 5))
(send v1 :test)

Output:
#;13> ; loading /home/nicola/src/Scheme/obj/test.scm ...
Value: 25
#;14>
[ permalink | raw ]

Your annotation:

Enter a new annotation:

Your nick:
The title of your paste:
Your paste (mandatory) :
Which relatively recent Scheme report version does CHICKEN _not_ implement?
Visually impaired? Let me spell it for you (wav file) download WAV