Add helper constructor for inputs
This commit is contained in:
parent
d9806b2f8b
commit
4089d2758d
1 changed files with 4 additions and 0 deletions
|
@ -2,6 +2,7 @@
|
|||
#:pure
|
||||
#:use-module (scheme base)
|
||||
#:export (make-inputs
|
||||
create-inputs
|
||||
inputs?
|
||||
inputs-begun
|
||||
inputs-ended
|
||||
|
@ -17,3 +18,6 @@
|
|||
(started inputs-begun)
|
||||
(ended inputs-ended)
|
||||
(current inputs-current))
|
||||
|
||||
(define (create-inputs)
|
||||
(make-inputs '() '() '()))
|
||||
|
|
Loading…
Reference in a new issue