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 ; 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 ;