diff --git a/basis/compiler/tests/linkage-errors.factor b/basis/compiler/tests/linkage-errors.factor index b622ccc09d..42ba0974b4 100644 --- a/basis/compiler/tests/linkage-errors.factor +++ b/basis/compiler/tests/linkage-errors.factor @@ -5,7 +5,7 @@ FROM: alien.libraries => add-library load-library ; IN: compiler.tests.linkage-errors ! Regression: calling an undefined function would raise a protection fault -FUNCTION: void this_does_not_exist ( ) ; +FUNCTION: void this_does_not_exist ( ) [ this_does_not_exist ] try @@ -26,7 +26,7 @@ FUNCTION: void this_does_not_exist ( ) ; LIBRARY: no_such_library -FUNCTION: void no_such_function ( ) ; +FUNCTION: void no_such_function ( ) [ no_such_function ] try diff --git a/basis/compiler/tests/x87-regression.factor b/basis/compiler/tests/x87-regression.factor index 9692f787f2..53085bb140 100644 --- a/basis/compiler/tests/x87-regression.factor +++ b/basis/compiler/tests/x87-regression.factor @@ -3,7 +3,7 @@ USING: math.floats.env alien.syntax alien.c-types compiler.test tools.test kernel math ; LIBRARY: libm -FUNCTION: double sqrt ( double x ) ; +FUNCTION: double sqrt ( double x ) [ { } ] [ 4.0 [ [ 100 [ dup sqrt drop ] times ] collect-fp-exceptions nip ] compile-call diff --git a/extra/fftw/ffi/ffi.factor b/extra/fftw/ffi/ffi.factor index 4a390d0dfa..5bf73206ea 100644 --- a/extra/fftw/ffi/ffi.factor +++ b/extra/fftw/ffi/ffi.factor @@ -34,10 +34,10 @@ FUNCTION: void* fftw_malloc ( size_t n ) FUNCTION: fftw_plan fftw_plan_dft_1d ( int n, void* in, void* out, int sign, int flags ) -FUNCTION: void fftw_destroy_plan ( fftw_plan ) +FUNCTION: void fftw_destroy_plan ( fftw_plan p ) -FUNCTION: void fftw_execute ( fftw_plan ) +FUNCTION: void fftw_execute ( fftw_plan p ) -FUNCTION: void fftw_free ( void* ) +FUNCTION: void fftw_free ( void* p ) DESTRUCTOR: fftw_free diff --git a/extra/lua/lua.factor b/extra/lua/lua.factor index b2ef325618..80dd7b0197 100644 --- a/extra/lua/lua.factor +++ b/extra/lua/lua.factor @@ -107,9 +107,9 @@ FUNCTION: void lua_pushnil ( lua_State* L ) FUNCTION: void lua_pushnumber ( lua_State* L, lua_Number n ) FUNCTION: void lua_pushinteger ( lua_State* L, lua_Integer n ) FUNCTION: void lua_pushlstring ( lua_State* L, char* s, size_t l ) -FUNCTION: void lua_pushstring ( lua_State* L, c-string[ascii] ) -! FUNCTION: c-string[ascii] lua_pushvfstring ( lua_State* L, c-string[ascii] fmt, va_list argp ) ; -! FUNCTION: c-string[ascii] lua_pushfstring ( lua_State* L, c-string[ascii] fmt, ... ) ; +FUNCTION: void lua_pushstring ( lua_State* L, c-string[ascii] s ) +! FUNCTION: c-string[ascii] lua_pushvfstring ( lua_State* L, c-string[ascii] fmt, va_list argp ) +! FUNCTION: c-string[ascii] lua_pushfstring ( lua_State* L, c-string[ascii] fmt, ... ) FUNCTION: void lua_pushcclosure ( lua_State* L, lua_CFunction fn, int n ) FUNCTION: void lua_pushboolean ( lua_State* L, int b ) FUNCTION: void lua_pushlightuserdata ( lua_State* L, void* p ) diff --git a/extra/ogg/theora/theora.factor b/extra/ogg/theora/theora.factor index 0ebd638b02..78f6dc5939 100644 --- a/extra/ogg/theora/theora.factor +++ b/extra/ogg/theora/theora.factor @@ -112,7 +112,7 @@ STRUCT: th-huff-code LIBRARY: theoradec FUNCTION: c-string th_version_string ( ) FUNCTION: uint th_version_number ( ) -FUNCTION: longlong th_granule_frame ( void* encdec, longlong granpos) ; +FUNCTION: longlong th_granule_frame ( void* encdec, longlong granpos ) FUNCTION: int th_packet_isheader ( ogg-packet* op ) FUNCTION: int th_packet_iskeyframe ( ogg-packet* op ) FUNCTION: void th_info_init ( th-info* info ) diff --git a/extra/readline/ffi/ffi.factor b/extra/readline/ffi/ffi.factor index f87f84a68e..fbbba58c7c 100644 --- a/extra/readline/ffi/ffi.factor +++ b/extra/readline/ffi/ffi.factor @@ -322,7 +322,7 @@ FUNCTION: int rl_vi_goto_mark ( int arg1, int arg2 ) FUNCTION: int rl_vi_check ( ) FUNCTION: int rl_vi_domove ( int arg1, int* arg2 ) -FUNCTION: int rl_vi_bracktype ( int ) +FUNCTION: int rl_vi_bracktype ( int i ) FUNCTION: void rl_vi_start_inserting ( int arg1, int arg2, int arg3 ) @@ -348,7 +348,7 @@ FUNCTION: int rl_add_defun ( c-string arg1, rl_command_func_t* FUNCTION: int rl_bind_key ( int arg1, rl_command_func_t* arg2 ) FUNCTION: int rl_bind_key_in_map ( int arg1, rl_command_func_t* arg2, Keymap arg3 ) -FUNCTION: int rl_unbind_key ( int ) +FUNCTION: int rl_unbind_key ( int i ) FUNCTION: int rl_unbind_key_in_map ( int arg1, Keymap arg2 ) FUNCTION: int rl_bind_key_if_unbound ( int arg1, rl_command_func_t* arg2 ) @@ -382,8 +382,8 @@ FUNCTION: int rl_macro_bind ( c-string arg1, c-string arg2, Keymap arg3 ) FUNCTION: int rl_translate_keyseq ( c-string arg1, c-string arg2, int* arg3 ) -FUNCTION: c-string rl_untranslate_keyseq ( int s ) -FUNCTION: rl_command_func_t* rl_named_function ( c-string ) +FUNCTION: c-string rl_untranslate_keyseq ( int i ) +FUNCTION: rl_command_func_t* rl_named_function ( c-string s ) FUNCTION: rl_command_func_t* rl_function_of_keyseq ( c-string arg1, Keymap arg2, int* arg3 )