Add rt-structure->environment.

s48/module-system/README

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

s48/module-system/interfaces.scm

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

s48/module-system/rt-module.scm

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