--- sml/branches/SMLNJ/src/ml-lex/export-lex.sml	1999/04/17 18:57:03	249
+++ sml/branches/SMLNJ/src/ml-lex/export-lex.sml	1999/12/07 15:44:50	498
@@ -1,8 +1,8 @@
 (* export-lex.sml
  *
  * $Log$
- * Revision 1.1.1.8  1999/04/17 18:56:05  monnier
- * version 110.16
+ * Revision 1.1.1.9  1999/12/07 15:40:25  monnier
+ * version 110.25
  *
  * Revision 1.2  1997/03/03 17:10:35  george
  * moved callcc related functions to SMLofNJ.Cont
@@ -25,6 +25,7 @@
 
 structure ExportLexGen : sig
 
+    val export : string -> unit
     val lexGen : (string * string list) -> OS.Process.status
 
   end = struct
@@ -70,7 +71,5 @@
 			OS.Process.failure)
           end
 
-  end;
-   
-fun export name = SMLofNJ.exportFn (name, ExportLexGen.lexGen);
-
+    fun export name = SMLofNJ.exportFn (name, lexGen);
+  end

<script type="text/javascript">//<![CDATA[
		function toggle_ffErrors() {
			var errorsblock = document.getElementById("ffErrorsBlock");
			var errorsgroup = document.getElementById("ffErrors");
			if (errorsblock.style.display == "none") {
				errorsblock.style.display = "block";
				errorsgroup.style.right = "10px";
			} else {
				errorsblock.style.display = "none";
				errorsgroup.style.right = "300px";
			}
		}
//]]></script>
<div id="ffErrors">
<a href="javascript:toggle_ffErrors();">Click to toggle</a>
<div id="ffErrorsBlock">
	<div class="error">does not end with &lt;/html&gt; tag</div>
	<div class="error">does not end with &lt;/body&gt; tag</div>
	<div class="info">The output has ended thus: portFn (name, ExportLexGen.lexGen);
-
+    fun export name = SMLofNJ.exportFn (name, lexGen);
+  end</div>
</div></div>
</body></html>