From 2d8371c258d625c9bef17111c4ee59b4620720e1 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Thu, 3 Oct 2013 12:14:59 +0900 Subject: [PATCH] Adding missing changes to available module introspection from 1729:f1e5f235d684. --- lib/chibi/modules.sld | 6 ++++-- lib/meta.scm | 5 ++++- 2 files changed, 8 insertions(+), 3 deletions(-) diff --git a/lib/chibi/modules.sld b/lib/chibi/modules.sld index d0e7584a..e59dfaae 100644 --- a/lib/chibi/modules.sld +++ b/lib/chibi/modules.sld @@ -3,6 +3,8 @@ (export module-name module-dir module-includes module-shared-includes module-ast module-ast-set! module-ref module-contains? analyze-module containing-module load-module module-exports - module-name->file procedure-analysis) - (import (chibi) (meta) (chibi ast)) + module-name->file procedure-analysis find-module + available-modules-in-directory available-modules + modules-exporting-identifier) + (import (chibi) (meta) (chibi ast) (chibi filesystem)) (include "modules.scm")) diff --git a/lib/meta.scm b/lib/meta.scm index 0d7cfdc8..034230ff 100644 --- a/lib/meta.scm +++ b/lib/meta.scm @@ -15,7 +15,10 @@ (define (module-meta-data-set! mod x) (vector-set! mod 2 x)) (define (module-exports mod) - (or (%module-exports mod) (env-exports (module-env mod)))) + (or (%module-exports mod) + (if (module-env mod) + (env-exports (module-env mod)) + '()))) (define (module-name->strings ls res) (if (null? ls)