10 lines
305 B
Scheme
10 lines
305 B
Scheme
#lang mzscheme
|
|
(require mred
|
|
mzlib/class
|
|
framework)
|
|
|
|
(provide snip-class)
|
|
(define snip-class (make-object number-snip:snip-class%))
|
|
(send snip-class set-classname (format "~s" `(lib "number-snip.ss" "drscheme" "private")))
|
|
(send (get-the-snip-class-list) add snip-class)
|