7 lines
121 B
Racket
7 lines
121 B
Racket
|
#lang racket
|
||
|
|
(provide instance)
|
||
|
|
(define singleton%
|
||
|
|
(class object%
|
||
|
|
(super-new)))
|
||
|
|
(define instance (new singleton%))
|