.

original commit: 8e1ae82643cfca83ae3e2551b4021ad491eab668

collects/compiler/sig.ss

@@ -1,13 +1,15 @@
 
-(begin-elaboration-time
+(module sig mzscheme
- (require-library "compiles.ss")
- (require-library "inflates.ss")
- (require-library "makes.ss" "make")
- (require-library "collections.ss" "make")
- (require-library "get-infos.ss" "setup"))
 
-;; Compiler options
+  (import (lib "unitsig.ss"))
-(define-signature compiler:option^
+
+  (export compiler:options^
+	  compiler^
+	  compiler:inner^
+	  compiler:linker^)
+
+  ;; Compiler options
+  (define-signature compiler:options^
      (verbose ; default = #f
    
       setup-prefix ; string to embed in public names;
@@ -75,8 +77,8 @@
       zo-compiler-flags
       ))
 
-;; Compiler procedures
+  ;; Compiler procedures
-(define-signature compiler^
+  (define-signature compiler^
     (compile-extensions
      compile-extensions-to-c
      compile-c-extensions
@@ -93,8 +95,8 @@
      compile-collection-extension
      compile-collection-zos))
 
-;; Low-level extension compiler interface
+  ;; Low-level extension compiler interface
-(define-signature compiler:inner^
+  (define-signature compiler:inner^
     (compile-extension
      compile-extension-to-c
      compile-c-extension
@@ -103,7 +105,7 @@
      compile-c-extension-part
      eval-compile-prefix))
   
-;; Low-level multi-file extension linker interface
+  ;; Low-level multi-file extension linker interface
-(define-signature compiler:linker^
+  (define-signature compiler:linker^
     (link-extension
-   glue-extension))
+     glue-extension)))