blob: 7aa3626e6f5acc1660f70e0e1acc6ec0a2e92d2c (
plain)
1
2
3
4
5
6
7
8
9
|
(define-module (static-util)
:export (get-forms))
(define (get-forms port)
(let loop ((done '()))
(let ((form (read port)))
(if (eof-object? form)
done
(loop (cons form done))))))
|