 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 )
 

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

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


HOOK: compiler os ( lang -- str )

M: word compiler
    {
        { C [ "gcc" ] }
        { C++ [ "g++" ] }
    } case ;

M: openbsd compiler
    {
        { C [ "gcc" ] }
        { C++ [ "eg++" ] }
    } case ;

M: windows compiler
    {
        { C [ "gcc" ] }
        { C++ [ "gcc" ] }
    } case ;

HOOK: compiler-descr os ( lang -- descr )
