PasteRack.org
Paste # 84419
2024-08-28 18:02:42

Fork as a new paste.

Paste viewed 290 times.


Embed:

  1. #lang racket
  2.  
  3. (define Test
  4.   (let ((iv #f))
  5.     (class object%
  6.       (super-new)
  7.       (define/public (test-set v)
  8.         (set! iv v))
  9.       (define/public (test-get)
  10.         iv))))
  11.  
  12. (define a (new Test))
  13. (define b (new Test))
  14.  
  15. (send a test-get)
  16. (send a test-set 1)
  17. (send a test-get)
  18. (send b test-get)

=>

#f

1

1