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

7 lines
121 B
Racket

#lang racket
(provide instance)
(define singleton%
(class object%
(super-new)))
(define instance (new singleton%))