module/hnh/module-introspection/static-util.scm


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))))))