7 lines
130 B
Racket
7 lines
130 B
Racket
|
#lang racket
|
||
|
|
(provide instance)
|
||
|
|
(define instance
|
||
|
|
(new (class object%
|
||
|
|
(define/public (foo) 123)
|
||
|
|
(super-new))))
|