From 24f1360f694ec0f3e4cfc392a5392fef0576dd13 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Sun, 18 Sep 2022 22:53:46 +0200 Subject: Move get-forms to module static-util. --- scripts/module-introspection.scm | 23 +---------------------- 1 file changed, 1 insertion(+), 22 deletions(-) (limited to 'scripts/module-introspection.scm') diff --git a/scripts/module-introspection.scm b/scripts/module-introspection.scm index dc430d8a..ba455cfc 100644 --- a/scripts/module-introspection.scm +++ b/scripts/module-introspection.scm @@ -1,38 +1,17 @@ (define-module (module-introspection) :use-module (srfi srfi-1) :use-module (hnh util) - :export (get-forms - uniq - unique-symbols + :export (unique-symbols find-module-declaration module-declaration? )) -(define (get-forms port) - (let loop ((done '())) - (let ((form (read port))) - (if (eof-object? form) - done - (loop (cons form done)))))) - - -(define (uniq lst) - (cond ((null? lst) lst) - ((null? (cdr lst)) lst) - ((and (pair? lst) - (eqv? (car lst) (cadr lst))) - (uniq (cons (car lst) (cddr lst)))) - (else (cons (car lst) - (uniq (cdr lst)))))) - - (define (unique-symbols tree) (uniq (sort* (filter symbol? (flatten tree)) stringstring))) - (define (module-declaration? form) (cond ((null? form) #f) ((not (pair? form)) #f) -- cgit v1.2.3