6 lines
152 B
Scheme
6 lines
152 B
Scheme
#cs
|
|
(module Comparable mzscheme
|
|
(require (lib "class.ss"))
|
|
(provide (all-defined))
|
|
(define Comparable (interface () compareTo-java.lang.Object)))
|