RosettaCodeData/Task/Singleton/Racket/singleton-2.rkt

7 lines
130 B
Racket

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