From 123c6ac1f88d43d8fda248b86338a18790246ce1 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Tue, 12 Apr 2022 13:21:01 +0200 Subject: Introduce module-declaration?. --- scripts/module-introspection.scm | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) (limited to 'scripts') diff --git a/scripts/module-introspection.scm b/scripts/module-introspection.scm index a5b62311..dc430d8a 100644 --- a/scripts/module-introspection.scm +++ b/scripts/module-introspection.scm @@ -5,6 +5,7 @@ uniq unique-symbols find-module-declaration + module-declaration? )) @@ -32,11 +33,11 @@ stringstring))) +(define (module-declaration? form) + (cond ((null? form) #f) + ((not (pair? form)) #f) + (else (eq? 'define-module (car form))))) (define (find-module-declaration forms) - (and=> (find (lambda (form) - (cond ((null? form) #f) - ((not (pair? form)) #f) - (else (eq? 'define-module (car form))))) - forms) + (and=> (find module-declaration? forms) cadr)) -- cgit v1.2.3