15 lines
356 B
Scheme
15 lines
356 B
Scheme
(define-interface file-modes-interface
|
|
(export file-mode?
|
|
(file-mode :syntax)
|
|
file-mode+ file-mode-
|
|
file-mode=? file-mode<=? file-mode>=?
|
|
file-mode->integer integer->file-mode))
|
|
|
|
(define-structure file-modes file-modes-interface
|
|
(open scheme
|
|
define-record-types
|
|
signals
|
|
bitwise)
|
|
(for-syntax (open scheme bitwise))
|
|
(files file-mode))
|