blob: 7593ce3cfe2ad212b57c4b85a17dec9bf47bb361 (
plain)
1
2
3
4
5
6
7
8
9
|
(define-module (hnh module-introspection 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))))))
|