[MLton-commit] r6900

[Wesley Terpstra]

Correct typos.


----------------------------------------------------------------------

U   mlton/trunk/mlton/main/compile.fun
U   mlton/trunk/regression/library/library-test

----------------------------------------------------------------------

Modified: mlton/trunk/mlton/main/compile.fun
===================================================================
--- mlton/trunk/mlton/main/compile.fun	2008-10-02 09:56:28 UTC (rev 6899)
+++ mlton/trunk/mlton/main/compile.fun	2008-10-02 10:08:39 UTC (rev 6900)
@@ -439,8 +439,8 @@
                        | Control.LibArchive => "NO_DEFAULT_LINK"
                        | Control.Library    => "DYNAMIC_LINK"
                    val _ = 
-                      print ("#if !defined(PART_OF_"      ^ libcap ^ ") && \n\
-                             \    !defined(STATIC_LINK_"  ^ libcap ^ ") && \n\
+                      print ("#if !defined(PART_OF_"      ^ libcap ^ ") && \\\n\
+                             \    !defined(STATIC_LINK_"  ^ libcap ^ ") && \\\n\
                              \    !defined(DYNAMIC_LINK_" ^ libcap ^ ")\n")
                    val _ = 
                       print ("#define " ^ defaultLinkage ^ "_" ^ libcap ^ "\n")
@@ -457,6 +457,8 @@
                    val _ = print "#define MLLIB_PUBLIC(x) EXTERNAL x\n"
                    val _ = print "#else\n"
                    val _ = print ("#error Must specify linkage for " ^ libname ^ "\n")
+                   val _ = print "#define MLLIB_PRIVATE(x)\n"
+                   val _ = print "#define MLLIB_PUBLIC(x)\n"
                    val _ = print "#endif\n"
                    val _ = print "\n"
                    val _ = print "#ifdef __cplusplus\n"

Modified: mlton/trunk/regression/library/library-test
===================================================================
--- mlton/trunk/regression/library/library-test	2008-10-02 09:56:28 UTC (rev 6899)
+++ mlton/trunk/regression/library/library-test	2008-10-02 10:08:39 UTC (rev 6900)
@@ -1,6 +1,6 @@
 #! /usr/bin/env bash
 
-ML=mlton #../../build/bin/mlton
+ML=../../build/bin/mlton
 
 O[0]='-default-ann'
 O[1]='allowFFI true'