RosettaCodeData/Task/Singleton/Racket/singleton.rkt

10 lines
124 B
Racket

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