 
 : compile-library ( -- )
     library-is-c++ get [ C++ ] [ C ] if
-    compiler-args get
+    linker-args get
     c-strings get "\n" join
     c-library get compile-to-library ;
 

: define-c-library ( name -- )
    c-library-name c-library set
    V{ } clone c-strings set
    V{ } clone compiler-args set ;

: compile-c-library ( -- )
    compile-library? [ compile-library ] when

<PRIVATE
SYMBOL: c-library
SYMBOL: library-is-c++
SYMBOL: linker-args
SYMBOL: c-strings

: cleanup-variables ( -- )
    { c-library library-is-c++ linker-args c-strings }
    [ off ] each ;

: function-types-effect ( -- function types effect )
