     ] dip append-function-body c-strings get push ;
 
 : c-link-to ( str -- )
-    "-l" prepend compiler-args get push ;
+    "-l" prepend linker-args get push ;
 
 : c-use-framework ( str -- )
-    "-framework" swap compiler-args get '[ _ push ] bi@ ;
+    "-framework" swap linker-args get '[ _ push ] bi@ ;
 
 : c-link-to/use-framework ( str -- )
     os macosx? [ c-use-framework ] [ c-link-to ] if ;

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

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

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


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

