17 lines
346 B
Scheme
17 lines
346 B
Scheme
|
|
(module hierlist-sig mzscheme
|
|
(require (lib "unitsig.ss"))
|
|
|
|
(provide hierlist^)
|
|
(define-signature hierlist^
|
|
(hierarchical-list%
|
|
hierarchical-list-item<%>
|
|
hierarchical-list-item%
|
|
hierarchical-list-compound-item<%>
|
|
hierarchical-list-compound-item%
|
|
|
|
hierarchical-item-snip%
|
|
hierarchical-list-snip%)))
|
|
|
|
|