diff options
Diffstat (limited to 'module/hnh/module-introspection/static-util.scm')
-rw-r--r-- | module/hnh/module-introspection/static-util.scm | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/module/hnh/module-introspection/static-util.scm b/module/hnh/module-introspection/static-util.scm new file mode 100644 index 00000000..7593ce3c --- /dev/null +++ b/module/hnh/module-introspection/static-util.scm @@ -0,0 +1,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)))))) |