 
 HOOK: compiler os ( lang -- str )
 
-M: word compiler ( lang -- str )
+M: word compiler
     {
         { C [ "gcc" ] }
         { C++ [ "g++" ] }
     } case ;
 
-M: openbsd compiler ( lang -- str )
+M: openbsd compiler
     {
         { C [ "gcc" ] }
         { C++ [ "eg++" ] }
+    } case ;
+
+M: windows compiler
+    {
+        { C [ "gcc" ] }
+        { C++ [ "gcc" ] }
     } case ;
 
 HOOK: compiler-descr os ( lang -- descr )

M: macosx link-descr
    { "-g" "-prebind" "-dynamiclib" "-o" }
    cpu x86.64? [ { "-arch" "x86_64" } prepend ] when ;

<PRIVATE
: src-suffix ( lang -- str )

M: macosx compiler-descr
    call-next-method cpu x86.64?
    [ { "-arch" "x86_64" } append ] when ;
M: windows compiler-descr
    call-next-method { "-x" "c++" } append ;

HOOK: link-descr os ( -- descr )

