Add helper constructor for inputs

This commit is contained in:
TakeV 2024-05-25 04:29:40 -04:00
parent d9806b2f8b
commit 4089d2758d
Signed by: TakeV
GPG key ID: A64F41345C7400AF

View file

@ -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 '() '() '()))