RosettaCodeData/Task/Singleton/Racket/singleton-2.rkt
Ingy döt Net 6f050a029e update
2013-06-05 21:47:54 +00:00

6 lines
130 B
Racket

#lang racket
(provide instance)
(define instance
(new (class object%
(define/public (foo) 123)
(super-new))))