From 7f71ab30249b43052bb0a98d6c1ca4bee8c5b617 Mon Sep 17 00:00:00 2001
From: Joe Groff <arcata@gmail.com>
Date: Tue, 13 Sep 2011 13:17:42 -0700
Subject: [PATCH] bootstrap.compiler: move GetLastError/FormatMessageW
 compilation before any other foreign words; add a similar shortlist for
 dlerror on unix as a safeguard

---
 basis/bootstrap/compiler/compiler.factor | 13 +++++++++----
 1 file changed, 9 insertions(+), 4 deletions(-)

diff --git a/basis/bootstrap/compiler/compiler.factor b/basis/bootstrap/compiler/compiler.factor
index c807b84c6d..7d32ba1422 100644
--- a/basis/bootstrap/compiler/compiler.factor
+++ b/basis/bootstrap/compiler/compiler.factor
@@ -107,16 +107,21 @@ gc
 
     "." write flush
 
-    {
-        malloc calloc free memcpy
-    } compile-unoptimized
-
     os windows? [
         "GetLastError" "windows.kernel32" lookup
         "FormatMessageW" "windows.kernel32" lookup
         2array compile-unoptimized
     ] when
 
+    os unix? [
+        "(dlerror)" "alien.libraries.unix" lookup
+        1array compile-unoptimized
+    ] when
+
+    {
+        malloc calloc free memcpy
+    } compile-unoptimized
+
     "." write flush
 
     vocabs [ words compile-unoptimized "." write flush ] each