Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-08 21:47:33 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

Adding missing changes to available module introspection from 1729:f1e5f235d684.

Browse source
This commit is contained in:
Alex Shinn 2013-10-03 12:14:59 +09:00
parent fc2ca6181f
commit 2d8371c258
2 changed files with 8 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lib/chibi/modules.sld
View file

@ -3,6 +3,8 @@
(export module-name module-dir module-includes module-shared-includes (export module-name module-dir module-includes module-shared-includes
module-ast module-ast-set! module-ref module-contains? module-ast module-ast-set! module-ref module-contains?
analyze-module containing-module load-module module-exports analyze-module containing-module load-module module-exports
module-name->file procedure-analysis) module-name->file procedure-analysis find-module
(import (chibi) (meta) (chibi ast)) available-modules-in-directory available-modules
modules-exporting-identifier)
(import (chibi) (meta) (chibi ast) (chibi filesystem))
(include "modules.scm")) (include "modules.scm"))

5
lib/meta.scm
View file

@ -15,7 +15,10 @@
(define (module-meta-data-set! mod x) (vector-set! mod 2 x)) (define (module-meta-data-set! mod x) (vector-set! mod 2 x))
(define (module-exports mod) (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) (define (module-name->strings ls res)
(if (null? ls) (if (null? ls)