17 lines
198 B
Racket
17 lines
198 B
Racket
#lang racket
|
|
|
|
(require racket/class)
|
|
|
|
(provide player%)
|
|
|
|
(define player%
|
|
(class object%
|
|
|
|
(define/public (play playlist)
|
|
(displayln "playing playlist")
|
|
)
|
|
|
|
(super-new)
|
|
)
|
|
)
|