scsh-conservatory
/
sunterlib
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Add rt-structure->environment.

This commit is contained in:
Martin Gasbichler 2003-04-23 08:30:47 +00:00
parent 364b11b574
commit a061a2fa33
3 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
s48/module-system/README
View File

@ -74,6 +74,10 @@ Evaluate body with the names from INTERFACE bound to the bindings
provided by RT-STRUCTURE. provided by RT-STRUCTURE.
(rt-structure->environment rt-structure) --> environment
Turns RT-STRUCTURE into an object suitable as second argument to EVAL.

2
s48/module-system/interfaces.scm
View File

@ -3,6 +3,7 @@
with-names-from-rt-structure) with-names-from-rt-structure)
:syntax) :syntax)
reify-structure reify-structure
rt-structure->environment
load-structure load-structure
load-config-file load-config-file
rt-structure-binding)) rt-structure-binding))
@ -10,6 +11,7 @@
(define-interface rt-modules-core-interface (define-interface rt-modules-core-interface
(export interface-value-names (export interface-value-names
reify-structure reify-structure
rt-structure->environment
load-config-file load-config-file
rt-structure-binding rt-structure-binding
load-structure)) load-structure))

3
s48/module-system/rt-module.scm
View File

@ -42,6 +42,9 @@
(generic-lookup (rt-structure-meta-structure structure) (generic-lookup (rt-structure-meta-structure structure)
name)))) name))))
(define (rt-structure->environment rt-structure)
(structure-package (rt-structure-meta-structure rt-structure)))
(define (load-config-file file) (define (load-config-file file)
(load file (config-package))) (load file (config-package)))