From ed825133e09fe3164d7bac39516391de10fcc95d Mon Sep 17 00:00:00 2001
From: Jeremy Hughes <jedahu@gmail.com>
Date: Wed, 8 Jul 2009 16:45:21 +1200
Subject: [PATCH 1/2] alien.inline: added RAW-C: word

---
 basis/alien/inline/inline.factor | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/basis/alien/inline/inline.factor b/basis/alien/inline/inline.factor
index 68da8b50f9..88cc5e3519 100644
--- a/basis/alien/inline/inline.factor
+++ b/basis/alien/inline/inline.factor
@@ -129,3 +129,6 @@ SYNTAX: C-STRUCTURE:
 SYNTAX: ;C-LIBRARY compile-c-library ;
 
 SYNTAX: DELETE-C-LIBRARY: scan delete-inline-library ;
+
+SYNTAX: RAW-C:
+    [ "\n" % parse-here % "\n" % c-strings get push ] "" make ;

From 5b46a22297ec0693589f4366629c9dc31952d378 Mon Sep 17 00:00:00 2001
From: Jeremy Hughes <jedahu@gmail.com>
Date: Thu, 9 Jul 2009 14:03:35 +1200
Subject: [PATCH 2/2] alien.inline.compile: compiler: use eg++ on openbsd

---
 basis/alien/inline/compiler/compiler.factor | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/basis/alien/inline/compiler/compiler.factor b/basis/alien/inline/compiler/compiler.factor
index d9f87a9f3b..b1ccc2baab 100644
--- a/basis/alien/inline/compiler/compiler.factor
+++ b/basis/alien/inline/compiler/compiler.factor
@@ -27,12 +27,20 @@ SYMBOL: C++
         { C++ [ ".cpp" ] }
     } case ;
 
-: compiler ( lang -- str )
+HOOK: compiler os ( lang -- str )
+
+M: word compiler ( lang -- str )
     {
         { C [ "gcc" ] }
         { C++ [ "g++" ] }
     } case ;
 
+M: openbsd compiler ( lang -- str )
+    {
+        { C [ "gcc" ] }
+        { C++ [ "eg++" ] }
+    } case ;
+
 HOOK: compiler-descr os ( lang -- descr )
 
 M: word compiler-descr compiler 1array ;