=> "/opt/pkg/bin/bmake" ["-C", "/data/jenkins/workspace/pkgsrc-upstream-trunk/lang/umb-scheme", "all", "BATCH=1", "DEPENDS_TARGET=/nonexistent"] WARNING: [license.mk] Every package should define a LICENSE. ===> Building for umb-scheme-3.2nb1 --- object.o --- --- primitive.o --- --- steering.o --- --- debug.o --- --- primitive.o --- gcc -pipe -O2 -msave-args -fno-aggressive-loop-optimizations -c primitive.c --- debug.o --- gcc -pipe -O2 -msave-args -fno-aggressive-loop-optimizations -c debug.c --- object.o --- gcc -pipe -O2 -msave-args -fno-aggressive-loop-optimizations -c object.c --- steering.o --- gcc -pipe -O2 -msave-args -fno-aggressive-loop-optimizations -c steering.c --- object.o --- object.c: In function 'Init_Boolean': object.c:63:27: error: too many arguments to function 'Allocate'; expected 0, have 1 63 | The_True_Object = Allocate(Boolean_Size); | ^~~~~~~~ In file included from object.c:40: architecture.h:86:17: note: declared here 86 | Import Object Allocate(); | ^~~~~~~~ object.c:64:28: error: too many arguments to function 'Allocate'; expected 0, have 1 64 | The_False_Object = Allocate(Boolean_Size); | ^~~~~~~~ architecture.h:86:17: note: declared here 86 | Import Object Allocate(); | ^~~~~~~~ object.c: In function 'Boolean_Print': object.c:72:16: warning: old-style function definition [-Wold-style-definition] 72 | Public Integer Boolean_Print(o,m) | ^~~~~~~~~~~~~ object.c:76:1: error: number of arguments doesn't match prototype 76 | { | ^ In file included from object.c:39: object.h:114:17: error: prototype declaration 114 | Import Integer Boolean_Print(); | ^~~~~~~~~~~~~ object.c:78:17: error: too many arguments to function 'Output'; expected 0, have 1 78 | Output("#t"); | ^~~~~~ ~~~~ In file included from object.c:43: io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ object.c:80:17: error: too many arguments to function 'Output'; expected 0, have 1 80 | Output("#f"); | ^~~~~~ ~~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ object.c:82:17: error: too many arguments to function 'Panic'; expected 0, have 1 82 | Panic("Boolean_Print called on a non-boolean"); | ^~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ In file included from object.c:42: steering.h:44:17: note: declared here 44 | Import void Panic(); | ^~~~~ object.c: In function 'Boolean_GC': object.c:86:15: warning: old-style function definition [-Wold-style-definition] 86 | Public Object Boolean_GC(old) | ^~~~~~~~~~ object.c:89:1: error: number of arguments doesn't match prototype 89 | { | ^ object.h:115:32: error: prototype declaration 115 | Import struct Object_Struct *Boolean_GC(); | ^~~~~~~~~~ object.c:90:22: error: too many arguments to function 'Move_Object'; expected 0, have 2 90 | Object new = Move_Object(old, Boolean_Size); | ^~~~~~~~~~~ ~~~ architecture.h:95:15: note: declared here 95 | Import Object Move_Object(); | ^~~~~~~~~~~ object.c: In function 'Make_Pair': object.c:106:26: error: too many arguments to function 'Allocate'; expected 0, have 1 106 | Value_Register = Allocate(Pair_Size); | ^~~~~~~~ architecture.h:86:17: note: declared here 86 | Import Object Allocate(); | ^~~~~~~~ object.c: In function 'Pair_Write': object.c:115:17: warning: old-style function definition [-Wold-style-definition] 115 | Public Integer Pair_Write( o , m ) | ^~~~~~~~~~ object.c:119:1: error: number of arguments doesn't match prototype 119 | { | ^ object.h:135:33: error: prototype declaration 135 | Import Integer Pair_Display(), Pair_Write(), Pair_Show(); | ^~~~~~~~~~ object.c:120:9: error: too many arguments to function 'Output'; expected 0, have 1 120 | Output( "(" ); m += 1; | ^~~~~~ ~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ object.h:102:46: error: too many arguments to function 'o->Specific.Pair.Car->Common.Type->Write'; expected 0, have 2 102 | #define Write_Object(o,m) ((Get_Type(o)->Write)(o,m)) | ~~~~~~~~~~~~^~~~~~~~ object.c:122:13: note: in expansion of macro 'Write_Object' 122 | m = Write_Object( Get_Pair_Car( o ) , m ); | ^~~~~~~~~~~~ object.h:74:19: note: declared here 74 | Integer (*Write)(); | ^~~~~ object.c:127:17: error: too many arguments to function 'Output'; expected 0, have 1 127 | Output( " " ); m += 1; | ^~~~~~ ~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ object.h:102:46: error: too many arguments to function 'o->Specific.Pair.Car->Common.Type->Write'; expected 0, have 2 102 | #define Write_Object(o,m) ((Get_Type(o)->Write)(o,m)) | ~~~~~~~~~~~~^~~~~~~~ object.c:128:21: note: in expansion of macro 'Write_Object' 128 | m = Write_Object( Get_Pair_Car( o ) , m ); | ^~~~~~~~~~~~ object.h:74:19: note: declared here 74 | Integer (*Write)(); | ^~~~~ object.c:134:17: error: too many arguments to function 'Output'; expected 0, have 1 134 | Output( ")" ); m += 1; | ^~~~~~ ~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ object.c:138:17: error: too many arguments to function 'Output'; expected 0, have 1 138 | Output( " . " ); m += 2; | ^~~~~~ ~~~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ object.h:102:46: error: too many arguments to function 'o->Common.Type->Write'; expected 0, have 2 102 | #define Write_Object(o,m) ((Get_Type(o)->Write)(o,m)) | ~~~~~~~~~~~~^~~~~~~~ object.c:139:21: note: in expansion of macro 'Write_Object' 139 | m = Write_Object( o , m ); | ^~~~~~~~~~~~ object.h:74:19: note: declared here 74 | Integer (*Write)(); | ^~~~~ object.c:140:17: error: too many arguments to function 'Output'; expected 0, have 1 140 | Output( ")" ); m += 1; | ^~~~~~ ~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ object.c: In function 'Pair_Display': object.c:145:17: warning: old-style function definition [-Wold-style-definition] 145 | Public Integer Pair_Display( o , m ) | ^~~~~~~~~~~~ object.c:149:1: error: number of arguments doesn't match prototype 149 | { | ^ object.h:135:17: error: prototype declaration 135 | Import Integer Pair_Display(), Pair_Write(), Pair_Show(); | ^~~~~~~~~~~~ object.c:150:9: error: too many arguments to function 'Output'; expected 0, have 1 150 | Output( "(" ); m += 1; | ^~~~~~ ~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ object.h:101:46: error: too many arguments to function 'o->Specific.Pair.Car->Common.Type->Display'; expected 0, have 2 101 | #define Display_Object(o,m) ((Get_Type(o)->Display)(o,m)) | ~~~~~~~~~~~~^~~~~~~~~~ object.c:152:13: note: in expansion of macro 'Display_Object' 152 | m = Display_Object( Get_Pair_Car( o ) , m ); | ^~~~~~~~~~~~~~ object.h:73:19: note: declared here 73 | Integer (*Display)(); | ^~~~~~~ object.c:157:17: error: too many arguments to function 'Output'; expected 0, have 1 157 | Output( " " ); m += 1; | ^~~~~~ ~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ object.h:101:46: error: too many arguments to function 'o->Specific.Pair.Car->Common.Type->Display'; expected 0, have 2 101 | #define Display_Object(o,m) ((Get_Type(o)->Display)(o,m)) | ~~~~~~~~~~~~^~~~~~~~~~ object.c:158:21: note: in expansion of macro 'Display_Object' 158 | m = Display_Object( Get_Pair_Car( o ) , m ); | ^~~~~~~~~~~~~~ object.h:73:19: note: declared here 73 | Integer (*Display)(); | ^~~~~~~ object.c:164:17: error: too many arguments to function 'Output'; expected 0, have 1 164 | Output( ")" ); m += 1; | ^~~~~~ ~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ object.c:168:17: error: too many arguments to function 'Output'; expected 0, have 1 168 | Output( " . " ); m += 2; | ^~~~~~ ~~~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ object.h:101:46: error: too many arguments to function 'o->Common.Type->Display'; expected 0, have 2 101 | #define Display_Object(o,m) ((Get_Type(o)->Display)(o,m)) | ~~~~~~~~~~~~^~~~~~~~~~ object.c:169:21: note: in expansion of macro 'Display_Object' 169 | m = Display_Object( o , m ); | ^~~~~~~~~~~~~~ object.h:73:19: note: declared here 73 | Integer (*Display)(); | ^~~~~~~ object.c:170:17: error: too many arguments to function 'Output'; expected 0, have 1 170 | Output( ")" ); m += 1; | ^~~~~~ ~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ object.c: In function 'Pair_Show': object.c:176:17: warning: old-style function definition [-Wold-style-definition] 176 | Public Integer Pair_Show( o, m ) | ^~~~~~~~~ object.c:180:1: error: number of arguments doesn't match prototype 180 | { | ^ object.h:135:47: error: prototype declaration 135 | Import Integer Pair_Display(), Pair_Write(), Pair_Show(); | ^~~~~~~~~ object.c:181:26: error: too many arguments to function 'Length'; expected 0, have 1 181 | Integer length = Length(o); | ^~~~~~ ~ object.h:149:17: note: declared here 149 | Import Integer Length(); | ^~~~~~ object.c:185:17: error: too many arguments to function 'Output'; expected 0, have 1 185 | Output("("); m += 1; | ^~~~~~ ~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ object.c:186:35: error: too many arguments to function 'First'; expected 0, have 1 186 | m = Write_Object( First(o) , m ) + 1; Output( " " ); | ^~~~~ ~ object.h:96:23: note: in definition of macro 'Get_Type' 96 | #define Get_Type(o) ((o)->Common.Type) | ^ object.c:186:21: note: in expansion of macro 'Write_Object' 186 | m = Write_Object( First(o) , m ) + 1; Output( " " ); | ^~~~~~~~~~~~ object.h:150:31: note: declared here 150 | Import struct Object_Struct *First(); | ^~~~~ object.c:186:35: error: too many arguments to function 'First'; expected 0, have 1 186 | m = Write_Object( First(o) , m ) + 1; Output( " " ); | ^~~~~ ~ object.h:102:55: note: in definition of macro 'Write_Object' 102 | #define Write_Object(o,m) ((Get_Type(o)->Write)(o,m)) | ^ object.h:150:31: note: declared here 150 | Import struct Object_Struct *First(); | ^~~~~ object.h:102:46: error: too many arguments to function 'First()->Common.Type->Write'; expected 0, have 2 102 | #define Write_Object(o,m) ((Get_Type(o)->Write)(o,m)) | ~~~~~~~~~~~~^~~~~~~~ object.c:186:21: note: in expansion of macro 'Write_Object' 186 | m = Write_Object( First(o) , m ) + 1; Output( " " ); | ^~~~~~~~~~~~ object.h:74:19: note: declared here 74 | Integer (*Write)(); | ^~~~~ object.c:186:55: error: too many arguments to function 'Output'; expected 0, have 1 186 | m = Write_Object( First(o) , m ) + 1; Output( " " ); | ^~~~~~ ~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ object.c:187:35: error: too many arguments to function 'Second'; expected 0, have 1 187 | m = Write_Object( Second(o) , m ) + 1; Output( " " ); | ^~~~~~ ~ object.h:96:23: note: in definition of macro 'Get_Type' 96 | #define Get_Type(o) ((o)->Common.Type) | ^ object.c:187:21: note: in expansion of macro 'Write_Object' 187 | m = Write_Object( Second(o) , m ) + 1; Output( " " ); | ^~~~~~~~~~~~ object.h:151:31: note: declared here 151 | Import struct Object_Struct *Second(); | ^~~~~~ object.c:187:35: error: too many arguments to function 'Second'; expected 0, have 1 187 | m = Write_Object( Second(o) , m ) + 1; Output( " " ); | ^~~~~~ ~ object.h:102:55: note: in definition of macro 'Write_Object' 102 | #define Write_Object(o,m) ((Get_Type(o)->Write)(o,m)) | ^ object.h:151:31: note: declared here 151 | Import struct Object_Struct *Second(); | ^~~~~~ object.h:102:46: error: too many arguments to function 'Second()->Common.Type->Write'; expected 0, have 2 102 | #define Write_Object(o,m) ((Get_Type(o)->Write)(o,m)) | ~~~~~~~~~~~~^~~~~~~~ object.c:187:21: note: in expansion of macro 'Write_Object' 187 | m = Write_Object( Second(o) , m ) + 1; Output( " " ); | ^~~~~~~~~~~~ object.h:74:19: note: declared here 74 | Integer (*Write)(); | ^~~~~ object.c:187:56: error: too many arguments to function 'Output'; expected 0, have 1 187 | m = Write_Object( Second(o) , m ) + 1; Output( " " ); | ^~~~~~ ~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ object.c:188:35: error: too many arguments to function 'Third'; expected 0, have 1 188 | m = Write_Object( Third(o) , m ) + 1; Output( " " ); | ^~~~~ ~ object.h:96:23: note: in definition of macro 'Get_Type' 96 | #define Get_Type(o) ((o)->Common.Type) | ^ object.c:188:21: note: in expansion of macro 'Write_Object' 188 | m = Write_Object( Third(o) , m ) + 1; Output( " " ); | ^~~~~~~~~~~~ object.h:152:31: note: declared here 152 | Import struct Object_Struct *Third(); | ^~~~~ object.c:188:35: error: too many arguments to function 'Third'; expected 0, have 1 188 | m = Write_Object( Third(o) , m ) + 1; Output( " " ); | ^~~~~ ~ object.h:102:55: note: in definition of macro 'Write_Object' 102 | #define Write_Object(o,m) ((Get_Type(o)->Write)(o,m)) | ^ object.h:152:31: note: declared here 152 | Import struct Object_Struct *Third(); | ^~~~~ object.h:102:46: error: too many arguments to function 'Third()->Common.Type->Write'; expected 0, have 2 102 | #define Write_Object(o,m) ((Get_Type(o)->Write)(o,m)) | ~~~~~~~~~~~~^~~~~~~~ object.c:188:21: note: in expansion of macro 'Write_Object' 188 | m = Write_Object( Third(o) , m ) + 1; Output( " " ); | ^~~~~~~~~~~~ object.h:74:19: note: declared here 74 | Integer (*Write)(); | ^~~~~ --- debug.o --- debug.c: In function 'Steer_Debugging': debug.c:95:9: error: too many arguments to function 'Read_Eval_Print'; expected 0, have 1 95 | Read_Eval_Print( The_Standard_Input ); | ^~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~ In file included from debug.c:45: steering.h:37:17: note: declared here 37 | Import void Read_Eval_Print(); | ^~~~~~~~~~~~~~~ debug.c: In function 'Step': debug.c:125:31: error: too many arguments to function 'Number_To_Integer'; expected 0, have 1 125 | Stepping = Stepper = Number_To_Integer( Top(1) ); | ^~~~~~~~~~~~~~~~~ In file included from debug.c:49: number.h:87:17: note: declared here 87 | Import Integer Number_To_Integer(); | ^~~~~~~~~~~~~~~~~ debug.c: In function 'Trace': debug.c:157:21: error: too many arguments to function 'Display_Error'; expected 0, have 2 157 | Display_Error( "Attempt to trace a non-procedure object: ", | ^~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ steering.h:43:17: note: declared here 43 | Import void Display_Error(); | ^~~~~~~~~~~~~ In file included from debug.c:47: architecture.h:62:34: error: too many arguments to function 'Error'; expected 0, have 1 62 | Error( "Argument Stack Overflow." );\ | ^~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~ debug.c:160:17: note: in expansion of macro 'Push' 160 | Push( Top( arg_count ) ); | ^~~~ steering.h:41:17: note: declared here 41 | Import void Error(); | ^~~~~ architecture.h:62:34: error: too many arguments to function 'Error'; expected 0, have 1 62 | Error( "Argument Stack Overflow." );\ | ^~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~ debug.c:161:17: note: in expansion of macro 'Push' 161 | Push( Traced_Procedures ); | ^~~~ steering.h:41:17: note: declared here 41 | Import void Error(); | ^~~~~ debug.c: In function 'Untrace': debug.c:189:39: error: too many arguments to function 'First'; expected 0, have 1 189 | Object proc = First( Traced_Procedures ); | ^~~~~ ~~~~~~~~~~~~~~~~~ In file included from debug.c:43: object.h:150:31: note: declared here 150 | Import struct Object_Struct *First(); | ^~~~~ debug.c:201:33: error: too many arguments to function 'Display_Error'; expected 0, have 2 201 | Display_Error( | ^~~~~~~~~~~~~ 202 | "Attempt to trace a non-procedure object: ", | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ steering.h:43:17: note: declared here 43 | Import void Display_Error(); | ^~~~~~~~~~~~~ debug.c:205:45: error: too many arguments to function 'Rest'; expected 0, have 1 205 | Traced_Procedures = Rest( Traced_Procedures ); | ^~~~ ~~~~~~~~~~~~~~~~~ object.h:154:31: note: declared here 154 | Import struct Object_Struct *Rest(); | ^~~~ debug.c:220:21: error: too many arguments to function 'Display_Error'; expected 0, have 2 220 | Display_Error( "Attempt to trace a non-procedure object: ", | ^~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ steering.h:43:17: note: declared here 43 | Import void Display_Error(); | ^~~~~~~~~~~~~ debug.c: In function 'GoN': debug.c:240:21: error: too many arguments to function 'Number_To_Integer'; expected 0, have 1 240 | Integer k = Number_To_Integer( Top(2) ); /* State Frames to descend */ | ^~~~~~~~~~~~~~~~~ number.h:87:17: note: declared here 87 | Import Integer Number_To_Integer(); | ^~~~~~~~~~~~~~~~~ debug.c:262:25: error: too many arguments to function 'Error'; expected 0, have 1 262 | Error( "k too large in (go# k obj)" ); | ^~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~ steering.h:41:17: note: declared here 41 | Import void Error(); | ^~~~~ debug.c:267:17: error: too many arguments to function 'Error'; expected 0, have 1 267 | Error( "(go k obj) executed outside of debugging mode" ); | ^~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ steering.h:41:17: note: declared here 41 | Import void Error(); | ^~~~~ debug.c: In function 'Show_Proc_Env': debug.c:278:9: error: too many arguments to function 'Output'; expected 0, have 1 278 | Output( "\n" ); | ^~~~~~ ~~~~ In file included from debug.c:48: io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ debug.c:279:17: error: too many arguments to function 'Environment_Frame_Show'; expected 0, have 2 279 | dummy = Environment_Frame_Show( frame , 0 ); | ^~~~~~~~~~~~~~~~~~~~~~ ~~~~~ object.h:841:44: note: declared here 841 | Import Integer Environment_Frame_Print(), Environment_Frame_Show(); | ^~~~~~~~~~~~~~~~~~~~~~ debug.c: In function 'Show_Global_Binding': debug.c:286:17: warning: old-style function definition [-Wold-style-definition] 286 | Private void Show_Global_Binding( Symaddr ) | ^~~~~~~~~~~~~~~~~~~ debug.c:294:17: error: too many arguments to function 'Output'; expected 0, have 1 294 | Output( "\n" ); | ^~~~~~ ~~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ object.h:103:46: error: too many arguments to function 'Sym->Common.Type->Show'; expected 0, have 2 103 | #define Show_Object(o,m) ((Get_Type(o)->Show)(o,m)) | ~~~~~~~~~~~~^~~~~~~ debug.c:295:21: note: in expansion of macro 'Show_Object' 295 | m = Show_Object( Sym , 0 ); | ^~~~~~~~~~~ object.h:75:19: note: declared here 75 | Integer (*Show)(); | ^~~~ debug.c:296:17: error: too many arguments to function 'Output'; expected 0, have 1 296 | Output( "\t= " ); m = 12; | ^~~~~~ ~~~~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ object.h:103:46: error: too many arguments to function 'Sym->Specific.Symbol.Global_Binding->Common.Type->Show'; expected 0, have 2 103 | #define Show_Object(o,m) ((Get_Type(o)->Show)(o,m)) | ~~~~~~~~~~~~^~~~~~~ debug.c:297:21: note: in expansion of macro 'Show_Object' 297 | m = Show_Object( Get_Global_Binding( Sym ) , m ); | ^~~~~~~~~~~ object.h:75:19: note: declared here 75 | Integer (*Show)(); | ^~~~ debug.c: In function 'Show_Global_Env': debug.c:304:9: error: too many arguments to function 'Output'; expected 0, have 1 304 | Output( "\nUser-defined Global Symbols:\n" ); | ^~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ debug.c:305:9: error: too many arguments to function 'Symbol_Hash_Iterate'; expected 0, have 1 305 | Symbol_Hash_Iterate( Show_Global_Binding ); | ^~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~ architecture.h:81:17: note: declared here 81 | Import void Symbol_Hash_Iterate(); | ^~~~~~~~~~~~~~~~~~~ debug.c: In function 'Show_Env': debug.c:316:9: error: too many arguments to function 'Output'; expected 0, have 1 316 | Output( "\n" ); | ^~~~~~ ~~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ debug.c:317:17: error: too many arguments to function 'Environment_Frame_Show'; expected 0, have 2 317 | dummy = Environment_Frame_Show( frame , 0 ); | ^~~~~~~~~~~~~~~~~~~~~~ ~~~~~ object.h:841:44: note: declared here 841 | Import Integer Environment_Frame_Print(), Environment_Frame_Show(); | ^~~~~~~~~~~~~~~~~~~~~~ debug.c: In function 'Where': debug.c:329:13: error: too many arguments to function 'Number_To_Integer'; expected 0, have 1 329 | k = Number_To_Integer( Top( 1 ) ); | ^~~~~~~~~~~~~~~~~ number.h:87:17: note: declared here 87 | Import Integer Number_To_Integer(); | ^~~~~~~~~~~~~~~~~ debug.c:338:25: error: too many arguments to function 'Output'; expected 0, have 1 338 | Output( countstr ); | ^~~~~~ ~~~~~~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ object.h:102:46: error: too many arguments to function 'last->Common.Type->Write'; expected 0, have 2 102 | #define Write_Object(o,m) ((Get_Type(o)->Write)(o,m)) | ~~~~~~~~~~~~^~~~~~~~ debug.c:339:32: note: in expansion of macro 'Write_Object' 339 | (void) Write_Object( last , 5 ); | ^~~~~~~~~~~~ object.h:74:19: note: declared here 74 | Integer (*Write)(); | ^~~~~ debug.c: In function 'How': object.h:103:46: error: too many arguments to function 'env->Specific.Environment_Frame.Slots[env->Specific.Environment_Frame.Size * 2 + displacement]->Common.Type->Show'; expected 0, have 2 103 | #define Show_Object(o,m) ((Get_Type(o)->Show)(o,m)) | ~~~~~~~~~~~~^~~~~~~ debug.c:363:29: note: in expansion of macro 'Show_Object' 363 | Show_Object( | ^~~~~~~~~~~ object.h:75:19: note: declared here 75 | Integer (*Show)(); | ^~~~ object.h:103:46: error: too many arguments to function 'sym->Specific.Symbol.How->Common.Type->Show'; expected 0, have 2 103 | #define Show_Object(o,m) ((Get_Type(o)->Show)(o,m)) | ~~~~~~~~~~~~^~~~~~~ debug.c:371:9: note: in expansion of macro 'Show_Object' 371 | Show_Object( Get_Symbol_How( sym ) , 0 ); | ^~~~~~~~~~~ object.h:75:19: note: declared here 75 | Integer (*Show)(); | ^~~~ debug.c: In function 'Initialize_Debug': debug.c:382:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 382 | Make_Primitive("debug", Debug , 0, The_Undefined_Type, | ^~~~~~~~~~~~~~ ~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ debug.c:385:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 385 | Make_Primitive("debug-off", Debug_Off , 0, The_Undefined_Type, | ^~~~~~~~~~~~~~ ~~~~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ debug.c:388:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 388 | Make_Primitive("trace", Trace , VARYING, Any_Type, The_Undefined_Type, | ^~~~~~~~~~~~~~ ~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ debug.c:391:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 391 | Make_Primitive("untrace", Untrace, VARYING, Any_Type, The_Undefined_Type, | ^~~~~~~~~~~~~~ ~~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ debug.c:394:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 394 | Make_Primitive("#_go", GoN, 2, Number_Type, Any_Type, | ^~~~~~~~~~~~~~ ~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ debug.c:397:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 397 | Make_Primitive("step", Step , 1 , Number_Type, The_Undefined_Type, | ^~~~~~~~~~~~~~ ~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ debug.c:400:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 400 | Make_Primitive("show-globals", Show_Global_Env,0,The_Undefined_Type, | ^~~~~~~~~~~~~~ ~~~~~~~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ debug.c:403:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 403 | Make_Primitive("show-proc-env", Show_Proc_Env,1,Procedure_Type, | ^~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ debug.c:406:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 406 | Make_Primitive("#_show-env", Show_Env,1,Number_Type, The_Undefined_Type, | ^~~~~~~~~~~~~~ ~~~~~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ debug.c:409:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 409 | Make_Primitive("#_where", Where , 1, Number_Type, The_Undefined_Type, | ^~~~~~~~~~~~~~ ~~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ debug.c:412:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 412 | Make_Primitive("#_how", How , 1, Symbol_Type, The_Undefined_Type, | ^~~~~~~~~~~~~~ ~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ *** [debug.o] Error code 1 bmake: stopped making "default" in /tmp/work/lang/umb-scheme/work/scheme-3.2 --- object.o --- object.c:188:55: error: too many arguments to function 'Output'; expected 0, have 1 188 | m = Write_Object( Third(o) , m ) + 1; Output( " " ); | ^~~~~~ ~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ object.c:189:17: error: too many arguments to function 'Output'; expected 0, have 1 189 | Output( "...)" ); m += 4; | ^~~~~~ ~~~~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ object.c:193:17: error: too many arguments to function 'Pair_Write'; expected 0, have 2 193 | Pair_Write( o , m ); | ^~~~~~~~~~ ~ object.c:115:17: note: declared here 115 | Public Integer Pair_Write( o , m ) | ^~~~~~~~~~ object.c: In function 'Pair_GC': --- primitive.o --- In file included from primitive.c:40: primitive.c: In function 'Cons': architecture.h:62:34: error: too many arguments to function 'Error'; expected 0, have 1 62 | Error( "Argument Stack Overflow." );\ | ^~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~ primitive.c:162:9: note: in expansion of macro 'Push' 162 | Push(Top(2)); /* Car */ | ^~~~ In file included from primitive.c:42: steering.h:41:17: note: declared here 41 | Import void Error(); | ^~~~~ architecture.h:62:34: error: too many arguments to function 'Error'; expected 0, have 1 62 | Error( "Argument Stack Overflow." );\ | ^~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~ primitive.c:163:9: note: in expansion of macro 'Push' 163 | Push(Top(2)); /* Cdr */ | ^~~~ steering.h:41:17: note: declared here 41 | Import void Error(); --- steering.o --- steering.c: In function 'main': steering.c:82:13: warning: old-style function definition [-Wold-style-definition] 82 | Public void main( argc , argv ) | ^~~~ steering.c: In function 'Steering': steering.c:112:9: error: too many arguments to function 'Output'; expected 0, have 1 112 | Output( Opening ); | ^~~~~~ ~~~~~~~ In file included from steering.c:47: io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ steering.c:114:27: error: passing argument 2 of 'signal' from incompatible pointer type [-Wincompatible-pointer-types] 114 | signal( SIGINT , Handler ); | ^~~~~~~ | | | void (*)(void) In file included from /usr/include/signal.h:42, from steering.c:38: /usr/include/iso/signal_iso.h:63:27: note: expected 'void (*)(int)' but argument is of type 'void (*)(void)' --- object.o --- object.c:199:15: warning: old-style function definition [-Wold-style-definition] 199 | Public Object Pair_GC(old) | ^~~~~~~ object.c:202:1: error: number of arguments doesn't match prototype 202 | { | ^ object.h:136:24: error: prototype declaration 136 | struct Object_Struct *Pair_GC(); | ^~~~~~~ object.c:203:22: error: too many arguments to function 'Move_Object'; expected 0, have 2 203 | Object new = Move_Object(old, Pair_Size); | ^~~~~~~~~~~ ~~~ architecture.h:95:15: note: declared here 95 | Import Object Move_Object(); | ^~~~~~~~~~~ object.c:205:9: error: too many arguments to function 'Relocate'; expected 0, have 1 205 | Relocate(&Get_Pair_Car(new)); | ^~~~~~~~ architecture.h:96:13: note: declared here 96 | Import void Relocate(); | ^~~~~~~~ object.c:206:9: error: too many arguments to function 'Relocate'; expected 0, have 1 --- primitive.o --- | ^~~~~ primitive.c: In function 'Get_Pair_Length': primitive.c:204:27: error: too many arguments to function 'Length'; expected 0, have 1 204 | Integer_To_Number(Length(Top(1))); | ^~~~~~ In file included from primitive.c:39: object.h:149:17: note: declared here 149 | Import Integer Length(); | ^~~~~~ primitive.c:204:9: error: too many arguments to function 'Integer_To_Number'; expected 0, have 1 204 | Integer_To_Number(Length(Top(1))); | ^~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~ In file included from primitive.c:41: number.h:88:17: note: declared here 88 | Import void Integer_To_Number(/* Integer */); | ^~~~~~~~~~~~~~~~~ primitive.c: In function 'Append': architecture.h:62:34: error: too many arguments to function 'Error'; expected 0, have 1 62 | Error( "Argument Stack Overflow." );\ --- steering.o --- 63 | extern void (*signal(int, void (*)(int)))(int); | ^~~~~~~~~~~~~ In file included from steering.c:44: steering.h:39:17: note: 'Handler' declared here 39 | Import void Handler(); | ^~~~~~~ steering.c:115:27: error: passing argument 2 of 'signal' from incompatible pointer type [-Wincompatible-pointer-types] 115 | signal( SIGFPE , Handler ); | ^~~~~~~ | | | void (*)(void) /usr/include/iso/signal_iso.h:63:27: note: expected 'void (*)(int)' but argument is of type 'void (*)(void)' 63 | extern void (*signal(int, void (*)(int)))(int); | ^~~~~~~~~~~~~ steering.h:39:17: note: 'Handler' declared here 39 | Import void Handler(); | ^~~~~~~ steering.c:116:27: error: passing argument 2 of 'signal' from incompatible pointer type [-Wincompatible-pointer-types] --- object.o --- 206 | Relocate(&Get_Pair_Cdr(new)); | ^~~~~~~~ architecture.h:96:13: note: declared here 96 | Import void Relocate(); | ^~~~~~~~ object.c: In function 'Length': object.c:215:9: warning: old-style function definition [-Wold-style-definition] 215 | Integer Length(list) | ^~~~~~ object.c:218:1: error: number of arguments doesn't match prototype 218 | { | ^ object.h:149:17: error: prototype declaration 149 | Import Integer Length(); | ^~~~~~ object.c: In function 'Last_Cdr': object.c:230:16: warning: old-style function definition [-Wold-style-definition] 230 | Private Object Last_Cdr(list) | ^~~~~~~~ object.c: In function 'First': object.c:242:15: warning: old-style function definition [-Wold-style-definition] 242 | Public Object First(list) | ^~~~~ object.c:245:1: error: number of arguments doesn't match prototype 245 | { | ^ --- primitive.o --- | ^~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~ primitive.c:232:33: note: in expansion of macro 'Push' 232 | Push( Get_Pair_Car( list ) ); | ^~~~ steering.h:41:17: note: declared here 41 | Import void Error(); | ^~~~~ primitive.c:238:33: error: too many arguments to function 'Display_Error'; expected 0, have 2 238 | Display_Error( "Bad list argument to append: ", | ^~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ steering.h:43:17: note: declared here 43 | Import void Display_Error(); | ^~~~~~~~~~~~~ architecture.h:62:34: error: too many arguments to function 'Error'; expected 0, have 1 62 | Error( "Argument Stack Overflow." );\ | ^~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~ --- steering.o --- 116 | signal( SIGILL , Handler ); | ^~~~~~~ | | | void (*)(void) /usr/include/iso/signal_iso.h:63:27: note: expected 'void (*)(int)' but argument is of type 'void (*)(void)' 63 | extern void (*signal(int, void (*)(int)))(int); | ^~~~~~~~~~~~~ steering.h:39:17: note: 'Handler' declared here 39 | Import void Handler(); | ^~~~~~~ steering.c:117:27: error: passing argument 2 of 'signal' from incompatible pointer type [-Wincompatible-pointer-types] 117 | signal( SIGSEGV , Handler ); | ^~~~~~~ | | | void (*)(void) /usr/include/iso/signal_iso.h:63:27: note: expected 'void (*)(int)' but argument is of type 'void (*)(void)' 63 | extern void (*signal(int, void (*)(int)))(int); | ^~~~~~~~~~~~~ --- object.o --- object.h:150:31: error: prototype declaration 150 | Import struct Object_Struct *First(); | ^~~~~ object.c:248:17: error: too many arguments to function 'Display_Error'; expected 0, have 2 248 | Display_Error("Syntax error in First: list doesn't have a car", | ^~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ steering.h:43:17: note: declared here 43 | Import void Display_Error(); | ^~~~~~~~~~~~~ object.c: In function 'Rest': object.c:256:15: warning: old-style function definition [-Wold-style-definition] 256 | Public Object Rest(list) | ^~~~ object.c:259:1: error: number of arguments doesn't match prototype 259 | { | ^ object.h:154:31: error: prototype declaration 154 | Import struct Object_Struct *Rest(); | ^~~~ object.c:262:17: error: too many arguments to function 'Display_Error'; expected 0, have 2 --- primitive.o --- primitive.c:242:33: note: in expansion of macro 'Push' 242 | Push( Value_Register ); | ^~~~ steering.h:41:17: note: declared here 41 | Import void Error(); | ^~~~~ primitive.c: In function 'Reverse': primitive.c:255:26: error: too many arguments to function 'Length'; expected 0, have 1 255 | Integer length = Length(Top(1)); | ^~~~~~ object.h:149:17: note: declared here 149 | Import Integer Length(); | ^~~~~~ primitive.c:258:13: error: too many arguments to function 'Display_Error'; expected 0, have 2 258 | Display_Error("Argument to reverse not a list", Top(1)); | ^~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ steering.h:43:17: note: declared here 43 | Import void Display_Error(); | ^~~~~~~~~~~~~ architecture.h:62:34: error: too many arguments to function 'Error'; expected 0, have 1 --- steering.o --- steering.h:39:17: note: 'Handler' declared here 39 | Import void Handler(); | ^~~~~~~ steering.c:118:27: error: passing argument 2 of 'signal' from incompatible pointer type [-Wincompatible-pointer-types] 118 | signal( SIGTERM , Handler ); | ^~~~~~~ | | | void (*)(void) /usr/include/iso/signal_iso.h:63:27: note: expected 'void (*)(int)' but argument is of type 'void (*)(void)' 63 | extern void (*signal(int, void (*)(int)))(int); | ^~~~~~~~~~~~~ steering.h:39:17: note: 'Handler' declared here 39 | Import void Handler(); | ^~~~~~~ steering.c:124:9: error: too many arguments to function 'Set_Printing'; expected 0, have 1 124 | Set_Printing( TRUE ); | ^~~~~~~~~~~~ io.h:54:17: note: declared here 54 | Import void Set_Printing(/* Boolean */); | ^~~~~~~~~~~~ --- object.o --- 262 | Display_Error("Syntax error in Rest: list doesn't have a cdr", | ^~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ steering.h:43:17: note: declared here 43 | Import void Display_Error(); | ^~~~~~~~~~~~~ object.c: In function 'Second': object.c:270:8: warning: old-style function definition [-Wold-style-definition] 270 | Object Second(list) | ^~~~~~ object.c:273:1: error: number of arguments doesn't match prototype 273 | { | ^ object.h:151:31: error: prototype declaration 151 | Import struct Object_Struct *Second(); | ^~~~~~ object.c:276:9: error: too many arguments to function 'Display_Error'; expected 0, have 2 276 | Display_Error( | ^~~~~~~~~~~~~ 277 | "Syntax error in second: list doesn't have two elements", | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ --- primitive.o --- 62 | Error( "Argument Stack Overflow." );\ | ^~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~ primitive.c:264:17: note: in expansion of macro 'Push' 264 | Push(Get_Pair_Car(Top(1))); /* car on stack first */ | ^~~~ steering.h:41:17: note: declared here 41 | Import void Error(); | ^~~~~ architecture.h:62:34: error: too many arguments to function 'Error'; expected 0, have 1 62 | Error( "Argument Stack Overflow." );\ | ^~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~ primitive.c:265:17: note: in expansion of macro 'Push' 265 | Push(Value_Register); /* cdr on stack second */ | ^~~~ steering.h:41:17: note: declared here 41 | Import void Error(); | ^~~~~ primitive.c: In function 'List_Tail': --- steering.o --- steering.c:145:17: error: too many arguments to function 'Load_File'; expected 0, have 1 145 | Load_File(STANDARD_PRELUDE_PATHNAME); | ^~~~~~~~~ steering.c:59:14: note: declared here 59 | Private void Load_File(); | ^~~~~~~~~ steering.c:155:25: error: too many arguments to function 'Load_File'; expected 0, have 1 155 | Load_File (Init_Filename); | ^~~~~~~~~ ~~~~~~~~~~~~~ steering.c:59:14: note: declared here 59 | Private void Load_File(); | ^~~~~~~~~ steering.c:157:26: error: too many arguments to function 'File_Exists'; expected 0, have 1 157 | else if (File_Exists (Dot_Scheme_Filename)) | ^~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~ steering.c:60:17: note: declared here 60 | Private Boolean File_Exists(); | ^~~~~~~~~~~ steering.c:159:25: error: too many arguments to function 'Load_File'; expected 0, have 1 --- object.o --- steering.h:43:17: note: declared here 43 | Import void Display_Error(); | ^~~~~~~~~~~~~ object.c: In function 'Third': object.c:284:8: warning: old-style function definition [-Wold-style-definition] 284 | Object Third(list) | ^~~~~ object.c:287:1: error: number of arguments doesn't match prototype 287 | { | ^ object.h:152:31: error: prototype declaration 152 | Import struct Object_Struct *Third(); | ^~~~~ object.c:291:17: error: too many arguments to function 'Display_Error'; expected 0, have 2 291 | Display_Error( | ^~~~~~~~~~~~~ 292 | "Syntax error in third: list doesn't have three elements", | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ steering.h:43:17: note: declared here 43 | Import void Display_Error(); | ^~~~~~~~~~~~~ object.c: In function 'Fourth': --- primitive.o --- primitive.c:281:17: error: too many arguments to function 'Error'; expected 0, have 1 281 | Error( "(list-tail list k) requires exact 2nd argument" ); | ^~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ steering.h:41:17: note: declared here 41 | Import void Error(); | ^~~~~ primitive.c:283:25: error: too many arguments to function 'Number_To_Integer'; expected 0, have 1 283 | else position = Number_To_Integer(Top(1)); | ^~~~~~~~~~~~~~~~~ number.h:87:17: note: declared here 87 | Import Integer Number_To_Integer(); | ^~~~~~~~~~~~~~~~~ primitive.c:286:18: error: too many arguments to function 'Display_Error'; expected 0, have 2 286 | Display_Error("First argument to list->tail not a list", | ^~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ steering.h:43:17: note: declared here 43 | Import void Display_Error(); --- steering.o --- 159 | Load_File (Dot_Scheme_Filename); | ^~~~~~~~~ ~~~~~~~~~~~~~~~~~~~ steering.c:59:14: note: declared here 59 | Private void Load_File(); | ^~~~~~~~~ steering.c:165:17: error: too many arguments to function 'Load_File'; expected 0, have 1 165 | Load_File(*++Argv); | ^~~~~~~~~ ~~~~~~~ steering.c:59:14: note: declared here 59 | Private void Load_File(); | ^~~~~~~~~ steering.c:169:9: error: too many arguments to function 'Read_Eval_Print'; expected 0, have 1 169 | Read_Eval_Print( The_Standard_Input ); | ^~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~ steering.h:37:17: note: declared here 37 | Import void Read_Eval_Print(); | ^~~~~~~~~~~~~~~ steering.c:173:17: error: too many arguments to function 'Panic'; expected 0, have 1 173 | Panic( "Non-zero argstack pointer on exit" ); --- object.o --- object.c:300:8: warning: old-style function definition [-Wold-style-definition] 300 | Object Fourth(list) | ^~~~~~ object.c:303:1: error: number of arguments doesn't match prototype 303 | { | ^ object.h:153:31: error: prototype declaration 153 | Import struct Object_Struct *Fourth(); | ^~~~~~ object.c:310:17: error: too many arguments to function 'Display_Error'; expected 0, have 2 310 | Display_Error( | ^~~~~~~~~~~~~ 311 | "Syntax error in fourth: list doesn't have four elements", | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ steering.h:43:17: note: declared here 43 | Import void Display_Error(); | ^~~~~~~~~~~~~ object.c: In function 'Member': object.c:319:17: warning: old-style function definition [-Wold-style-definition] 319 | Public Boolean Member( item , list ) | ^~~~~~ --- primitive.o --- | ^~~~~~~~~~~~~ primitive.c:289:41: error: too many arguments to function 'Length'; expected 0, have 1 289 | if (position < 0 || position >= Length(Top(2))) | ^~~~~~ object.h:149:17: note: declared here 149 | Import Integer Length(); | ^~~~~~ primitive.c:290:18: error: too many arguments to function 'Display_Error'; expected 0, have 2 290 | Display_Error("List reference out of bounds", | ^~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ steering.h:43:17: note: declared here 43 | Import void Display_Error(); | ^~~~~~~~~~~~~ primitive.c: In function 'List_Ref': primitive.c:313:17: error: too many arguments to function 'Error'; expected 0, have 1 313 | Error( "(list-ref list k) requires exact 2nd argument" ); | ^~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ steering.h:41:17: note: declared here --- steering.o --- | ^~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ steering.h:44:17: note: declared here 44 | Import void Panic(); | ^~~~~ steering.c: In function 'File_Exists': steering.c:179:17: warning: old-style function definition [-Wold-style-definition] 179 | Private Boolean File_Exists(Filename) | ^~~~~~~~~~~ steering.c: In function 'Load_File': steering.c:194:17: warning: old-style function definition [-Wold-style-definition] 194 | Private void Load_File(Filename) | ^~~~~~~~~ steering.c:198:9: error: too many arguments to function 'Make_Constant_String'; expected 0, have 1 198 | Make_Constant_String(Filename); | ^~~~~~~~~~~~~~~~~~~~ ~~~~~~~~ In file included from steering.c:42: object.h:373:14: note: declared here 373 | Import void Make_Constant_String(/*string*/); | ^~~~~~~~~~~~~~~~~~~~ In file included from steering.c:46: --- object.o --- object.c:322:1: error: number of arguments doesn't match prototype 322 | { | ^ object.h:155:17: error: prototype declaration 155 | Import Boolean Member(); | ^~~~~~ object.c: In function 'Init_Empty_List': object.c:345:15: error: too many arguments to function 'Allocate'; expected 0, have 1 345 | Nil = Allocate(Empty_List_Size); | ^~~~~~~~ architecture.h:86:17: note: declared here 86 | Import Object Allocate(); | ^~~~~~~~ object.c: In function 'Empty_List_Print': object.c:351:17: warning: old-style function definition [-Wold-style-definition] 351 | Public Integer Empty_List_Print( o, m ) | ^~~~~~~~~~~~~~~~ object.c:355:1: error: number of arguments doesn't match prototype 355 | { | ^ object.h:165:17: error: prototype declaration 165 | Import Integer Empty_List_Print(); | ^~~~~~~~~~~~~~~~ --- primitive.o --- 41 | Import void Error(); | ^~~~~ primitive.c:315:25: error: too many arguments to function 'Number_To_Integer'; expected 0, have 1 315 | else position = Number_To_Integer(Top(1)); | ^~~~~~~~~~~~~~~~~ number.h:87:17: note: declared here 87 | Import Integer Number_To_Integer(); | ^~~~~~~~~~~~~~~~~ primitive.c:318:18: error: too many arguments to function 'Display_Error'; expected 0, have 2 318 | Display_Error("First argument to list->tail not a list", | ^~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ steering.h:43:17: note: declared here 43 | Import void Display_Error(); | ^~~~~~~~~~~~~ primitive.c:321:40: error: too many arguments to function 'Length'; expected 0, have 1 321 | if (position < 0 || position > Length(Top(2))) | ^~~~~~ object.h:149:17: note: declared here --- steering.o --- architecture.h:62:34: error: too many arguments to function 'Error'; expected 0, have 1 62 | Error( "Argument Stack Overflow." );\ | ^~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~ steering.c:199:9: note: in expansion of macro 'Push' 199 | Push(Value_Register); | ^~~~ steering.h:41:17: note: declared here 41 | Import void Error(); | ^~~~~ steering.c: In function 'Read_Eval_Print': steering.c:204:13: warning: old-style function definition [-Wold-style-definition] 204 | Public void Read_Eval_Print( input ) | ^~~~~~~~~~~~~~~ steering.c:206:1: error: number of arguments doesn't match prototype 206 | { | ^ steering.h:37:17: error: prototype declaration 37 | Import void Read_Eval_Print(); | ^~~~~~~~~~~~~~~ steering.c:209:43: error: too many arguments to function 'Output'; expected 0, have 1 --- object.o --- object.c:356:9: error: too many arguments to function 'Output'; expected 0, have 1 356 | Output("()"); | ^~~~~~ ~~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ object.c: In function 'Empty_List_GC': object.c:360:8: warning: old-style function definition [-Wold-style-definition] 360 | Object Empty_List_GC(old) | ^~~~~~~~~~~~~ object.c:363:1: error: number of arguments doesn't match prototype 363 | { | ^ object.h:168:24: error: prototype declaration 168 | struct Object_Struct *Empty_List_GC(); | ^~~~~~~~~~~~~ object.c:364:22: error: too many arguments to function 'Move_Object'; expected 0, have 2 364 | Object new = Move_Object(old, Empty_List_Size); | ^~~~~~~~~~~ ~~~ architecture.h:95:15: note: declared here 95 | Import Object Move_Object(); | ^~~~~~~~~~~ object.c: In function 'Special_Symbol': --- primitive.o --- 149 | Import Integer Length(); | ^~~~~~ primitive.c:322:18: error: too many arguments to function 'Display_Error'; expected 0, have 2 322 | Display_Error("List reference out of bounds", | ^~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ steering.h:43:17: note: declared here 43 | Import void Display_Error(); | ^~~~~~~~~~~~~ primitive.c: In function 'Pair_Equal': architecture.h:62:34: error: too many arguments to function 'Error'; expected 0, have 1 62 | Error( "Argument Stack Overflow." );\ | ^~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~ primitive.c:348:17: note: in expansion of macro 'Push' 348 | Push(Get_Pair_Car(Top(1))); | ^~~~ steering.h:41:17: note: declared here 41 | Import void Error(); | ^~~~~ architecture.h:62:34: error: too many arguments to function 'Error'; expected 0, have 1 --- steering.o --- 209 | if (Get_Printing_State()) Output( Prompt ); | ^~~~~~ ~~~~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ steering.c:211:17: error: too many arguments to function 'Read'; expected 0, have 1 211 | Read( input ); | ^~~~ ~~~~~ io.h:47:17: note: declared here 47 | Import void Read(/* FILE *input */); | ^~~~ architecture.h:62:34: error: too many arguments to function 'Error'; expected 0, have 1 62 | Error( "Argument Stack Overflow." );\ | ^~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~ steering.c:215:17: note: in expansion of macro 'Push' 215 | Push( Value_Register ); | ^~~~ steering.h:41:17: note: declared here 41 | Import void Error(); | ^~~~~ --- object.o --- object.c:383:16: warning: old-style function definition [-Wold-style-definition] 383 | Private Object Special_Symbol( Representation ) | ^~~~~~~~~~~~~~ object.c:387:23: error: too many arguments to function 'Intern_Name'; expected 0, have 1 387 | Object new = Intern_Name( Representation ); | ^~~~~~~~~~~ ~~~~~~~~~~~~~~ architecture.h:80:17: note: declared here 80 | Import Object Intern_Name( /* String name */ ) ; | ^~~~~~~~~~~ object.c: In function 'Init_Symbol': object.c:396:9: error: too many arguments to function 'Make_Symbol'; expected 0, have 1 396 | Make_Symbol(""); | ^~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~ object.h:213:14: note: declared here 213 | Import void Make_Symbol(); | ^~~~~~~~~~~ object.c:400:9: error: too many arguments to function 'Make_Symbol'; expected 0, have 1 400 | Make_Symbol(""); --- primitive.o --- 62 | Error( "Argument Stack Overflow." );\ | ^~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~ primitive.c:349:17: note: in expansion of macro 'Push' 349 | Push(Get_Pair_Car(Top(3))); | ^~~~ steering.h:41:17: note: declared here 41 | Import void Error(); | ^~~~~ architecture.h:62:34: error: too many arguments to function 'Error'; expected 0, have 1 62 | Error( "Argument Stack Overflow." );\ | ^~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~ primitive.c:359:17: note: in expansion of macro 'Push' 359 | Push(Top(1)); | ^~~~ steering.h:41:17: note: declared here 41 | Import void Error(); | ^~~~~ architecture.h:62:34: error: too many arguments to function 'Error'; expected 0, have 1 62 | Error( "Argument Stack Overflow." );\ --- steering.o --- steering.c:219:17: error: too many arguments to function 'Eval'; expected 0, have 2 219 | Eval( Value_Register, Environment_Register ); | ^~~~ ~~~~~~~~~~~~~~ In file included from steering.c:41: eval.h:44:13: note: declared here 44 | Import void Eval(); | ^~~~ steering.c:224:25: error: too many arguments to function 'Output'; expected 0, have 1 224 | Output( "\n" ); | ^~~~~~ ~~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ object.h:102:46: error: too many arguments to function 'Value_Register->Common.Type->Write'; expected 0, have 2 102 | #define Write_Object(o,m) ((Get_Type(o)->Write)(o,m)) | ~~~~~~~~~~~~^~~~~~~~ steering.c:225:32: note: in expansion of macro 'Write_Object' 225 | (void) Write_Object( Value_Register , 0 ); --- object.o --- | ^~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ object.h:213:14: note: declared here 213 | Import void Make_Symbol(); | ^~~~~~~~~~~ object.c:404:9: error: too many arguments to function 'Make_Symbol'; expected 0, have 1 404 | Make_Symbol( "" ); | ^~~~~~~~~~~ ~~~~~~~~~~~~~~~ object.h:213:14: note: declared here 213 | Import void Make_Symbol(); | ^~~~~~~~~~~ object.c: In function 'Make_Symbol': object.c:419:14: warning: old-style function definition [-Wold-style-definition] 419 | Public void Make_Symbol(name) | ^~~~~~~~~~~ object.c:422:1: error: number of arguments doesn't match prototype 422 | { | ^ object.h:213:14: error: prototype declaration 213 | Import void Make_Symbol(); | ^~~~~~~~~~~ object.c:425:26: error: too many arguments to function 'Allocate'; expected 0, have 1 425 | Value_Register = Allocate(Symbol_Size); --- primitive.o --- | ^~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~ primitive.c:360:17: note: in expansion of macro 'Push' 360 | Push(Top(3)); | ^~~~ steering.h:41:17: note: declared here 41 | Import void Error(); | ^~~~~ primitive.c: In function 'String_To_Symbol': primitive.c:378:26: error: too many arguments to function 'Intern_Name'; expected 0, have 1 378 | Value_Register = Intern_Name(Get_String_Value(Top(1))); | ^~~~~~~~~~~ architecture.h:80:17: note: declared here 80 | Import Object Intern_Name( /* String name */ ) ; | ^~~~~~~~~~~ primitive.c: In function 'Symbol_To_String': primitive.c:387:9: error: too many arguments to function 'Make_Constant_String'; expected 0, have 1 387 | Make_Constant_String(Get_Symbol_Name(Top(1))); | ^~~~~~~~~~~~~~~~~~~~ object.h:373:14: note: declared here --- steering.o --- | ^~~~~~~~~~~~ object.h:74:19: note: declared here 74 | Integer (*Write)(); | ^~~~~ steering.c: In function 'Error': steering.c:235:13: warning: old-style function definition [-Wold-style-definition] 235 | Public void Error( message ) | ^~~~~ steering.c:237:1: error: number of arguments doesn't match prototype 237 | { | ^ steering.h:41:17: error: prototype declaration 41 | Import void Error(); | ^~~~~ steering.c:238:9: error: too many arguments to function 'Error_Output'; expected 0, have 1 238 | Error_Output( ERROR_PREFIX ); | ^~~~~~~~~~~~ io.h:40:17: note: declared here 40 | Import void Error_Output(/* String s */); | ^~~~~~~~~~~~ steering.c:239:9: error: too many arguments to function 'Error_Output'; expected 0, have 1 239 | Error_Output( message ); | ^~~~~~~~~~~~ ~~~~~~~ --- object.o --- | ^~~~~~~~ architecture.h:86:17: note: declared here 86 | Import Object Allocate(); | ^~~~~~~~ object.c:427:43: error: too many arguments to function 'Copy_String'; expected 0, have 1 427 | Get_Symbol_Name(Value_Register) = Copy_String(name); | ^~~~~~~~~~~ ~~~~ object.c:423:16: note: declared here 423 | String Copy_String(); | ^~~~~~~~~~~ object.c: In function 'Symbol_Print': object.c:436:17: warning: old-style function definition [-Wold-style-definition] 436 | Public Integer Symbol_Print( o , m ) /* Assumes no nulls in name */ | ^~~~~~~~~~~~ object.c:440:1: error: number of arguments doesn't match prototype 440 | { | ^ object.h:188:17: error: prototype declaration 188 | Import Integer Symbol_Print(); | ^~~~~~~~~~~~ object.c:441:9: error: too many arguments to function 'Output'; expected 0, have 1 --- primitive.o --- 373 | Import void Make_Constant_String(/*string*/); | ^~~~~~~~~~~~~~~~~~~~ primitive.c: In function 'Character_Compare': primitive.c:404:22: warning: old-style function definition [-Wold-style-definition] 404 | Private Compare_Type Character_Compare(c1, c2) | ^~~~~~~~~~~~~~~~~ primitive.c: In function 'Character_CI_Compare': primitive.c:420:22: warning: old-style function definition [-Wold-style-definition] 420 | Private Compare_Type Character_CI_Compare (c1, c2) | ^~~~~~~~~~~~~~~~~~~~ primitive.c: In function 'Character_To_Integer': primitive.c:534:9: error: too many arguments to function 'Make_Bignum_Number'; expected 0, have 1 534 | Make_Bignum_Number(1); /* All characters will fit in one digit. */ | ^~~~~~~~~~~~~~~~~~ ~ object.h:318:14: note: declared here 318 | Import void Make_Bignum_Number(); | ^~~~~~~~~~~~~~~~~~ primitive.c: In function 'Integer_To_Character': --- steering.o --- io.h:40:17: note: declared here 40 | Import void Error_Output(/* String s */); | ^~~~~~~~~~~~ steering.c:240:9: error: too many arguments to function 'Error_Output'; expected 0, have 1 240 | Error_Output( ".\n" ); | ^~~~~~~~~~~~ ~~~~~ io.h:40:17: note: declared here 40 | Import void Error_Output(/* String s */); | ^~~~~~~~~~~~ steering.c: In function 'Error1': steering.c:244:13: warning: old-style function definition [-Wold-style-definition] 244 | Public void Error1(message, name) | ^~~~~~ steering.c:246:1: error: number of arguments doesn't match prototype 246 | { | ^ steering.h:42:17: error: prototype declaration 42 | Import void Error1(); | ^~~~~~ steering.c:251:9: error: too many arguments to function 'Error_Output'; expected 0, have 1 251 | Error_Output( ERROR_PREFIX ); | ^~~~~~~~~~~~ io.h:40:17: note: declared here --- object.o --- 441 | Output( Get_Symbol_Name(o) ); | ^~~~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ object.c: In function 'Symbol_GC': object.c:445:15: warning: old-style function definition [-Wold-style-definition] 445 | Public Object Symbol_GC(old) | ^~~~~~~~~ object.c:448:1: error: number of arguments doesn't match prototype 448 | { | ^ object.h:189:24: error: prototype declaration 189 | struct Object_Struct *Symbol_GC(); | ^~~~~~~~~ object.c:449:22: error: too many arguments to function 'Move_Object'; expected 0, have 2 449 | Object new = Move_Object(old, Symbol_Size); | ^~~~~~~~~~~ ~~~ architecture.h:95:15: note: declared here 95 | Import Object Move_Object(); | ^~~~~~~~~~~ object.c:451:9: error: too many arguments to function 'Relocate'; expected 0, have 1 --- primitive.o --- primitive.c:544:22: error: too many arguments to function 'Number_To_Integer'; expected 0, have 1 544 | Integer n = Number_To_Integer(Top(1)); | ^~~~~~~~~~~~~~~~~ number.h:87:17: note: declared here 87 | Import Integer Number_To_Integer(); | ^~~~~~~~~~~~~~~~~ primitive.c:547:13: error: too many arguments to function 'Error'; expected 0, have 1 547 | Error("Integer value out of range to be a character"); | ^~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ steering.h:41:17: note: declared here 41 | Import void Error(); | ^~~~~ primitive.c:552:10: error: too many arguments to function 'Make_Character'; expected 0, have 1 552 | Make_Character((Character) n); | ^~~~~~~~~~~~~~ ~~~~~~~~~~~~~ object.h:342:14: note: declared here 342 | Import void Make_Character(); | ^~~~~~~~~~~~~~ primitive.c: In function 'Character_To_Lower_Case': --- steering.o --- 40 | Import void Error_Output(/* String s */); | ^~~~~~~~~~~~ steering.c:252:9: error: too many arguments to function 'Error_Output'; expected 0, have 1 252 | Error_Output( error_string ); | ^~~~~~~~~~~~ ~~~~~~~~~~~~ io.h:40:17: note: declared here 40 | Import void Error_Output(/* String s */); | ^~~~~~~~~~~~ steering.c:253:9: error: too many arguments to function 'Error_Output'; expected 0, have 1 253 | Error_Output( ".\n" ); | ^~~~~~~~~~~~ ~~~~~ io.h:40:17: note: declared here 40 | Import void Error_Output(/* String s */); | ^~~~~~~~~~~~ steering.c: In function 'Display_Error': steering.c:257:13: warning: old-style function definition [-Wold-style-definition] 257 | Public void Display_Error(message, object) | ^~~~~~~~~~~~~ steering.c:260:1: error: number of arguments doesn't match prototype 260 | { | ^ --- object.o --- 451 | Relocate(&Get_Global_Binding(new)); | ^~~~~~~~ architecture.h:96:13: note: declared here 96 | Import void Relocate(); | ^~~~~~~~ object.c:452:9: error: too many arguments to function 'Relocate'; expected 0, have 1 452 | Relocate(&Get_Symbol_How(new)); | ^~~~~~~~ architecture.h:96:13: note: declared here 96 | Import void Relocate(); | ^~~~~~~~ object.c:453:9: error: too many arguments to function 'Relocate'; expected 0, have 1 453 | Relocate(&Get_Property_List(new)); | ^~~~~~~~ architecture.h:96:13: note: declared here 96 | Import void Relocate(); | ^~~~~~~~ object.c: In function 'Make_Fixnum_Number': object.c:465:13: warning: old-style function definition [-Wold-style-definition] 465 | Public void Make_Fixnum_Number(n) | ^~~~~~~~~~~~~~~~~~ object.c:468:1: error: number of arguments doesn't match prototype 468 | { | ^ --- primitive.o --- primitive.c:560:9: error: too many arguments to function 'Make_Character'; expected 0, have 1 560 | Make_Character(c); | ^~~~~~~~~~~~~~ ~ object.h:342:14: note: declared here 342 | Import void Make_Character(); | ^~~~~~~~~~~~~~ primitive.c: In function 'Character_To_Upper_Case': primitive.c:567:9: error: too many arguments to function 'Make_Character'; expected 0, have 1 567 | Make_Character(c); | ^~~~~~~~~~~~~~ ~ object.h:342:14: note: declared here 342 | Import void Make_Character(); | ^~~~~~~~~~~~~~ primitive.c: In function 'MakeString': primitive.c:590:17: error: too many arguments to function 'Error'; expected 0, have 1 590 | Error( "(make-string k char) requires exact 1st argument" ); | ^~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ steering.h:41:17: note: declared here 41 | Import void Error(); | ^~~~~ --- steering.o --- steering.h:43:17: error: prototype declaration 43 | Import void Display_Error(); | ^~~~~~~~~~~~~ steering.c:261:9: error: too many arguments to function 'Error_Output'; expected 0, have 1 261 | Error_Output( ERROR_PREFIX ); | ^~~~~~~~~~~~ io.h:40:17: note: declared here 40 | Import void Error_Output(/* String s */); | ^~~~~~~~~~~~ steering.c:262:9: error: too many arguments to function 'Error_Output'; expected 0, have 1 262 | Error_Output( message ); | ^~~~~~~~~~~~ ~~~~~~~ io.h:40:17: note: declared here 40 | Import void Error_Output(/* String s */); | ^~~~~~~~~~~~ architecture.h:62:34: error: too many arguments to function 'Error'; expected 0, have 1 62 | Error( "Argument Stack Overflow." );\ | ^~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~ steering.c:263:9: note: in expansion of macro 'Push' --- object.o --- object.h:317:14: error: prototype declaration 317 | Import void Make_Fixnum_Number(); | ^~~~~~~~~~~~~~~~~~ object.c:469:26: error: too many arguments to function 'Allocate'; expected 0, have 1 469 | Value_Register = Allocate( Fixnum_Size ); | ^~~~~~~~ architecture.h:86:17: note: declared here 86 | Import Object Allocate(); | ^~~~~~~~ object.c: In function 'Make_Bignum_Number': object.c:479:14: warning: old-style function definition [-Wold-style-definition] 479 | Public void Make_Bignum_Number(length) | ^~~~~~~~~~~~~~~~~~ object.c:482:1: error: number of arguments doesn't match prototype 482 | { | ^ object.h:318:14: error: prototype declaration 318 | Import void Make_Bignum_Number(); | ^~~~~~~~~~~~~~~~~~ object.c:485:26: error: too many arguments to function 'Allocate'; expected 0, have 1 485 | Value_Register = Allocate(Bignum_Size(length)); --- primitive.o --- primitive.c:592:27: error: too many arguments to function 'Number_To_Integer'; expected 0, have 1 592 | else str_length = Number_To_Integer(Top(2)); | ^~~~~~~~~~~~~~~~~ number.h:87:17: note: declared here 87 | Import Integer Number_To_Integer(); | ^~~~~~~~~~~~~~~~~ primitive.c:594:9: error: too many arguments to function 'Make_String'; expected 0, have 1 594 | Make_String(str_length); /* uninitialized string in Value_Reg */ | ^~~~~~~~~~~ ~~~~~~~~~~ object.h:372:14: note: declared here 372 | Import void Make_String(/*Integer*/); | ^~~~~~~~~~~ primitive.c: In function 'String_Length': primitive.c:616:9: error: too many arguments to function 'Integer_To_Number'; expected 0, have 1 616 | Integer_To_Number(Get_String_Length(Top(1))); | ^~~~~~~~~~~~~~~~~ number.h:88:17: note: declared here 88 | Import void Integer_To_Number(/* Integer */); --- steering.o --- 263 | Push( Current_Output_Port ); | ^~~~ steering.c:235:13: note: declared here 235 | Public void Error( message ) | ^~~~~ object.h:102:46: error: too many arguments to function 'object->Common.Type->Write'; expected 0, have 2 102 | #define Write_Object(o,m) ((Get_Type(o)->Write)(o,m)) | ~~~~~~~~~~~~^~~~~~~~ steering.c:265:16: note: in expansion of macro 'Write_Object' 265 | (void) Write_Object( object , 0 ); | ^~~~~~~~~~~~ object.h:74:19: note: declared here 74 | Integer (*Write)(); | ^~~~~ steering.c:267:9: error: too many arguments to function 'Error_Output'; expected 0, have 1 267 | Error_Output( "\n" ); | ^~~~~~~~~~~~ ~~~~ io.h:40:17: note: declared here 40 | Import void Error_Output(/* String s */); | ^~~~~~~~~~~~ steering.c: In function 'Panic': --- object.o --- | ^~~~~~~~ architecture.h:86:17: note: declared here 86 | Import Object Allocate(); | ^~~~~~~~ object.c: In function 'Make_Rational_Number': architecture.h:62:34: error: too many arguments to function 'Error'; expected 0, have 1 62 | Error( "Argument Stack Overflow." );\ | ^~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~ object.c:508:17: note: in expansion of macro 'Push' 508 | Push( Top(1) ); | ^~~~ steering.h:41:17: note: declared here 41 | Import void Error(); | ^~~~~ architecture.h:62:34: error: too many arguments to function 'Error'; expected 0, have 1 62 | Error( "Argument Stack Overflow." );\ | ^~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~ object.c:515:17: note: in expansion of macro 'Push' 515 | Push( Top(2) ); --- primitive.o --- | ^~~~~~~~~~~~~~~~~ primitive.c: In function 'String_Ref': primitive.c:628:17: error: too many arguments to function 'Error'; expected 0, have 1 628 | Error( "(string-ref str k) requires exact 2nd argument" ); | ^~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ steering.h:41:17: note: declared here 41 | Import void Error(); | ^~~~~ primitive.c:630:25: error: too many arguments to function 'Number_To_Integer'; expected 0, have 1 630 | else position = Number_To_Integer(Top(1)); | ^~~~~~~~~~~~~~~~~ number.h:87:17: note: declared here 87 | Import Integer Number_To_Integer(); | ^~~~~~~~~~~~~~~~~ primitive.c:633:17: error: too many arguments to function 'Display_Error'; expected 0, have 2 633 | Display_Error("String reference out of bounds", | ^~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ --- steering.o --- steering.c:272:13: warning: old-style function definition [-Wold-style-definition] 272 | Public void Panic( message ) | ^~~~~ steering.c:275:1: error: number of arguments doesn't match prototype 275 | { | ^ steering.h:44:17: error: prototype declaration 44 | Import void Panic(); | ^~~~~ steering.c:276:9: error: too many arguments to function 'Error_Output'; expected 0, have 1 276 | Error_Output( PANIC_PREFIX ); | ^~~~~~~~~~~~ io.h:40:17: note: declared here 40 | Import void Error_Output(/* String s */); | ^~~~~~~~~~~~ steering.c:277:9: error: too many arguments to function 'Error_Output'; expected 0, have 1 277 | Error_Output( message ); | ^~~~~~~~~~~~ ~~~~~~~ io.h:40:17: note: declared here 40 | Import void Error_Output(/* String s */); | ^~~~~~~~~~~~ steering.c:278:9: error: too many arguments to function 'Error_Output'; expected 0, have 1 --- object.o --- | ^~~~ steering.h:41:17: note: declared here 41 | Import void Error(); | ^~~~~ architecture.h:62:34: error: too many arguments to function 'Error'; expected 0, have 1 62 | Error( "Argument Stack Overflow." );\ | ^~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~ object.c:522:9: note: in expansion of macro 'Push' 522 | Push( Top(1) ); | ^~~~ steering.h:41:17: note: declared here 41 | Import void Error(); | ^~~~~ object.c:527:17: error: too many arguments to function 'Error'; expected 0, have 1 527 | Error( "Division by Zero" ); | ^~~~~ ~~~~~~~~~~~~~~~~~~ steering.h:41:17: note: declared here 41 | Import void Error(); | ^~~~~ architecture.h:62:34: error: too many arguments to function 'Error'; expected 0, have 1 --- primitive.o --- steering.h:43:17: note: declared here 43 | Import void Display_Error(); | ^~~~~~~~~~~~~ primitive.c:636:17: error: too many arguments to function 'Make_Character'; expected 0, have 1 636 | Make_Character(Get_String_Value(Top(2))[position]); | ^~~~~~~~~~~~~~ object.h:342:14: note: declared here 342 | Import void Make_Character(); | ^~~~~~~~~~~~~~ primitive.c: In function 'String_Set': primitive.c:647:17: error: too many arguments to function 'Error'; expected 0, have 1 647 | Error( "(string-set! str k char) requires exact 2nd argument" ); | ^~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ steering.h:41:17: note: declared here 41 | Import void Error(); | ^~~~~ primitive.c:649:20: error: too many arguments to function 'Number_To_Integer'; expected 0, have 1 649 | else pos = Number_To_Integer(Top(2)); --- steering.o --- 278 | Error_Output( ".\n" ); | ^~~~~~~~~~~~ ~~~~~ io.h:40:17: note: declared here 40 | Import void Error_Output(/* String s */); | ^~~~~~~~~~~~ steering.c: In function 'Reset': steering.c:314:9: error: too many arguments to function 'Error_Output'; expected 0, have 1 314 | Error_Output( "\nReset (Use Control-d to quit UMB Scheme)" ); | ^~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ io.h:40:17: note: declared here 40 | Import void Error_Output(/* String s */); | ^~~~~~~~~~~~ steering.c: In function 'Handler': steering.c:319:14: warning: old-style function definition [-Wold-style-definition] 319 | Public void Handler( sig ) | ^~~~~~~ steering.c:322:1: error: number of arguments doesn't match prototype 322 | { | ^ steering.h:39:17: error: prototype declaration 39 | Import void Handler(); | ^~~~~~~ --- object.o --- 62 | Error( "Argument Stack Overflow." );\ | ^~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~ object.c:532:9: note: in expansion of macro 'Push' 532 | Push( Top(1) ); | ^~~~ steering.h:41:17: note: declared here 41 | Import void Error(); | ^~~~~ architecture.h:62:34: error: too many arguments to function 'Error'; expected 0, have 1 62 | Error( "Argument Stack Overflow." );\ | ^~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~ object.c:538:17: note: in expansion of macro 'Push' 538 | Push( Top( 1 ) ); | ^~~~ steering.h:41:17: note: declared here 41 | Import void Error(); | ^~~~~ architecture.h:62:34: error: too many arguments to function 'Error'; expected 0, have 1 62 | Error( "Argument Stack Overflow." );\ --- primitive.o --- | ^~~~~~~~~~~~~~~~~ number.h:87:17: note: declared here 87 | Import Integer Number_To_Integer(); | ^~~~~~~~~~~~~~~~~ primitive.c:652:13: error: too many arguments to function 'Display_Error'; expected 0, have 2 652 | Display_Error("String reference out of bounds", Top(2)); | ^~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ steering.h:43:17: note: declared here 43 | Import void Display_Error(); | ^~~~~~~~~~~~~ primitive.c: In function 'String_Compare': primitive.c:662:22: warning: old-style function definition [-Wold-style-definition] 662 | Private Compare_Type String_Compare(s1, s2) | ^~~~~~~~~~~~~~ primitive.c: In function 'String_Compare_Case_Independent': primitive.c:687:22: warning: old-style function definition [-Wold-style-definition] 687 | Private Compare_Type String_Compare_Case_Independent(s1, s2) | ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ --- steering.o --- steering.c:339:17: error: too many arguments to function 'Error'; expected 0, have 1 339 | Error( "Floating Point Exception" ); | ^~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~ steering.c:235:13: note: declared here 235 | Public void Error( message ) | ^~~~~ steering.c:342:17: error: too many arguments to function 'Panic'; expected 0, have 1 342 | Panic( "Illegal Instruction" ); | ^~~~~ ~~~~~~~~~~~~~~~~~~~~~ steering.c:272:13: note: declared here 272 | Public void Panic( message ) | ^~~~~ steering.c:345:17: error: too many arguments to function 'Panic'; expected 0, have 1 345 | Panic( "Segmentation Violation" ); | ^~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~ steering.c:272:13: note: declared here 272 | Public void Panic( message ) | ^~~~~ steering.c:348:17: error: too many arguments to function 'Error'; expected 0, have 1 --- object.o --- | ^~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~ object.c:542:17: note: in expansion of macro 'Push' 542 | Push(Top(2)); | ^~~~ steering.h:41:17: note: declared here 41 | Import void Error(); | ^~~~~ object.c:548:26: error: too many arguments to function 'Allocate'; expected 0, have 1 548 | Value_Register = Allocate(Rational_Size); | ^~~~~~~~ architecture.h:86:17: note: declared here 86 | Import Object Allocate(); | ^~~~~~~~ object.c: In function 'Make_Real_Number': object.c:559:13: warning: old-style function definition [-Wold-style-definition] 559 | Public void Make_Real_Number(r) | ^~~~~~~~~~~~~~~~ object.c:562:1: error: number of arguments doesn't match prototype 562 | { | ^ object.h:320:14: error: prototype declaration 320 | Import void Make_Real_Number(); | ^~~~~~~~~~~~~~~~ --- primitive.o --- primitive.c: In function 'Substring': primitive.c:784:17: error: too many arguments to function 'Error'; expected 0, have 1 784 | Error( "(substring str k1 k2) requires exact 2nd argument" ); | ^~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ steering.h:41:17: note: declared here 41 | Import void Error(); | ^~~~~ primitive.c:786:22: error: too many arguments to function 'Number_To_Integer'; expected 0, have 1 786 | else start = Number_To_Integer(Top(2)); | ^~~~~~~~~~~~~~~~~ number.h:87:17: note: declared here 87 | Import Integer Number_To_Integer(); | ^~~~~~~~~~~~~~~~~ primitive.c:790:17: error: too many arguments to function 'Error'; expected 0, have 1 790 | Error( "(substring str k1 k2) requires exact 3rd argument" ); | ^~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ steering.h:41:17: note: declared here --- steering.o --- 348 | Error( "Terminated" ); | ^~~~~ ~~~~~~~~~~~~ steering.c:235:13: note: declared here 235 | Public void Error( message ) | ^~~~~ steering.c:351:17: error: too many arguments to function 'Panic'; expected 0, have 1 351 | Panic( "Unhandled Signal" ); | ^~~~~ ~~~~~~~~~~~~~~~~~~ steering.c:272:13: note: declared here 272 | Public void Panic( message ) | ^~~~~ --- object.o --- object.c:563:26: error: too many arguments to function 'Allocate'; expected 0, have 1 563 | Value_Register = Allocate(Real_Size); | ^~~~~~~~ architecture.h:86:17: note: declared here 86 | Import Object Allocate(); | ^~~~~~~~ object.c: In function 'Make_Complex_Number': object.c:572:13: warning: old-style function definition [-Wold-style-definition] 572 | Public void Make_Complex_Number(r,i) | ^~~~~~~~~~~~~~~~~~~ object.c:575:1: error: number of arguments doesn't match prototype 575 | { | ^ object.h:321:14: error: prototype declaration 321 | Import void Make_Complex_Number(); | ^~~~~~~~~~~~~~~~~~~ object.c:576:26: error: too many arguments to function 'Allocate'; expected 0, have 1 576 | Value_Register = Allocate(Complex_Size); | ^~~~~~~~ architecture.h:86:17: note: declared here 86 | Import Object Allocate(); | ^~~~~~~~ --- primitive.o --- 41 | Import void Error(); | ^~~~~ primitive.c:792:20: error: too many arguments to function 'Number_To_Integer'; expected 0, have 1 792 | else end = Number_To_Integer(Top(1)); | ^~~~~~~~~~~~~~~~~ number.h:87:17: note: declared here 87 | Import Integer Number_To_Integer(); | ^~~~~~~~~~~~~~~~~ primitive.c:796:17: error: too many arguments to function 'Display_Error'; expected 0, have 2 796 | Display_Error("Starting position for substring out of bounds", | ^~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ steering.h:43:17: note: declared here 43 | Import void Display_Error(); | ^~~~~~~~~~~~~ primitive.c:802:17: error: too many arguments to function 'Display_Error'; expected 0, have 2 802 | Display_Error("Ending position for substring out of bounds", --- object.o --- object.c: In function 'Number_Print': object.c:587:17: warning: old-style function definition [-Wold-style-definition] 587 | Public Integer Number_Print(o, m) | ^~~~~~~~~~~~ object.c:591:1: error: number of arguments doesn't match prototype 591 | { | ^ object.h:293:17: error: prototype declaration 293 | Import Integer Number_Print(); | ^~~~~~~~~~~~ architecture.h:62:34: error: too many arguments to function 'Error'; expected 0, have 1 62 | Error( "Argument Stack Overflow." );\ | ^~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~ object.c:592:9: note: in expansion of macro 'Push' 592 | Push( Value_Register ); /* Save it */ | ^~~~ steering.h:41:17: note: declared here 41 | Import void Error(); | ^~~~~ architecture.h:62:34: error: too many arguments to function 'Error'; expected 0, have 1 --- primitive.o --- | ^~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ steering.h:43:17: note: declared here 43 | Import void Display_Error(); | ^~~~~~~~~~~~~ primitive.c:806:9: error: too many arguments to function 'Make_String'; expected 0, have 1 806 | Make_String(end - start); | ^~~~~~~~~~~ ~~~~~~~~~~~ object.h:372:14: note: declared here 372 | Import void Make_String(/*Integer*/); | ^~~~~~~~~~~ primitive.c: In function 'Varying_String_Append': primitive.c:820:14: warning: old-style function definition [-Wold-style-definition] 820 | Private void Varying_String_Append( Argnum ) | ^~~~~~~~~~~~~~~~~~~~~ primitive.c:838:9: error: too many arguments to function 'Make_String'; expected 0, have 1 838 | Make_String( totlength ); | ^~~~~~~~~~~ ~~~~~~~~~ object.h:372:14: note: declared here 372 | Import void Make_String(/*Integer*/); | ^~~~~~~~~~~ --- steering.o --- *** [steering.o] Error code 1 bmake: stopped making "default" in /tmp/work/lang/umb-scheme/work/scheme-3.2 --- object.o --- 62 | Error( "Argument Stack Overflow." );\ | ^~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~ object.c:594:9: note: in expansion of macro 'Push' 594 | Push(o); | ^~~~ steering.h:41:17: note: declared here 41 | Import void Error(); | ^~~~~ object.c:595:9: error: too many arguments to function 'Integer_To_Number'; expected 0, have 1 595 | Integer_To_Number( 10 ); | ^~~~~~~~~~~~~~~~~ ~~ In file included from object.c:45: number.h:88:17: note: declared here 88 | Import void Integer_To_Number(/* Integer */); | ^~~~~~~~~~~~~~~~~ architecture.h:62:34: error: too many arguments to function 'Error'; expected 0, have 1 62 | Error( "Argument Stack Overflow." );\ | ^~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~ object.c:596:9: note: in expansion of macro 'Push' --- primitive.o --- primitive.c: In function 'String_To_List': architecture.h:62:34: error: too many arguments to function 'Error'; expected 0, have 1 62 | Error( "Argument Stack Overflow." );\ | ^~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~ primitive.c:890:17: note: in expansion of macro 'Push' 890 | Push(Value_Register); | ^~~~ steering.h:41:17: note: declared here 41 | Import void Error(); | ^~~~~ primitive.c:891:17: error: too many arguments to function 'Make_Character'; expected 0, have 1 891 | Make_Character(Get_String_Value(Top(2))[size]); | ^~~~~~~~~~~~~~ object.h:342:14: note: declared here 342 | Import void Make_Character(); | ^~~~~~~~~~~~~~ architecture.h:62:34: error: too many arguments to function 'Error'; expected 0, have 1 62 | Error( "Argument Stack Overflow." );\ --- object.o --- 596 | Push( Value_Register ); | ^~~~ steering.h:41:17: note: declared here 41 | Import void Error(); | ^~~~~ object.c:598:9: error: too many arguments to function 'Output'; expected 0, have 1 598 | Output(Get_String_Value(Value_Register)); | ^~~~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ object.c: In function 'Number_GC': object.c:607:15: warning: old-style function definition [-Wold-style-definition] 607 | Public Object Number_GC(old) | ^~~~~~~~~ object.c:610:1: error: number of arguments doesn't match prototype 610 | { | ^ object.h:294:24: error: prototype declaration 294 | struct Object_Struct *Number_GC(); | ^~~~~~~~~ object.c:616:23: error: too many arguments to function 'Move_Object'; expected 0, have 2 616 | new = Move_Object(old, Fixnum_Size); --- primitive.o --- | ^~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~ primitive.c:894:17: note: in expansion of macro 'Push' 894 | Push(head); | ^~~~ steering.h:41:17: note: declared here 41 | Import void Error(); | ^~~~~ architecture.h:62:34: error: too many arguments to function 'Error'; expected 0, have 1 62 | Error( "Argument Stack Overflow." );\ | ^~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~ primitive.c:895:17: note: in expansion of macro 'Push' 895 | Push(Value_Register); | ^~~~ steering.h:41:17: note: declared here 41 | Import void Error(); | ^~~~~ primitive.c: In function 'List_To_String': primitive.c:904:31: error: too many arguments to function 'Length'; expected 0, have 1 904 | Integer list_length = Length(Top(1)); | ^~~~~~ --- object.o --- | ^~~~~~~~~~~ ~~~ architecture.h:95:15: note: declared here 95 | Import Object Move_Object(); | ^~~~~~~~~~~ object.c:619:23: error: too many arguments to function 'Move_Object'; expected 0, have 2 619 | new = Move_Object(old, Bignum_Size(Get_Number_Length(old))); | ^~~~~~~~~~~ ~~~ architecture.h:95:15: note: declared here 95 | Import Object Move_Object(); | ^~~~~~~~~~~ object.c:622:23: error: too many arguments to function 'Move_Object'; expected 0, have 2 622 | new = Move_Object(old, Rational_Size); | ^~~~~~~~~~~ ~~~ architecture.h:95:15: note: declared here 95 | Import Object Move_Object(); | ^~~~~~~~~~~ object.c:623:17: error: too many arguments to function 'Relocate'; expected 0, have 1 623 | Relocate( &Get_Number_Rational_Numerator(new) ); | ^~~~~~~~ --- primitive.o --- object.h:149:17: note: declared here 149 | Import Integer Length(); | ^~~~~~ primitive.c:908:17: error: too many arguments to function 'Display_Error'; expected 0, have 2 908 | Display_Error("Expected a list as parameter to list->string", | ^~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ steering.h:43:17: note: declared here 43 | Import void Display_Error(); | ^~~~~~~~~~~~~ primitive.c:911:9: error: too many arguments to function 'Make_String'; expected 0, have 1 911 | Make_String(list_length); | ^~~~~~~~~~~ ~~~~~~~~~~~ object.h:372:14: note: declared here 372 | Import void Make_String(/*Integer*/); | ^~~~~~~~~~~ primitive.c:915:36: error: too many arguments to function 'First'; expected 0, have 1 915 | if (! Is_Character(First(Top(1)))) | ^~~~~ object.h:96:23: note: in definition of macro 'Get_Type' --- object.o --- architecture.h:96:13: note: declared here 96 | Import void Relocate(); | ^~~~~~~~ object.c:624:17: error: too many arguments to function 'Relocate'; expected 0, have 1 624 | Relocate( &Get_Number_Rational_Denominator(new) ); | ^~~~~~~~ architecture.h:96:13: note: declared here 96 | Import void Relocate(); | ^~~~~~~~ object.c:627:23: error: too many arguments to function 'Move_Object'; expected 0, have 2 627 | new = Move_Object(old, Real_Size); | ^~~~~~~~~~~ ~~~ architecture.h:95:15: note: declared here 95 | Import Object Move_Object(); | ^~~~~~~~~~~ object.c:630:23: error: too many arguments to function 'Move_Object'; expected 0, have 2 630 | new = Move_Object(old, Complex_Size); | ^~~~~~~~~~~ ~~~ architecture.h:95:15: note: declared here 95 | Import Object Move_Object(); | ^~~~~~~~~~~ --- primitive.o --- 96 | #define Get_Type(o) ((o)->Common.Type) | ^ primitive.c:915:23: note: in expansion of macro 'Is_Character' 915 | if (! Is_Character(First(Top(1)))) | ^~~~~~~~~~~~ object.h:150:31: note: declared here 150 | Import struct Object_Struct *First(); | ^~~~~ primitive.c:916:25: error: too many arguments to function 'Display_Error'; expected 0, have 2 916 | Display_Error("Expected a character in list->string", | ^~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ steering.h:43:17: note: declared here 43 | Import void Display_Error(); | ^~~~~~~~~~~~~ primitive.c: In function 'String_Copy': primitive.c:935:9: error: too many arguments to function 'Make_String'; expected 0, have 1 935 | Make_String(length); | ^~~~~~~~~~~ ~~~~~~ object.h:372:14: note: declared here --- object.o --- object.c:634:17: error: too many arguments to function 'Panic'; expected 0, have 1 634 | Panic("I'm trying to garbage collect an unimplemented number"); | ^~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ steering.h:44:17: note: declared here 44 | Import void Panic(); | ^~~~~ object.c: In function 'Make_Character': object.c:648:13: warning: old-style function definition [-Wold-style-definition] 648 | Public void Make_Character(c) | ^~~~~~~~~~~~~~ object.c:651:1: error: number of arguments doesn't match prototype 651 | { | ^ object.h:342:14: error: prototype declaration 342 | Import void Make_Character(); | ^~~~~~~~~~~~~~ object.c:652:26: error: too many arguments to function 'Allocate'; expected 0, have 1 652 | Value_Register = Allocate(Character_Size); | ^~~~~~~~ architecture.h:86:17: note: declared here --- primitive.o --- 372 | Import void Make_String(/*Integer*/); | ^~~~~~~~~~~ primitive.c: In function 'Scheme_Make_Vector': primitive.c:976:17: error: too many arguments to function 'Error'; expected 0, have 1 976 | Error( "(make-vector k obj) requires exact 1st argument" ); | ^~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ steering.h:41:17: note: declared here 41 | Import void Error(); | ^~~~~ primitive.c:978:23: error: too many arguments to function 'Number_To_Integer'; expected 0, have 1 978 | else length = Number_To_Integer(Top(2)); | ^~~~~~~~~~~~~~~~~ number.h:87:17: note: declared here 87 | Import Integer Number_To_Integer(); | ^~~~~~~~~~~~~~~~~ primitive.c:980:9: error: too many arguments to function 'Make_Vector'; expected 0, have 1 980 | Make_Vector(length); | ^~~~~~~~~~~ ~~~~~~ object.h:401:14: note: declared here --- object.o --- 86 | Import Object Allocate(); | ^~~~~~~~ object.c: In function 'Character_Write': object.c:658:16: warning: old-style function definition [-Wold-style-definition] 658 | Public Integer Character_Write( o, m ) | ^~~~~~~~~~~~~~~ object.c:662:1: error: number of arguments doesn't match prototype 662 | { | ^ object.h:331:17: error: prototype declaration 331 | Import Integer Character_Write(), Character_Display(); | ^~~~~~~~~~~~~~~ object.c:663:9: error: too many arguments to function 'Output'; expected 0, have 1 663 | Output("#\\"); m += 2; | ^~~~~~ ~~~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ object.c:667:17: error: too many arguments to function 'Output'; expected 0, have 1 667 | Output("space"); m += 5; | ^~~~~~ ~~~~~~~ io.h:39:17: note: declared here --- primitive.o --- 401 | Import void Make_Vector(); | ^~~~~~~~~~~ primitive.c: In function 'Vector_Ref': primitive.c:1005:17: error: too many arguments to function 'Error'; expected 0, have 1 1005 | Error( "(vector-ref vec k) requires exact 2nd argument" ); | ^~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ steering.h:41:17: note: declared here 41 | Import void Error(); | ^~~~~ primitive.c:1007:18: error: too many arguments to function 'Number_To_Integer'; expected 0, have 1 1007 | else k = Number_To_Integer(Top(1)); | ^~~~~~~~~~~~~~~~~ number.h:87:17: note: declared here 87 | Import Integer Number_To_Integer(); | ^~~~~~~~~~~~~~~~~ primitive.c:992:7: error: too many arguments to function 'Error'; expected 0, have 1 992 | Error("Vector index is too big or too small"); \ | ^~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ --- object.o --- 39 | Import void Output(/* String s */); | ^~~~~~ object.c:671:17: error: too many arguments to function 'Output'; expected 0, have 1 671 | Output("newline"); m += 7; | ^~~~~~ ~~~~~~~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ object.c:675:17: error: too many arguments to function 'Output_Char'; expected 0, have 1 675 | Output_Char(Get_Character_Value(o)); m += 1; | ^~~~~~~~~~~ io.h:41:17: note: declared here 41 | Import void Output_Char(/* Character c */); | ^~~~~~~~~~~ object.c:678:9: error: too many arguments to function 'Output'; expected 0, have 1 678 | Output(" "); m += 1; | ^~~~~~ ~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ object.c: In function 'Character_Display': --- primitive.o --- primitive.c:1009:9: note: in expansion of macro 'check_vector_index' 1009 | check_vector_index(Top(2), k); | ^~~~~~~~~~~~~~~~~~ steering.h:41:17: note: declared here 41 | Import void Error(); | ^~~~~ primitive.c: In function 'Vector_Set': primitive.c:1022:17: error: too many arguments to function 'Error'; expected 0, have 1 1022 | Error( "(vector-set! vec k elem) requires exact 2nd argument" ); | ^~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ steering.h:41:17: note: declared here 41 | Import void Error(); | ^~~~~ primitive.c:1024:18: error: too many arguments to function 'Number_To_Integer'; expected 0, have 1 1024 | else k = Number_To_Integer(Top(2)); | ^~~~~~~~~~~~~~~~~ number.h:87:17: note: declared here 87 | Import Integer Number_To_Integer(); | ^~~~~~~~~~~~~~~~~ --- object.o --- object.c:683:16: warning: old-style function definition [-Wold-style-definition] 683 | Public Integer Character_Display( o, m ) | ^~~~~~~~~~~~~~~~~ object.c:687:1: error: number of arguments doesn't match prototype 687 | { | ^ object.h:331:36: error: prototype declaration 331 | Import Integer Character_Write(), Character_Display(); | ^~~~~~~~~~~~~~~~~ object.c:688:9: error: too many arguments to function 'Output_Char'; expected 0, have 1 688 | Output_Char(Get_Character_Value(o)); | ^~~~~~~~~~~ io.h:41:17: note: declared here 41 | Import void Output_Char(/* Character c */); | ^~~~~~~~~~~ object.c: In function 'Character_GC': object.c:692:15: warning: old-style function definition [-Wold-style-definition] 692 | Public Object Character_GC(old) | ^~~~~~~~~~~~ object.c:695:1: error: number of arguments doesn't match prototype 695 | { | ^ --- primitive.o --- primitive.c:992:7: error: too many arguments to function 'Error'; expected 0, have 1 992 | Error("Vector index is too big or too small"); \ | ^~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ primitive.c:1026:9: note: in expansion of macro 'check_vector_index' 1026 | check_vector_index(Top(3), k); | ^~~~~~~~~~~~~~~~~~ steering.h:41:17: note: declared here 41 | Import void Error(); | ^~~~~ primitive.c: In function 'Vector_Length': primitive.c:1035:9: error: too many arguments to function 'Integer_To_Number'; expected 0, have 1 1035 | Integer_To_Number(Get_Vector_Length(Top(1))); | ^~~~~~~~~~~~~~~~~ number.h:88:17: note: declared here 88 | Import void Integer_To_Number(/* Integer */); | ^~~~~~~~~~~~~~~~~ primitive.c: In function 'Vector_Equal': architecture.h:62:34: error: too many arguments to function 'Error'; expected 0, have 1 --- object.o --- object.h:332:24: error: prototype declaration 332 | struct Object_Struct *Character_GC(); | ^~~~~~~~~~~~ object.c:696:22: error: too many arguments to function 'Move_Object'; expected 0, have 2 696 | Object new = Move_Object(old, Character_Size); | ^~~~~~~~~~~ ~~~ architecture.h:95:15: note: declared here 95 | Import Object Move_Object(); | ^~~~~~~~~~~ object.c: In function 'Make_String': object.c:709:13: warning: old-style function definition [-Wold-style-definition] 709 | Public void Make_String(l) | ^~~~~~~~~~~ object.c:712:1: error: number of arguments doesn't match prototype 712 | { | ^ object.h:372:14: error: prototype declaration 372 | Import void Make_String(/*Integer*/); | ^~~~~~~~~~~ object.c:713:26: error: too many arguments to function 'Allocate'; expected 0, have 1 713 | Value_Register = Allocate(String_Size(l+1)); --- primitive.o --- 62 | Error( "Argument Stack Overflow." );\ | ^~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~ primitive.c:1057:25: note: in expansion of macro 'Push' 1057 | Push(Get_Vector_Elem(Top(1), this_element)); | ^~~~ steering.h:41:17: note: declared here 41 | Import void Error(); | ^~~~~ architecture.h:62:34: error: too many arguments to function 'Error'; expected 0, have 1 62 | Error( "Argument Stack Overflow." );\ | ^~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~ primitive.c:1058:25: note: in expansion of macro 'Push' 1058 | Push(Get_Vector_Elem(Top(3), this_element)); | ^~~~ steering.h:41:17: note: declared here 41 | Import void Error(); | ^~~~~ primitive.c: In function 'Vector_To_List': --- object.o --- | ^~~~~~~~ architecture.h:86:17: note: declared here 86 | Import Object Allocate(); | ^~~~~~~~ object.c: In function 'Make_Constant_String': object.c:719:13: warning: old-style function definition [-Wold-style-definition] 719 | Public void Make_Constant_String(s) | ^~~~~~~~~~~~~~~~~~~~ object.c:722:1: error: number of arguments doesn't match prototype 722 | { | ^ object.h:373:14: error: prototype declaration 373 | Import void Make_Constant_String(/*string*/); | ^~~~~~~~~~~~~~~~~~~~ object.c:723:26: error: too many arguments to function 'Allocate'; expected 0, have 1 723 | Value_Register = Allocate(String_Size(strlen(s)+1)); | ^~~~~~~~ architecture.h:86:17: note: declared here 86 | Import Object Allocate(); | ^~~~~~~~ object.c: In function 'Copy_String': object.c:730:15: warning: old-style function definition [-Wold-style-definition] --- primitive.o --- architecture.h:62:34: error: too many arguments to function 'Error'; expected 0, have 1 62 | Error( "Argument Stack Overflow." );\ | ^~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~ primitive.c:1076:17: note: in expansion of macro 'Push' 1076 | Push(Get_Vector_Elem(Top(1), size)); | ^~~~ steering.h:41:17: note: declared here 41 | Import void Error(); | ^~~~~ architecture.h:62:34: error: too many arguments to function 'Error'; expected 0, have 1 62 | Error( "Argument Stack Overflow." );\ | ^~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~ primitive.c:1077:17: note: in expansion of macro 'Push' 1077 | Push(Value_Register); | ^~~~ steering.h:41:17: note: declared here 41 | Import void Error(); | ^~~~~ primitive.c: In function 'List_To_Vector': --- object.o --- 730 | Public String Copy_String(str) | ^~~~~~~~~~~ object.c:733:1: error: number of arguments doesn't match prototype 733 | { | ^ object.c:423:16: error: prototype declaration 423 | String Copy_String(); | ^~~~~~~~~~~ object.c:737:17: error: too many arguments to function 'Panic'; expected 0, have 1 737 | Panic("I ran out of memory in Copy_String"); | ^~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ steering.h:44:17: note: declared here 44 | Import void Panic(); | ^~~~~ object.c: In function 'String_Write': object.c:743:16: warning: old-style function definition [-Wold-style-definition] 743 | Public Integer String_Write( o, m ) | ^~~~~~~~~~~~ object.c:747:1: error: number of arguments doesn't match prototype 747 | { | ^ object.h:358:17: error: prototype declaration 358 | Import Integer String_Write(), String_Display(); --- primitive.o --- primitive.c:1084:31: error: too many arguments to function 'Length'; expected 0, have 1 1084 | Integer list_length = Length(Top(1)); | ^~~~~~ object.h:149:17: note: declared here 149 | Import Integer Length(); | ^~~~~~ primitive.c:1088:19: error: too many arguments to function 'Display_Error'; expected 0, have 2 1088 | Display_Error("Expected a list as argument to list->vector", | ^~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ steering.h:43:17: note: declared here 43 | Import void Display_Error(); | ^~~~~~~~~~~~~ primitive.c:1091:9: error: too many arguments to function 'Make_Vector'; expected 0, have 1 1091 | Make_Vector(list_length); | ^~~~~~~~~~~ ~~~~~~~~~~~ object.h:401:14: note: declared here 401 | Import void Make_Vector(); | ^~~~~~~~~~~ --- object.o --- | ^~~~~~~~~~~~ object.c:750:9: error: too many arguments to function 'Output'; expected 0, have 1 750 | Output("\""); m += 1; | ^~~~~~ ~~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ object.c:756:25: error: too many arguments to function 'Output'; expected 0, have 1 756 | Output("\\\""); m += 2; | ^~~~~~ ~~~~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ object.c:760:25: error: too many arguments to function 'Output'; expected 0, have 1 760 | Output("\\\\"); m += 2; | ^~~~~~ ~~~~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ object.c:764:25: error: too many arguments to function 'Output_Char'; expected 0, have 1 --- primitive.o --- primitive.c:1095:65: error: too many arguments to function 'First'; expected 0, have 1 1095 | Get_Vector_Elem(Value_Register, this_element) = First(Top(1)); | ^~~~~ object.h:150:31: note: declared here 150 | Import struct Object_Struct *First(); | ^~~~~ primitive.c: In function 'Apply': primitive.c:1134:17: error: too many arguments to function 'Display_Error'; expected 0, have 2 1134 | Display_Error("Apply requires a function as its 1st argument", | ^~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ steering.h:43:17: note: declared here 43 | Import void Display_Error(); | ^~~~~~~~~~~~~ primitive.c:1140:17: error: too many arguments to function 'Display_Error'; expected 0, have 2 1140 | Display_Error("Apply requires a list as its 2nd argument", --- object.o --- 764 | Output_Char(Get_String_Value(o)[this_char]); m += 1; | ^~~~~~~~~~~ io.h:41:17: note: declared here 41 | Import void Output_Char(/* Character c */); | ^~~~~~~~~~~ object.c:768:9: error: too many arguments to function 'Output'; expected 0, have 1 768 | Output("\""); m += 1; | ^~~~~~ ~~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ object.c: In function 'String_Display': object.c:772:17: warning: old-style function definition [-Wold-style-definition] 772 | Public Integer String_Display( o , m ) | ^~~~~~~~~~~~~~ object.c:776:1: error: number of arguments doesn't match prototype 776 | { | ^ object.h:358:33: error: prototype declaration 358 | Import Integer String_Write(), String_Display(); | ^~~~~~~~~~~~~~ --- primitive.o --- | ^~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ steering.h:43:17: note: declared here 43 | Import void Display_Error(); | ^~~~~~~~~~~~~ architecture.h:62:34: error: too many arguments to function 'Error'; expected 0, have 1 62 | Error( "Argument Stack Overflow." );\ | ^~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~ primitive.c:1149:9: note: in expansion of macro 'Push' 1149 | Push(Nil); /* To be popped off later by Call_Primitive(). */ | ^~~~ steering.h:41:17: note: declared here 41 | Import void Error(); | ^~~~~ architecture.h:62:34: error: too many arguments to function 'Error'; expected 0, have 1 62 | Error( "Argument Stack Overflow." );\ | ^~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~ primitive.c:1150:9: note: in expansion of macro 'Push' 1150 | Push(Nil); --- object.o --- object.c:781:17: error: too many arguments to function 'Output_Char'; expected 0, have 1 781 | Output_Char(Get_String_Value(o)[this_char]); | ^~~~~~~~~~~ io.h:41:17: note: declared here 41 | Import void Output_Char(/* Character c */); | ^~~~~~~~~~~ object.c: In function 'String_GC': object.c:786:15: warning: old-style function definition [-Wold-style-definition] 786 | Public Object String_GC(old) | ^~~~~~~~~ object.c:789:1: error: number of arguments doesn't match prototype 789 | { | ^ object.h:359:24: error: prototype declaration 359 | struct Object_Struct *String_GC(); | ^~~~~~~~~ object.c:790:22: error: too many arguments to function 'Move_Object'; expected 0, have 2 790 | Object new = Move_Object(old, String_Size(Get_String_Length(old))); | ^~~~~~~~~~~ ~~~ architecture.h:95:15: note: declared here 95 | Import Object Move_Object(); --- primitive.o --- | ^~~~ steering.h:41:17: note: declared here 41 | Import void Error(); | ^~~~~ primitive.c: In function 'Set_Current_Input': primitive.c:1207:17: error: too many arguments to function 'Display_Error'; expected 0, have 2 1207 | Display_Error("Attempt to set an output port as input: ", | ^~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ steering.h:43:17: note: declared here 43 | Import void Display_Error(); | ^~~~~~~~~~~~~ primitive.c: In function 'Set_Current_Output': primitive.c:1222:17: error: too many arguments to function 'Display_Error'; expected 0, have 2 1222 | Display_Error("Attempt to set an input port as output: ", | ^~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ steering.h:43:17: note: declared here 43 | Import void Display_Error(); | ^~~~~~~~~~~~~ primitive.c: In function 'Open_Input_File': --- object.o --- | ^~~~~~~~~~~ object.c: In function 'Make_Vector': object.c:804:13: warning: old-style function definition [-Wold-style-definition] 804 | Public void Make_Vector(length) | ^~~~~~~~~~~ object.c:807:1: error: number of arguments doesn't match prototype 807 | { | ^ object.h:401:14: error: prototype declaration 401 | Import void Make_Vector(); | ^~~~~~~~~~~ object.c:808:26: error: too many arguments to function 'Allocate'; expected 0, have 1 808 | Value_Register = Allocate(Vector_Size(length)); | ^~~~~~~~ architecture.h:86:17: note: declared here 86 | Import Object Allocate(); | ^~~~~~~~ object.c: In function 'Vector_Display': object.c:819:17: warning: old-style function definition [-Wold-style-definition] 819 | Public Integer Vector_Display( o, m ) | ^~~~~~~~~~~~~~ object.c:823:1: error: number of arguments doesn't match prototype 823 | { | ^ --- primitive.o --- primitive.c:1241:17: error: too many arguments to function 'Error1'; expected 0, have 2 1241 | Error1("I can't open the file `%s' for reading", filename); | ^~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ steering.h:42:17: note: declared here 42 | Import void Error1(); | ^~~~~~ primitive.c:1244:9: error: too many arguments to function 'Make_Port'; expected 0, have 3 1244 | Make_Port(TRUE, new_file, filename); | ^~~~~~~~~ object.h:523:17: note: declared here 523 | Import void Make_Port(); | ^~~~~~~~~ primitive.c: In function 'Open_Output_File': primitive.c:1259:17: error: too many arguments to function 'Error1'; expected 0, have 2 1259 | Error1("I can't open the file `%s' for writing", filename); | ^~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ steering.h:42:17: note: declared here 42 | Import void Error1(); | ^~~~~~ --- object.o --- object.h:385:17: error: prototype declaration 385 | Import Integer Vector_Display(), Vector_Write(), Vector_Show(); | ^~~~~~~~~~~~~~ object.c:826:9: error: too many arguments to function 'Output'; expected 0, have 1 826 | Output("#("); m += 3; | ^~~~~~ ~~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ object.c:833:25: error: too many arguments to function 'Output'; expected 0, have 1 833 | Output(" "); m += 1; | ^~~~~~ ~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ object.h:101:46: error: too many arguments to function 'o->Specific.Vector.Value[this_element]->Common.Type->Display'; expected 0, have 2 101 | #define Display_Object(o,m) ((Get_Type(o)->Display)(o,m)) | ~~~~~~~~~~~~^~~~~~~~~~ --- primitive.o --- primitive.c:1262:9: error: too many arguments to function 'Make_Port'; expected 0, have 3 1262 | Make_Port(FALSE, new_file, filename); | ^~~~~~~~~ object.h:523:17: note: declared here 523 | Import void Make_Port(); | ^~~~~~~~~ primitive.c: In function 'Close_Port': primitive.c:1289:13: error: too many arguments to function 'Error'; expected 0, have 1 1289 | Error( "Attempt to close pipe as if it were an ordinary port." ); | ^~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ steering.h:41:17: note: declared here 41 | Import void Error(); | ^~~~~ primitive.c: In function 'Read_From_Port': primitive.c:1302:17: error: too many arguments to function 'Display_Error'; expected 0, have 2 1302 | Display_Error("Attempt to read from an output port:", Top(1)); | ^~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ steering.h:43:17: note: declared here --- object.o --- object.c:835:21: note: in expansion of macro 'Display_Object' 835 | m = Display_Object( Get_Vector_Elem(o, this_element) , m ); | ^~~~~~~~~~~~~~ object.h:73:19: note: declared here 73 | Integer (*Display)(); | ^~~~~~~ object.c:838:9: error: too many arguments to function 'Output'; expected 0, have 1 838 | Output(")"); m += 1; | ^~~~~~ ~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ object.c: In function 'Vector_Write': object.c:842:17: warning: old-style function definition [-Wold-style-definition] 842 | Public Integer Vector_Write( o, m ) | ^~~~~~~~~~~~ object.c:846:1: error: number of arguments doesn't match prototype 846 | { | ^ object.h:385:35: error: prototype declaration 385 | Import Integer Vector_Display(), Vector_Write(), Vector_Show(); | ^~~~~~~~~~~~ --- primitive.o --- 43 | Import void Display_Error(); | ^~~~~~~~~~~~~ architecture.h:62:34: error: too many arguments to function 'Error'; expected 0, have 1 62 | Error( "Argument Stack Overflow." );\ | ^~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~ primitive.c:1305:9: note: in expansion of macro 'Push' 1305 | Push(Current_Input_Port); | ^~~~ steering.h:41:17: note: declared here 41 | Import void Error(); | ^~~~~ primitive.c:1308:9: error: too many arguments to function 'Read'; expected 0, have 1 1308 | Read(Get_Port_File(Top(2))); /* The argument is at |Top(2)| now. */ | ^~~~ In file included from primitive.c:44: io.h:47:17: note: declared here 47 | Import void Read(/* FILE *input */); | ^~~~ primitive.c: In function 'Read_Char': primitive.c:1324:17: error: too many arguments to function 'Display_Error'; expected 0, have 2 --- object.o --- object.c:849:9: error: too many arguments to function 'Output'; expected 0, have 1 849 | Output("#("); m += 3; | ^~~~~~ ~~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ object.c:856:25: error: too many arguments to function 'Output'; expected 0, have 1 856 | Output(" "); m += 1; | ^~~~~~ ~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ object.h:102:46: error: too many arguments to function 'o->Specific.Vector.Value[this_element]->Common.Type->Write'; expected 0, have 2 102 | #define Write_Object(o,m) ((Get_Type(o)->Write)(o,m)) | ~~~~~~~~~~~~^~~~~~~~ object.c:858:21: note: in expansion of macro 'Write_Object' 858 | m = Write_Object( Get_Vector_Elem(o, this_element) , m ); | ^~~~~~~~~~~~ --- primitive.o --- 1324 | Display_Error("You're trying to read from a output port:", | ^~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ steering.h:43:17: note: declared here 43 | Import void Display_Error(); | ^~~~~~~~~~~~~ primitive.c:1335:25: error: too many arguments to function 'Make_Character'; expected 0, have 1 1335 | Make_Character(new_char); | ^~~~~~~~~~~~~~ ~~~~~~~~ object.h:342:14: note: declared here 342 | Import void Make_Character(); | ^~~~~~~~~~~~~~ primitive.c: In function 'Char_Ready': primitive.c:1346:13: error: too many arguments to function 'Display_Error'; expected 0, have 2 1346 | Display_Error("Attempt to apply char-ready? to an output port:", | ^~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ steering.h:43:17: note: declared here 43 | Import void Display_Error(); | ^~~~~~~~~~~~~ --- object.o --- object.h:74:19: note: declared here 74 | Integer (*Write)(); | ^~~~~ object.c:861:9: error: too many arguments to function 'Output'; expected 0, have 1 861 | Output(")"); m += 1; | ^~~~~~ ~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ object.c: In function 'Vector_Show': object.c:866:17: warning: old-style function definition [-Wold-style-definition] 866 | Public Integer Vector_Show( o, m ) | ^~~~~~~~~~~ object.c:870:1: error: number of arguments doesn't match prototype 870 | { | ^ object.h:385:51: error: prototype declaration 385 | Import Integer Vector_Display(), Vector_Write(), Vector_Show(); | ^~~~~~~~~~~ object.c:874:9: error: too many arguments to function 'Output'; expected 0, have 1 874 | Output("#("); m += 2; | ^~~~~~ ~~~~ io.h:39:17: note: declared here --- primitive.o --- primitive.c: In function 'Scheme_Peek_Char': primitive.c:1363:17: error: too many arguments to function 'Display_Error'; expected 0, have 2 1363 | Display_Error("You're trying to peek from a output port:", | ^~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ steering.h:43:17: note: declared here 43 | Import void Display_Error(); | ^~~~~~~~~~~~~ primitive.c:1375:25: error: too many arguments to function 'Make_Character'; expected 0, have 1 1375 | Make_Character(new_char); | ^~~~~~~~~~~~~~ ~~~~~~~~ object.h:342:14: note: declared here 342 | Import void Make_Character(); | ^~~~~~~~~~~~~~ primitive.c: In function 'Write_To_Port': primitive.c:1398:17: error: too many arguments to function 'Display_Error'; expected 0, have 2 1398 | Display_Error("Attempt to write to an input port:", Top(1)); --- object.o --- 39 | Import void Output(/* String s */); | ^~~~~~ object.h:102:46: error: too many arguments to function 'o->Specific.Vector.Value[0]->Common.Type->Write'; expected 0, have 2 102 | #define Write_Object(o,m) ((Get_Type(o)->Write)(o,m)) | ~~~~~~~~~~~~^~~~~~~~ object.c:878:21: note: in expansion of macro 'Write_Object' 878 | m = Write_Object( Get_Vector_Elem(o,0) , m ) + 1; Output( " " ); | ^~~~~~~~~~~~ object.h:74:19: note: declared here 74 | Integer (*Write)(); | ^~~~~ object.c:878:67: error: too many arguments to function 'Output'; expected 0, have 1 878 | m = Write_Object( Get_Vector_Elem(o,0) , m ) + 1; Output( " " ); | ^~~~~~ ~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ --- primitive.o --- | ^~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ steering.h:43:17: note: declared here 43 | Import void Display_Error(); | ^~~~~~~~~~~~~ architecture.h:62:34: error: too many arguments to function 'Error'; expected 0, have 1 62 | Error( "Argument Stack Overflow." );\ | ^~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~ primitive.c:1401:9: note: in expansion of macro 'Push' 1401 | Push(Current_Output_Port); | ^~~~ steering.h:41:17: note: declared here 41 | Import void Error(); | ^~~~~ object.h:102:46: error: too many arguments to function 'Arg_Stack[(int)Arg_Stack_Ptr + -3]->Common.Type->Write'; expected 0, have 2 102 | #define Write_Object(o,m) ((Get_Type(o)->Write)(o,m)) | ~~~~~~~~~~~~^~~~~~~~ primitive.c:1406:17: note: in expansion of macro 'Write_Object' --- object.o --- object.h:102:46: error: too many arguments to function 'o->Specific.Vector.Value[1]->Common.Type->Write'; expected 0, have 2 102 | #define Write_Object(o,m) ((Get_Type(o)->Write)(o,m)) | ~~~~~~~~~~~~^~~~~~~~ object.c:879:21: note: in expansion of macro 'Write_Object' 879 | m = Write_Object( Get_Vector_Elem(o,1) , m ) + 1; Output( " " ); | ^~~~~~~~~~~~ object.h:74:19: note: declared here 74 | Integer (*Write)(); | ^~~~~ object.c:879:67: error: too many arguments to function 'Output'; expected 0, have 1 879 | m = Write_Object( Get_Vector_Elem(o,1) , m ) + 1; Output( " " ); | ^~~~~~ ~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ --- primitive.o --- 1406 | dummy = Write_Object( Top(3) , dummy ); | ^~~~~~~~~~~~ object.h:74:19: note: declared here 74 | Integer (*Write)(); | ^~~~~ primitive.c: In function 'Display_To_Port': primitive.c:1424:17: error: too many arguments to function 'Display_Error'; expected 0, have 2 1424 | Display_Error("Attempt to display on an input port:", Top(1)); | ^~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ steering.h:43:17: note: declared here 43 | Import void Display_Error(); | ^~~~~~~~~~~~~ architecture.h:62:34: error: too many arguments to function 'Error'; expected 0, have 1 62 | Error( "Argument Stack Overflow." );\ | ^~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~ primitive.c:1427:9: note: in expansion of macro 'Push' 1427 | Push(Current_Output_Port); | ^~~~ steering.h:41:17: note: declared here --- object.o --- object.h:102:46: error: too many arguments to function 'o->Specific.Vector.Value[2]->Common.Type->Write'; expected 0, have 2 102 | #define Write_Object(o,m) ((Get_Type(o)->Write)(o,m)) | ~~~~~~~~~~~~^~~~~~~~ object.c:880:21: note: in expansion of macro 'Write_Object' 880 | m = Write_Object( Get_Vector_Elem(o,2) , m ) + 1; Output( " " ); | ^~~~~~~~~~~~ object.h:74:19: note: declared here 74 | Integer (*Write)(); | ^~~~~ object.c:880:67: error: too many arguments to function 'Output'; expected 0, have 1 880 | m = Write_Object( Get_Vector_Elem(o,2) , m ) + 1; Output( " " ); | ^~~~~~ ~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ object.c:881:17: error: too many arguments to function 'Output'; expected 0, have 1 --- primitive.o --- 41 | Import void Error(); | ^~~~~ object.h:101:46: error: too many arguments to function 'Arg_Stack[(int)Arg_Stack_Ptr + -3]->Common.Type->Display'; expected 0, have 2 101 | #define Display_Object(o,m) ((Get_Type(o)->Display)(o,m)) | ~~~~~~~~~~~~^~~~~~~~~~ primitive.c:1430:17: note: in expansion of macro 'Display_Object' 1430 | dummy = Display_Object( Top(3) , dummy ); | ^~~~~~~~~~~~~~ object.h:73:19: note: declared here 73 | Integer (*Display)(); | ^~~~~~~ primitive.c: In function 'Write_Char_To_Port': primitive.c:1447:17: error: too many arguments to function 'Display_Error'; expected 0, have 2 1447 | Display_Error("Attempt to write to an input port:", Top(1)); | ^~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ steering.h:43:17: note: declared here 43 | Import void Display_Error(); | ^~~~~~~~~~~~~ --- object.o --- 881 | Output( "...)" ); m += 4; | ^~~~~~ ~~~~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ object.h:102:46: error: too many arguments to function 'o->Specific.Vector.Value[this_element]->Common.Type->Write'; expected 0, have 2 102 | #define Write_Object(o,m) ((Get_Type(o)->Write)(o,m)) | ~~~~~~~~~~~~^~~~~~~~ object.c:887:29: note: in expansion of macro 'Write_Object' 887 | m = Write_Object(Get_Vector_Elem(o,this_element),m) + 1; | ^~~~~~~~~~~~ object.h:74:19: note: declared here 74 | Integer (*Write)(); | ^~~~~ object.c:888:25: error: too many arguments to function 'Output'; expected 0, have 1 888 | Output( this_element == (length-1) ? ")" : " " ); | ^~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ --- primitive.o --- primitive.c: In function 'Load': primitive.c:1465:26: error: too many arguments to function 'Copy_String'; expected 0, have 1 1465 | load_file_name = Copy_String(Get_String_Value(Top(1))); | ^~~~~~~~~~~ object.h:374:16: note: declared here 374 | Import String Copy_String(/* string */); | ^~~~~~~~~~~ primitive.c:1470:17: error: too many arguments to function 'Error1'; expected 0, have 2 1470 | Error1("I can't open `%s' for loading", load_file_name); | ^~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ steering.h:42:17: note: declared here 42 | Import void Error1(); | ^~~~~~ primitive.c:1473:9: error: too many arguments to function 'Output'; expected 0, have 1 1473 | Output("Loading "); | ^~~~~~ ~~~~~~~~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ --- object.o --- io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ object.c: In function 'Vector_GC': object.c:896:15: warning: old-style function definition [-Wold-style-definition] 896 | Public Object Vector_GC(old) | ^~~~~~~~~ object.c:899:1: error: number of arguments doesn't match prototype 899 | { | ^ object.h:386:24: error: prototype declaration 386 | struct Object_Struct *Vector_GC(); | ^~~~~~~~~ object.c:900:22: error: too many arguments to function 'Move_Object'; expected 0, have 2 900 | Object new = Move_Object(old, Vector_Size(Get_Vector_Length(old))); | ^~~~~~~~~~~ ~~~ architecture.h:95:15: note: declared here 95 | Import Object Move_Object(); | ^~~~~~~~~~~ object.c:906:17: error: too many arguments to function 'Relocate'; expected 0, have 1 906 | Relocate(&Get_Vector_Elem(new,this_element)); --- primitive.o --- primitive.c:1474:9: error: too many arguments to function 'Output'; expected 0, have 1 1474 | Output(load_file_name); | ^~~~~~ ~~~~~~~~~~~~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ primitive.c:1475:9: error: too many arguments to function 'Output'; expected 0, have 1 1475 | Output("...\n"); | ^~~~~~ ~~~~~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ primitive.c:1476:9: error: too many arguments to function 'Set_Printing'; expected 0, have 1 1476 | Set_Printing(FALSE); | ^~~~~~~~~~~~ io.h:54:17: note: declared here 54 | Import void Set_Printing(/* Boolean */); | ^~~~~~~~~~~~ primitive.c:1479:9: error: too many arguments to function 'Read_Eval_Print'; expected 0, have 1 1479 | Read_Eval_Print(load_file); | ^~~~~~~~~~~~~~~ ~~~~~~~~~ --- object.o --- | ^~~~~~~~ architecture.h:96:13: note: declared here 96 | Import void Relocate(); | ^~~~~~~~ object.c: In function 'Make_Procedure': object.c:925:26: error: too many arguments to function 'Allocate'; expected 0, have 1 925 | Value_Register = Allocate(Procedure_Size); | ^~~~~~~~ architecture.h:86:17: note: declared here 86 | Import Object Allocate(); | ^~~~~~~~ object.c: In function 'Procedure_Print': object.c:941:17: warning: old-style function definition [-Wold-style-definition] 941 | Public Integer Procedure_Print( o, m ) | ^~~~~~~~~~~~~~~ object.c:945:1: error: number of arguments doesn't match prototype 945 | { | ^ object.h:417:17: error: prototype declaration 417 | Import Integer Procedure_Print(), Procedure_Show(); | ^~~~~~~~~~~~~~~ object.c:948:9: error: too many arguments to function 'Output'; expected 0, have 1 --- primitive.o --- steering.h:37:17: note: declared here 37 | Import void Read_Eval_Print(); | ^~~~~~~~~~~~~~~ primitive.c:1481:9: error: too many arguments to function 'Set_Printing'; expected 0, have 1 1481 | Set_Printing(save_printing_state); | ^~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~ io.h:54:17: note: declared here 54 | Import void Set_Printing(/* Boolean */); | ^~~~~~~~~~~~ primitive.c: In function 'Load_Verbose': primitive.c:1492:26: error: too many arguments to function 'Copy_String'; expected 0, have 1 1492 | load_file_name = Copy_String(Get_String_Value(Top(1))); | ^~~~~~~~~~~ object.h:374:16: note: declared here 374 | Import String Copy_String(/* string */); | ^~~~~~~~~~~ primitive.c:1497:17: error: too many arguments to function 'Error1'; expected 0, have 2 1497 | Error1("I can't open `%s' for loading", load_file_name); --- object.o --- 948 | Output( "(lambda " ); m += 8; | ^~~~~~ ~~~~~~~~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ object.c:949:13: error: too many arguments to function 'Print_As_Formals'; expected 0, have 2 949 | m = Print_As_Formals( Get_Procedure_Frame(o) , m ); | ^~~~~~~~~~~~~~~~ object.c:49:17: note: declared here 49 | Private Integer Print_As_Formals(); | ^~~~~~~~~~~~~~~~ object.h:102:46: error: too many arguments to function 'o->Specific.Procedure.Body->Common.Type->Write'; expected 0, have 2 102 | #define Write_Object(o,m) ((Get_Type(o)->Write)(o,m)) | ~~~~~~~~~~~~^~~~~~~~ object.c:951:13: note: in expansion of macro 'Write_Object' 951 | m = Write_Object( Get_Procedure_Body(o) , in_m ); /* Prints `)' */ | ^~~~~~~~~~~~ object.h:74:19: note: declared here 74 | Integer (*Write)(); --- primitive.o --- | ^~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ steering.h:42:17: note: declared here 42 | Import void Error1(); | ^~~~~~ primitive.c:1500:9: error: too many arguments to function 'Output'; expected 0, have 1 1500 | Output("Loading "); | ^~~~~~ ~~~~~~~~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ primitive.c:1501:9: error: too many arguments to function 'Output'; expected 0, have 1 1501 | Output(load_file_name); | ^~~~~~ ~~~~~~~~~~~~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ primitive.c:1502:9: error: too many arguments to function 'Output'; expected 0, have 1 1502 | Output("...\n"); | ^~~~~~ ~~~~~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ --- object.o --- | ^~~~~ object.c: In function 'Procedure_Show': object.c:958:17: warning: old-style function definition [-Wold-style-definition] 958 | Public Integer Procedure_Show( o , m ) | ^~~~~~~~~~~~~~ object.c:962:1: error: number of arguments doesn't match prototype 962 | { | ^ object.h:417:36: error: prototype declaration 417 | Import Integer Procedure_Print(), Procedure_Show(); | ^~~~~~~~~~~~~~ object.c:963:9: error: too many arguments to function 'Output'; expected 0, have 1 963 | Output("(lambda "); m += 8; | ^~~~~~ ~~~~~~~~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ object.c:964:13: error: too many arguments to function 'Print_As_Formals'; expected 0, have 2 964 | m = Print_As_Formals( Get_Procedure_Frame(o) , m ); | ^~~~~~~~~~~~~~~~ object.c:49:17: note: declared here --- primitive.o --- primitive.c:1503:9: error: too many arguments to function 'Set_Printing'; expected 0, have 1 1503 | Set_Printing(TRUE); | ^~~~~~~~~~~~ io.h:54:17: note: declared here 54 | Import void Set_Printing(/* Boolean */); | ^~~~~~~~~~~~ primitive.c:1506:9: error: too many arguments to function 'Read_Eval_Print'; expected 0, have 1 1506 | Read_Eval_Print(load_file); | ^~~~~~~~~~~~~~~ ~~~~~~~~~ steering.h:37:17: note: declared here 37 | Import void Read_Eval_Print(); | ^~~~~~~~~~~~~~~ primitive.c:1508:9: error: too many arguments to function 'Set_Printing'; expected 0, have 1 1508 | Set_Printing(save_printing_state); | ^~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~ io.h:54:17: note: declared here 54 | Import void Set_Printing(/* Boolean */); | ^~~~~~~~~~~~ primitive.c: In function 'Transcript_On': --- object.o --- 49 | Private Integer Print_As_Formals(); | ^~~~~~~~~~~~~~~~ object.c:965:9: error: too many arguments to function 'Output'; expected 0, have 1 965 | Output(" ...)"); m += 5; | ^~~~~~ ~~~~~~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ object.c: In function 'Procedure_GC': object.c:969:15: warning: old-style function definition [-Wold-style-definition] 969 | Public Object Procedure_GC(old) | ^~~~~~~~~~~~ object.c:972:1: error: number of arguments doesn't match prototype 972 | { | ^ object.h:418:24: error: prototype declaration 418 | struct Object_Struct *Procedure_GC(); | ^~~~~~~~~~~~ object.c:973:22: error: too many arguments to function 'Move_Object'; expected 0, have 2 973 | Object new = Move_Object(old, Procedure_Size); | ^~~~~~~~~~~ ~~~ architecture.h:95:15: note: declared here --- primitive.o --- primitive.c:1523:17: error: too many arguments to function 'Error'; expected 0, have 1 1523 | Error("You are already making a transcript"); | ^~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ steering.h:41:17: note: declared here 41 | Import void Error(); | ^~~~~ primitive.c:1530:25: error: too many arguments to function 'Error1'; expected 0, have 2 1530 | Error1("I couldn't open the transcript file `%s'", | ^~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ steering.h:42:17: note: declared here 42 | Import void Error1(); | ^~~~~~ primitive.c:1533:17: error: too many arguments to function 'Make_Port'; expected 0, have 3 1533 | Make_Port(FALSE, transcript_file, Get_String_Value(Top(1))); | ^~~~~~~~~ object.h:523:17: note: declared here 523 | Import void Make_Port(); | ^~~~~~~~~ --- object.o --- 95 | Import Object Move_Object(); | ^~~~~~~~~~~ object.c:975:9: error: too many arguments to function 'Relocate'; expected 0, have 1 975 | Relocate(&Get_Procedure_Body(new)); | ^~~~~~~~ architecture.h:96:13: note: declared here 96 | Import void Relocate(); | ^~~~~~~~ object.c:976:9: error: too many arguments to function 'Relocate'; expected 0, have 1 976 | Relocate(&Get_Procedure_Environment(new)); | ^~~~~~~~ architecture.h:96:13: note: declared here 96 | Import void Relocate(); | ^~~~~~~~ object.c:977:9: error: too many arguments to function 'Relocate'; expected 0, have 1 977 | Relocate(&Get_Procedure_Frame(new)); | ^~~~~~~~ architecture.h:96:13: note: declared here 96 | Import void Relocate(); | ^~~~~~~~ object.c: In function 'Make_Primitive': object.c:991:13: warning: old-style function definition [-Wold-style-definition] --- primitive.o --- primitive.c: In function 'Transcript_Off': primitive.c:1544:17: error: too many arguments to function 'Error'; expected 0, have 1 1544 | Error("You're not making a transcript"); | ^~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ steering.h:41:17: note: declared here 41 | Import void Error(); | ^~~~~ primitive.c: In function 'Put': architecture.h:62:34: error: too many arguments to function 'Error'; expected 0, have 1 62 | Error( "Argument Stack Overflow." );\ | ^~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~ primitive.c:1576:17: note: in expansion of macro 'Push' 1576 | Push( prop_name ); | ^~~~ steering.h:41:17: note: declared here 41 | Import void Error(); | ^~~~~ architecture.h:62:34: error: too many arguments to function 'Error'; expected 0, have 1 --- object.o --- 991 | Public void Make_Primitive(name, proc, arg_count, arg_type1, | ^~~~~~~~~~~~~~ object.c:997:1: error: number of arguments doesn't match prototype 997 | { | ^ object.h:468:14: error: prototype declaration 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ object.c:1000:26: error: too many arguments to function 'Allocate'; expected 0, have 1 1000 | Value_Register = Allocate(Primitive_Size(arg_count)); | ^~~~~~~~ architecture.h:86:17: note: declared here 86 | Import Object Allocate(); | ^~~~~~~~ object.c:1019:17: error: too many arguments to function 'Panic'; expected 0, have 1 1019 | Panic("I thought all primitives had fewer than four types"); | ^~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ steering.h:44:17: note: declared here 44 | Import void Panic(); | ^~~~~ --- primitive.o --- 62 | Error( "Argument Stack Overflow." );\ | ^~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~ primitive.c:1577:17: note: in expansion of macro 'Push' 1577 | Push( obj ); | ^~~~ steering.h:41:17: note: declared here 41 | Import void Error(); | ^~~~~ architecture.h:62:34: error: too many arguments to function 'Error'; expected 0, have 1 62 | Error( "Argument Stack Overflow." );\ | ^~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~ primitive.c:1579:17: note: in expansion of macro 'Push' 1579 | Push( Value_Register ) | ^~~~ steering.h:41:17: note: declared here 41 | Import void Error(); | ^~~~~ architecture.h:62:34: error: too many arguments to function 'Error'; expected 0, have 1 62 | Error( "Argument Stack Overflow." );\ --- object.o --- architecture.h:62:34: error: too many arguments to function 'Error'; expected 0, have 1 62 | Error( "Argument Stack Overflow." );\ | ^~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~ object.c:1023:9: note: in expansion of macro 'Push' 1023 | Push( Value_Register ); /* Save Primitive */ | ^~~~ steering.h:41:17: note: declared here 41 | Import void Error(); | ^~~~~ object.c:1026:27: error: too many arguments to function 'Intern_Name'; expected 0, have 1 1026 | Interned_Symbol = Intern_Name(name); | ^~~~~~~~~~~ ~~~~ architecture.h:80:17: note: declared here 80 | Import Object Intern_Name( /* String name */ ) ; | ^~~~~~~~~~~ object.c: In function 'Primitive_Print': object.c:1034:17: warning: old-style function definition [-Wold-style-definition] 1034 | Public Integer Primitive_Print( o , m ) | ^~~~~~~~~~~~~~~ --- primitive.o --- | ^~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~ primitive.c:1580:21: note: in expansion of macro 'Push' 1580 | Push( Get_Property_List( Top(4) ) ); | ^~~~ steering.h:41:17: note: declared here 41 | Import void Error(); | ^~~~~ primitive.c: In function 'Gensym': primitive.c:1624:17: error: too many arguments to function 'Panic'; expected 0, have 1 1624 | Panic("Not enough memory to generate a name for gensym"); | ^~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ steering.h:44:17: note: declared here 44 | Import void Panic(); | ^~~~~ primitive.c:1637:9: error: too many arguments to function 'Make_Symbol'; expected 0, have 1 1637 | Make_Symbol(gen_name); | ^~~~~~~~~~~ ~~~~~~~~ object.h:213:14: note: declared here 213 | Import void Make_Symbol(); | ^~~~~~~~~~~ --- object.o --- object.c:1038:1: error: number of arguments doesn't match prototype 1038 | { | ^ object.h:450:17: error: prototype declaration 450 | Import Integer Primitive_Print(); | ^~~~~~~~~~~~~~~ object.c:1041:9: error: too many arguments to function 'Output'; expected 0, have 1 1041 | Output("< primitive: "); | ^~~~~~ ~~~~~~~~~~~~~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ object.c:1043:9: error: too many arguments to function 'Output'; expected 0, have 1 1043 | Output(Get_Primitive_Name(o)); | ^~~~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ object.c:1044:9: error: too many arguments to function 'Output'; expected 0, have 1 1044 | Output(" "); | ^~~~~~ ~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ --- primitive.o --- primitive.c: In function 'Call_CC': primitive.c:1648:17: error: too many arguments to function 'Display_Error'; expected 0, have 2 1648 | Display_Error("call/cc not given a function", Top(1)); | ^~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ steering.h:43:17: note: declared here 43 | Import void Display_Error(); | ^~~~~~~~~~~~~ architecture.h:62:34: error: too many arguments to function 'Error'; expected 0, have 1 62 | Error( "Argument Stack Overflow." );\ | ^~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~ primitive.c:1656:9: note: in expansion of macro 'Push' 1656 | Push(Function_Register); | ^~~~ steering.h:41:17: note: declared here 41 | Import void Error(); | ^~~~~ architecture.h:62:34: error: too many arguments to function 'Error'; expected 0, have 1 62 | Error( "Argument Stack Overflow." );\ --- object.o --- object.c:1047:17: error: too many arguments to function 'Print_Type'; expected 0, have 1 1047 | Print_Type(Get_Primitive_Argtypes(o,0)); | ^~~~~~~~~~ io.h:43:17: note: declared here 43 | Import void Print_Type(); | ^~~~~~~~~~ object.c:1048:17: error: too many arguments to function 'Output'; expected 0, have 1 1048 | Output( "... " ); | ^~~~~~ ~~~~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ object.c:1055:25: error: too many arguments to function 'Print_Type'; expected 0, have 1 1055 | Print_Type(Get_Primitive_Argtypes(o,this_type)); | ^~~~~~~~~~ io.h:43:17: note: declared here 43 | Import void Print_Type(); | ^~~~~~~~~~ object.c:1056:25: error: too many arguments to function 'Output'; expected 0, have 1 1056 | Output(" "); --- primitive.o --- | ^~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~ primitive.c:1658:9: note: in expansion of macro 'Push' 1658 | Push(Value_Register); /* Continuation as sole argument. */ | ^~~~ steering.h:41:17: note: declared here 41 | Import void Error(); | ^~~~~ architecture.h:62:34: error: too many arguments to function 'Error'; expected 0, have 1 62 | Error( "Argument Stack Overflow." );\ | ^~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~ primitive.c:1659:9: note: in expansion of macro 'Push' 1659 | Push(Nil); | ^~~~ steering.h:41:17: note: declared here 41 | Import void Error(); | ^~~~~ architecture.h:62:34: error: too many arguments to function 'Error'; expected 0, have 1 62 | Error( "Argument Stack Overflow." );\ | ^~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~ --- object.o --- | ^~~~~~ ~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ object.c:1060:9: error: too many arguments to function 'Output'; expected 0, have 1 1060 | Output(">"); | ^~~~~~ ~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ object.c: In function 'Primitive_GC': object.c:1064:15: warning: old-style function definition [-Wold-style-definition] 1064 | Public Object Primitive_GC(old) | ^~~~~~~~~~~~ object.c:1067:1: error: number of arguments doesn't match prototype 1067 | { | ^ object.h:451:24: error: prototype declaration 451 | struct Object_Struct *Primitive_GC(); | ^~~~~~~~~~~~ object.c:1068:22: error: too many arguments to function 'Move_Object'; expected 0, have 2 1068 | Object new = Move_Object(old, Primitive_Size(Get_Primitive_Numargs(old))); --- primitive.o --- primitive.c:1661:9: note: in expansion of macro 'Push' 1661 | Push(Value_Register); | ^~~~ steering.h:41:17: note: declared here 41 | Import void Error(); | ^~~~~ architecture.h:62:34: error: too many arguments to function 'Error'; expected 0, have 1 62 | Error( "Argument Stack Overflow." );\ | ^~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~ primitive.c:1668:9: note: in expansion of macro 'Push' 1668 | Push(Nil); /* To be popped off later by Call_Primitive(). */ | ^~~~ steering.h:41:17: note: declared here 41 | Import void Error(); | ^~~~~ primitive.c: In function 'Expand_Quoted_Defmacro_Call': primitive.c:1697:27: error: too many arguments to function 'First'; expected 0, have 1 1697 | if ( ! Is_Symbol( First( call ) ) ) | ^~~~~ ~~~~ object.h:96:23: note: in definition of macro 'Get_Type' --- object.o --- | ^~~~~~~~~~~ ~~~ architecture.h:95:15: note: declared here 95 | Import Object Move_Object(); | ^~~~~~~~~~~ object.c: In function 'Make_Continuation': object.c:1085:26: error: too many arguments to function 'Allocate'; expected 0, have 1 1085 | Value_Register = Allocate(Continuation_Size(Arg_Stack_Ptr)); | ^~~~~~~~ architecture.h:86:17: note: declared here 86 | Import Object Allocate(); | ^~~~~~~~ object.c: In function 'Continuation_Print': object.c:1099:17: warning: old-style function definition [-Wold-style-definition] 1099 | Public Integer Continuation_Print( o , m ) | ^~~~~~~~~~~~~~~~~~ object.c:1103:1: error: number of arguments doesn't match prototype 1103 | { | ^ object.h:480:17: error: prototype declaration 480 | Import Integer Continuation_Print(); | ^~~~~~~~~~~~~~~~~~ --- primitive.o --- 96 | #define Get_Type(o) ((o)->Common.Type) | ^ primitive.c:1697:16: note: in expansion of macro 'Is_Symbol' 1697 | if ( ! Is_Symbol( First( call ) ) ) | ^~~~~~~~~ object.h:150:31: note: declared here 150 | Import struct Object_Struct *First(); | ^~~~~ primitive.c:1701:33: error: too many arguments to function 'First'; expected 0, have 1 1701 | First( call ) ); | ^~~~~ ~~~~ object.h:150:31: note: declared here 150 | Import struct Object_Struct *First(); | ^~~~~ primitive.c:1699:17: error: too many arguments to function 'Display_Error'; expected 0, have 2 1699 | Display_Error( | ^~~~~~~~~~~~~ 1700 | "Non-defmacro name in call passed to expand-defmacro-call", | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ --- object.o --- object.c:1104:9: error: too many arguments to function 'Output'; expected 0, have 1 1104 | Output(""); | ^~~~~~ ~~~~~~~~~~~~~~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ object.c: In function 'Continuation_GC': object.c:1108:15: warning: old-style function definition [-Wold-style-definition] 1108 | Public Object Continuation_GC(old) | ^~~~~~~~~~~~~~~ object.c:1111:1: error: number of arguments doesn't match prototype 1111 | { | ^ object.h:481:24: error: prototype declaration 481 | struct Object_Struct *Continuation_GC(); | ^~~~~~~~~~~~~~~ object.c:1113:22: error: too many arguments to function 'Move_Object'; expected 0, have 2 1113 | Object new = Move_Object(old, | ^~~~~~~~~~~ ~~~ architecture.h:95:15: note: declared here 95 | Import Object Move_Object(); | ^~~~~~~~~~~ --- primitive.o --- steering.h:43:17: note: declared here 43 | Import void Display_Error(); | ^~~~~~~~~~~~~ primitive.c:1704:47: error: too many arguments to function 'First'; expected 0, have 1 1704 | Value_Register = Get_Global_Binding( First( call ) ); | ^~~~~ ~~~~ object.h:202:35: note: in definition of macro 'Get_Global_Binding' 202 | #define Get_Global_Binding(o) ((o)->Specific.Symbol.Global_Binding) | ^ object.h:150:31: note: declared here 150 | Import struct Object_Struct *First(); | ^~~~~ primitive.c:1710:33: error: too many arguments to function 'First'; expected 0, have 1 1710 | First( call ) ); | ^~~~~ ~~~~ object.h:150:31: note: declared here 150 | Import struct Object_Struct *First(); | ^~~~~ --- object.o --- object.c:1116:9: error: too many arguments to function 'Relocate'; expected 0, have 1 1116 | Relocate(&Get_Continuation_State(new)); | ^~~~~~~~ architecture.h:96:13: note: declared here 96 | Import void Relocate(); | ^~~~~~~~ object.c:1120:17: error: too many arguments to function 'Relocate'; expected 0, have 1 1120 | Relocate(&Get_Continuation_Stack_Elem(new,this_element)); | ^~~~~~~~ architecture.h:96:13: note: declared here 96 | Import void Relocate(); | ^~~~~~~~ object.c: In function 'Init_Port': object.c:1142:9: error: too many arguments to function 'Make_Port'; expected 0, have 3 1142 | Make_Port(TRUE, The_Standard_Input, "stdin"); | ^~~~~~~~~ object.h:523:17: note: declared here 523 | Import void Make_Port(); | ^~~~~~~~~ object.c:1145:9: error: too many arguments to function 'Make_Port'; expected 0, have 3 --- primitive.o --- primitive.c:1708:17: error: too many arguments to function 'Display_Error'; expected 0, have 2 1708 | Display_Error( | ^~~~~~~~~~~~~ 1709 | "Non-defmacro name in call passed to expand-defmacro-call", | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ steering.h:43:17: note: declared here 43 | Import void Display_Error(); | ^~~~~~~~~~~~~ architecture.h:62:34: error: too many arguments to function 'Error'; expected 0, have 1 62 | Error( "Argument Stack Overflow." );\ | ^~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~ primitive.c:1713:9: note: in expansion of macro 'Push' 1713 | Push( Get_Defmacro_Transformer( Value_Register ) ); | ^~~~ steering.h:41:17: note: declared here 41 | Import void Error(); | ^~~~~ --- object.o --- 1145 | Make_Port(FALSE, The_Standard_Output, "stdout"); | ^~~~~~~~~ object.h:523:17: note: declared here 523 | Import void Make_Port(); | ^~~~~~~~~ object.c:1148:9: error: too many arguments to function 'Make_Port'; expected 0, have 3 1148 | Make_Port(FALSE, The_Standard_Error, "stdout"); | ^~~~~~~~~ object.h:523:17: note: declared here 523 | Import void Make_Port(); | ^~~~~~~~~ object.c: In function 'Make_Port': object.c:1154:13: warning: old-style function definition [-Wold-style-definition] 1154 | Public void Make_Port(is_input, file, filename) | ^~~~~~~~~ object.c:1159:1: error: number of arguments doesn't match prototype 1159 | { | ^ object.h:523:17: error: prototype declaration 523 | Import void Make_Port(); | ^~~~~~~~~ object.c:1160:26: error: too many arguments to function 'Allocate'; expected 0, have 1 --- primitive.o --- primitive.c:1714:15: error: too many arguments to function 'Rest'; expected 0, have 1 1714 | Push( Rest( call ) ); /* Strip off the keyword from the call. */ | ^~~~ ~~~~ architecture.h:60:41: note: in definition of macro 'Push' 60 | #define Push(x) {Object Xxxx = (x);\ | ^ object.h:154:31: note: declared here 154 | Import struct Object_Struct *Rest(); | ^~~~ architecture.h:62:34: error: too many arguments to function 'Error'; expected 0, have 1 62 | Error( "Argument Stack Overflow." );\ | ^~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~ primitive.c:1714:9: note: in expansion of macro 'Push' 1714 | Push( Rest( call ) ); /* Strip off the keyword from the call. */ | ^~~~ steering.h:41:17: note: declared here 41 | Import void Error(); | ^~~~~ primitive.c: In function 'Edit': --- object.o --- 1160 | Value_Register = Allocate(Port_Size); | ^~~~~~~~ architecture.h:86:17: note: declared here 86 | Import Object Allocate(); | ^~~~~~~~ object.c:1163:41: error: too many arguments to function 'Copy_String'; expected 0, have 1 1163 | Get_Port_Name(Value_Register) = Copy_String(filename); | ^~~~~~~~~~~ ~~~~~~~~ object.c:730:15: note: declared here 730 | Public String Copy_String(str) | ^~~~~~~~~~~ object.c: In function 'Port_Print': object.c:1168:17: warning: old-style function definition [-Wold-style-definition] 1168 | Public Integer Port_Print( o, m ) | ^~~~~~~~~~ object.c:1172:1: error: number of arguments doesn't match prototype 1172 | { | ^ object.h:506:17: error: prototype declaration 506 | Import Integer Port_Print(); | ^~~~~~~~~~ --- primitive.o --- primitive.c:1744:49: error: too many arguments to function 'Copy_String'; expected 0, have 1 1744 | editor = (ed == NULL) ? "/usr/ucb/vi" : Copy_String( ed ); | ^~~~~~~~~~~ ~~ object.h:374:16: note: declared here 374 | Import String Copy_String(/* string */); | ^~~~~~~~~~~ primitive.c:1751:17: error: too many arguments to function 'Panic'; expected 0, have 1 1751 | Panic( | ^~~~~ steering.h:44:17: note: declared here 44 | Import void Panic(); | ^~~~~ primitive.c:1759:17: error: too many arguments to function 'Error1'; expected 0, have 2 1759 | Error1("Edit on %s didn't succeed; not reloading file", | ^~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ steering.h:42:17: note: declared here 42 | Import void Error1(); | ^~~~~~ primitive.c: In function 'Edit_Silent': --- object.o --- object.c:1175:17: error: too many arguments to function 'Output'; expected 0, have 1 1175 | Output(""); m += 2; | ^~~~~~ ~~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ object.c: In function 'Port_GC': object.c:1191:15: warning: old-style function definition [-Wold-style-definition] 1191 | Public Object Port_GC(old) | ^~~~~~~ object.c:1194:1: error: number of arguments doesn't match prototype 1194 | { | ^ object.h:507:24: error: prototype declaration 507 | struct Object_Struct *Port_GC(); | ^~~~~~~ object.c:1195:22: error: too many arguments to function 'Move_Object'; expected 0, have 2 1195 | Object new = Move_Object(old, Port_Size); | ^~~~~~~~~~~ ~~~ architecture.h:95:15: note: declared here 95 | Import Object Move_Object(); | ^~~~~~~~~~~ object.c: In function 'Init_Eof': --- primitive.o --- primitive.c:1805:9: error: too many arguments to function 'Integer_To_Number'; expected 0, have 1 1805 | Integer_To_Number( completion ); | ^~~~~~~~~~~~~~~~~ ~~~~~~~~~~ number.h:88:17: note: declared here 88 | Import void Integer_To_Number(/* Integer */); | ^~~~~~~~~~~~~~~~~ primitive.c: In function 'Time': primitive.c:1816:9: error: too many arguments to function 'Integer_To_Number'; expected 0, have 1 1816 | Integer_To_Number( secs ); | ^~~~~~~~~~~~~~~~~ ~~~~ number.h:88:17: note: declared here 88 | Import void Integer_To_Number(/* Integer */); | ^~~~~~~~~~~~~~~~~ primitive.c: In function 'Evaluate': primitive.c:1856:17: error: too many arguments to function 'Display_Error'; expected 0, have 2 1856 | Display_Error("eval expect at least one argument", | ^~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ steering.h:43:17: note: declared here --- object.o --- object.c:1211:26: error: too many arguments to function 'Allocate'; expected 0, have 1 1211 | The_Eof_Object = Allocate(Eof_Size); | ^~~~~~~~ architecture.h:86:17: note: declared here 86 | Import Object Allocate(); | ^~~~~~~~ object.c: In function 'Eof_Write': object.c:1217:17: warning: old-style function definition [-Wold-style-definition] 1217 | Public Integer Eof_Write( o, m ) | ^~~~~~~~~ object.c:1221:1: error: number of arguments doesn't match prototype 1221 | { | ^ object.h:534:17: error: prototype declaration 534 | Import Integer Eof_Write(), Eof_Display(); | ^~~~~~~~~ object.c:1222:9: error: too many arguments to function 'Output_Char'; expected 0, have 1 1222 | Output_Char('\004'); | ^~~~~~~~~~~ ~~~~~~ io.h:41:17: note: declared here 41 | Import void Output_Char(/* Character c */); | ^~~~~~~~~~~ --- primitive.o --- 43 | Import void Display_Error(); | ^~~~~~~~~~~~~ architecture.h:62:34: error: too many arguments to function 'Error'; expected 0, have 1 62 | Error( "Argument Stack Overflow." );\ | ^~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~ primitive.c:1861:16: note: in expansion of macro 'Push' 1861 | Push(Top(1)); | ^~~~ steering.h:41:17: note: declared here 41 | Import void Error(); | ^~~~~ primitive.c:1863:16: error: too many arguments to function 'Eval'; expected 0, have 2 1863 | Eval(Value_Register,Environment_Register); | ^~~~ ~~~~~~~~~~~~~~ In file included from primitive.c:38: eval.h:44:13: note: declared here 44 | Import void Eval(); | ^~~~ primitive.c:1868:21: error: too many arguments to function 'Display_Error'; expected 0, have 2 1868 | Display_Error( --- object.o --- object.c: In function 'Eof_Display': object.c:1226:17: warning: old-style function definition [-Wold-style-definition] 1226 | Public Integer Eof_Display( o , m ) | ^~~~~~~~~~~ object.c:1230:1: error: number of arguments doesn't match prototype 1230 | { | ^ object.h:534:30: error: prototype declaration 534 | Import Integer Eof_Write(), Eof_Display(); | ^~~~~~~~~~~ object.c:1231:9: error: too many arguments to function 'Output'; expected 0, have 1 1231 | Output(""); | ^~~~~~ ~~~~~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ object.c: In function 'Eof_GC': object.c:1235:17: warning: old-style function definition [-Wold-style-definition] 1235 | Public Object Eof_GC( old ) | ^~~~~~ object.c:1238:1: error: number of arguments doesn't match prototype 1238 | { | ^ object.h:535:24: error: prototype declaration --- primitive.o --- | ^~~~~~~~~~~~~ 1869 | "The second argument of eval isn't an environment" , | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ steering.h:43:17: note: declared here 43 | Import void Display_Error(); | ^~~~~~~~~~~~~ architecture.h:62:34: error: too many arguments to function 'Error'; expected 0, have 1 62 | Error( "Argument Stack Overflow." );\ | ^~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~ primitive.c:1874:25: note: in expansion of macro 'Push' 1874 | Push(Top(2)); | ^~~~ steering.h:41:17: note: declared here 41 | Import void Error(); | ^~~~~ primitive.c:1876:25: error: too many arguments to function 'Eval'; expected 0, have 2 1876 | Eval(Value_Register,Environment_Register); --- object.o --- 535 | struct Object_Struct *Eof_GC(); | ^~~~~~ object.c:1239:22: error: too many arguments to function 'Move_Object'; expected 0, have 2 1239 | Object new = Move_Object( old, Eof_Size ); | ^~~~~~~~~~~ ~~~ architecture.h:95:15: note: declared here 95 | Import Object Move_Object(); | ^~~~~~~~~~~ object.c: In function 'Make_Local_Variable': object.c:1252:13: warning: old-style function definition [-Wold-style-definition] 1252 | Public void Make_Local_Variable(symbol, frame, displacement) | ^~~~~~~~~~~~~~~~~~~ object.c:1257:1: error: number of arguments doesn't match prototype 1257 | { | ^ object.h:570:14: error: prototype declaration 570 | Import void Make_Local_Variable(); | ^~~~~~~~~~~~~~~~~~~ architecture.h:62:34: error: too many arguments to function 'Error'; expected 0, have 1 62 | Error( "Argument Stack Overflow." );\ --- primitive.o --- | ^~~~ ~~~~~~~~~~~~~~ eval.h:44:13: note: declared here 44 | Import void Eval(); | ^~~~ primitive.c:1881:15: error: too many arguments to function 'Display_Error'; expected 0, have 2 1881 | Display_Error("Too many arguments for eval",Expression_Register); | ^~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ steering.h:43:17: note: declared here 43 | Import void Display_Error(); | ^~~~~~~~~~~~~ primitive.c: In function 'Initialize_Primitive': primitive.c:1891:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 1891 | Make_Primitive("not", Not, 1, Any_Type, The_Undefined_Type, | ^~~~~~~~~~~~~~ ~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:1894:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 --- object.o --- | ^~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~ object.c:1258:9: note: in expansion of macro 'Push' 1258 | Push( symbol ); | ^~~~ steering.h:41:17: note: declared here 41 | Import void Error(); | ^~~~~ object.c:1260:26: error: too many arguments to function 'Allocate'; expected 0, have 1 1260 | Value_Register = Allocate(Variable_Size); | ^~~~~~~~ architecture.h:86:17: note: declared here 86 | Import Object Allocate(); | ^~~~~~~~ object.c:1263:17: error: too many arguments to function 'Panic'; expected 0, have 1 1263 | Panic("Expected a symbol in Make_Variable_Local"); | ^~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ steering.h:44:17: note: declared here 44 | Import void Panic(); | ^~~~~ object.c: In function 'Make_Global_Variable': --- primitive.o --- 1894 | Make_Primitive("boolean?", Boolean_Predicate, 1, Any_Type, | ^~~~~~~~~~~~~~ ~~~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:1897:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 1897 | Make_Primitive("eqv?", Eqv, 2, Any_Type, Any_Type, The_Undefined_Type); | ^~~~~~~~~~~~~~ ~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:1898:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 1898 | Make_Primitive("eq?", Eq, 2, Any_Type, Any_Type, The_Undefined_Type); | ^~~~~~~~~~~~~~ ~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:1899:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 --- object.o --- object.c:1276:13: warning: old-style function definition [-Wold-style-definition] 1276 | Public void Make_Global_Variable( symbol ) | ^~~~~~~~~~~~~~~~~~~~ object.c:1279:1: error: number of arguments doesn't match prototype 1279 | { | ^ object.h:569:14: error: prototype declaration 569 | Import void Make_Global_Variable(); | ^~~~~~~~~~~~~~~~~~~~ architecture.h:62:34: error: too many arguments to function 'Error'; expected 0, have 1 62 | Error( "Argument Stack Overflow." );\ | ^~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~ object.c:1280:9: note: in expansion of macro 'Push' 1280 | Push( symbol ); | ^~~~ steering.h:41:17: note: declared here 41 | Import void Error(); | ^~~~~ object.c:1282:26: error: too many arguments to function 'Allocate'; expected 0, have 1 1282 | Value_Register = Allocate(Variable_Size); --- primitive.o --- 1899 | Make_Primitive("equal?", Equal, 2, Any_Type, Any_Type, | ^~~~~~~~~~~~~~ ~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:1902:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 1902 | Make_Primitive("pair?", Pair_Predicate, 1, Any_Type, The_Undefined_Type, | ^~~~~~~~~~~~~~ ~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:1905:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 1905 | Make_Primitive("cons", Cons, 2, Any_Type, Any_Type, The_Undefined_Type); | ^~~~~~~~~~~~~~ ~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:1907:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 --- object.o --- | ^~~~~~~~ architecture.h:86:17: note: declared here 86 | Import Object Allocate(); | ^~~~~~~~ object.c:1285:17: error: too many arguments to function 'Panic'; expected 0, have 1 1285 | Panic("Expected a symbol in Make_Variable_Global"); | ^~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ steering.h:44:17: note: declared here 44 | Import void Panic(); | ^~~~~ object.c: In function 'Variable_Print': object.c:1294:17: warning: old-style function definition [-Wold-style-definition] 1294 | Public Integer Variable_Print( o, m ) | ^~~~~~~~~~~~~~ object.c:1298:1: error: number of arguments doesn't match prototype 1298 | { | ^ object.h:556:17: error: prototype declaration 556 | Import Integer Variable_Print(); | ^~~~~~~~~~~~~~ object.c:1299:17: error: too many arguments to function 'Symbol_Print'; expected 0, have 2 --- primitive.o --- 1907 | Make_Primitive("car", Car, 1, Pair_Type, The_Undefined_Type, | ^~~~~~~~~~~~~~ ~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:1910:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 1910 | Make_Primitive("cdr", Cdr, 1, Pair_Type, The_Undefined_Type, | ^~~~~~~~~~~~~~ ~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:1913:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 1913 | Make_Primitive("set-car!", Set_Car, 2, Pair_Type, Any_Type, | ^~~~~~~~~~~~~~ ~~~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:1916:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 --- object.o --- 1299 | return( Symbol_Print( Get_Variable_Symbol(o), m ) ); | ^~~~~~~~~~~~ object.c:436:17: note: declared here 436 | Public Integer Symbol_Print( o , m ) /* Assumes no nulls in name */ | ^~~~~~~~~~~~ object.c: In function 'Variable_GC': object.c:1302:15: warning: old-style function definition [-Wold-style-definition] 1302 | Public Object Variable_GC(old) | ^~~~~~~~~~~ object.c:1305:1: error: number of arguments doesn't match prototype 1305 | { | ^ object.h:557:24: error: prototype declaration 557 | struct Object_Struct *Variable_GC(); | ^~~~~~~~~~~ object.c:1306:22: error: too many arguments to function 'Move_Object'; expected 0, have 2 1306 | Object new = Move_Object(old, Variable_Size); | ^~~~~~~~~~~ ~~~ architecture.h:95:15: note: declared here 95 | Import Object Move_Object(); | ^~~~~~~~~~~ --- primitive.o --- 1916 | Make_Primitive("set-cdr!", Set_Cdr, 2, Pair_Type, Any_Type, | ^~~~~~~~~~~~~~ ~~~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:1919:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 1919 | Make_Primitive("null?", Empty_List_Predicate, 1, Any_Type, | ^~~~~~~~~~~~~~ ~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:1923:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 1923 | Make_Primitive("length", Get_Pair_Length, 1, Any_Type, | ^~~~~~~~~~~~~~ ~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:1926:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 --- object.o --- object.c:1308:9: error: too many arguments to function 'Relocate'; expected 0, have 1 1308 | Relocate(&Get_Variable_Symbol(new)); | ^~~~~~~~ architecture.h:96:13: note: declared here 96 | Import void Relocate(); | ^~~~~~~~ object.c: In function 'Make_Apply': object.c:1323:26: error: too many arguments to function 'Allocate'; expected 0, have 1 1323 | Value_Register = Allocate(Apply_Size); | ^~~~~~~~ architecture.h:86:17: note: declared here 86 | Import Object Allocate(); | ^~~~~~~~ object.c:1324:45: error: too many arguments to function 'Length'; expected 0, have 1 1324 | Get_Apply_Numargs(Value_Register) = Length(Top(1)); | ^~~~~~ object.c:215:9: note: declared here 215 | Integer Length(list) | ^~~~~~ object.c: In function 'Apply_Print': object.c:1332:17: warning: old-style function definition [-Wold-style-definition] --- primitive.o --- 1926 | Make_Primitive("append", Append, VARYING, Any_Type, The_Undefined_Type, | ^~~~~~~~~~~~~~ ~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:1929:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 1929 | Make_Primitive("reverse", Reverse, 1, Any_Type, The_Undefined_Type, | ^~~~~~~~~~~~~~ ~~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:1932:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 1932 | Make_Primitive("list-tail",List_Tail ,2 ,Any_Type, Number_Type, | ^~~~~~~~~~~~~~ ~~~~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:1935:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 --- object.o --- 1332 | Public Integer Apply_Print( o , m ) | ^~~~~~~~~~~ object.c:1336:1: error: number of arguments doesn't match prototype 1336 | { | ^ object.h:583:17: error: prototype declaration 583 | Import Integer Apply_Print(); | ^~~~~~~~~~~ object.c:1337:9: error: too many arguments to function 'Output'; expected 0, have 1 1337 | Output("("); m += 1; | ^~~~~~ ~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ object.h:102:46: error: too many arguments to function 'o->Specific.Apply.Operator->Common.Type->Write'; expected 0, have 2 102 | #define Write_Object(o,m) ((Get_Type(o)->Write)(o,m)) | ~~~~~~~~~~~~^~~~~~~~ object.c:1339:13: note: in expansion of macro 'Write_Object' 1339 | m = Write_Object( Get_Apply_Operator(o), m ); | ^~~~~~~~~~~~ object.h:74:19: note: declared here --- primitive.o --- 1935 | Make_Primitive("list-ref",List_Ref ,2 ,Any_Type, Number_Type, | ^~~~~~~~~~~~~~ ~~~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:1938:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 1938 | Make_Primitive("symbol?", Symbol_Predicate, 1, Any_Type, | ^~~~~~~~~~~~~~ ~~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:1941:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 1941 | Make_Primitive("symbol->string", Symbol_To_String, 1, Symbol_Type, | ^~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:1944:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 --- object.o --- 74 | Integer (*Write)(); | ^~~~~ object.c:1345:17: error: too many arguments to function 'Output'; expected 0, have 1 1345 | Output( " " ); m += 1; | ^~~~~~ ~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ object.h:102:46: error: too many arguments to function 'o->Specific.Pair.Car->Common.Type->Write'; expected 0, have 2 102 | #define Write_Object(o,m) ((Get_Type(o)->Write)(o,m)) | ~~~~~~~~~~~~^~~~~~~~ object.c:1346:21: note: in expansion of macro 'Write_Object' 1346 | m = Write_Object( Get_Pair_Car( o ) , m ); | ^~~~~~~~~~~~ object.h:74:19: note: declared here 74 | Integer (*Write)(); | ^~~~~ object.c:1349:9: error: too many arguments to function 'Output'; expected 0, have 1 1349 | Output( ")" ); m += 1; | ^~~~~~ ~~~ --- primitive.o --- 1944 | Make_Primitive("string->symbol", String_To_Symbol, 1, String_Type, | ^~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:1947:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 1947 | Make_Primitive("char?", Character_Predicate, 1, Any_Type, | ^~~~~~~~~~~~~~ ~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:1950:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 1950 | Make_Primitive("char=?", Character_Equal, 2, Character_Type, | ^~~~~~~~~~~~~~ ~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:1953:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 --- object.o --- io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ object.c: In function 'Apply_GC': object.c:1354:15: warning: old-style function definition [-Wold-style-definition] 1354 | Public Object Apply_GC(old) | ^~~~~~~~ object.c:1357:1: error: number of arguments doesn't match prototype 1357 | { | ^ object.h:584:24: error: prototype declaration 584 | struct Object_Struct *Apply_GC(); | ^~~~~~~~ object.c:1358:22: error: too many arguments to function 'Move_Object'; expected 0, have 2 1358 | Object new = Move_Object(old, Apply_Size); | ^~~~~~~~~~~ ~~~ architecture.h:95:15: note: declared here 95 | Import Object Move_Object(); | ^~~~~~~~~~~ object.c:1360:9: error: too many arguments to function 'Relocate'; expected 0, have 1 1360 | Relocate(&Get_Apply_Operator(new)); | ^~~~~~~~ architecture.h:96:13: note: declared here --- primitive.o --- 1953 | Make_Primitive("char?", Character_Greater, 2, Character_Type, | ^~~~~~~~~~~~~~ ~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:1959:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 1959 | Make_Primitive("char<=?", Character_Less_Or_Equal, 2, Character_Type, | ^~~~~~~~~~~~~~ ~~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:1962:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 --- object.o --- 96 | Import void Relocate(); | ^~~~~~~~ object.c:1361:9: error: too many arguments to function 'Relocate'; expected 0, have 1 1361 | Relocate(&Get_Apply_Arguments(new)); | ^~~~~~~~ architecture.h:96:13: note: declared here 96 | Import void Relocate(); | ^~~~~~~~ object.c: In function 'Make_Lambda': object.c:1387:26: error: too many arguments to function 'Allocate'; expected 0, have 1 1387 | Value_Register = Allocate(Lambda_Size); | ^~~~~~~~ architecture.h:86:17: note: declared here 86 | Import Object Allocate(); | ^~~~~~~~ object.c: In function 'Lambda_Print': object.c:1402:17: warning: old-style function definition [-Wold-style-definition] 1402 | Public Integer Lambda_Print( o, m ) | ^~~~~~~~~~~~ object.c:1406:1: error: number of arguments doesn't match prototype 1406 | { | ^ object.h:609:17: error: prototype declaration --- primitive.o --- 1962 | Make_Primitive("char>=?", Character_Greater_Or_Equal, 2, Character_Type, | ^~~~~~~~~~~~~~ ~~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:1965:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 1965 | Make_Primitive("char-ci=?", Character_CI_Equal, 2, Character_Type, | ^~~~~~~~~~~~~~ ~~~~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:1968:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 1968 | Make_Primitive("char-ciSpecific.Lambda.Body->Common.Type->Write'; expected 0, have 2 102 | #define Write_Object(o,m) ((Get_Type(o)->Write)(o,m)) | ~~~~~~~~~~~~^~~~~~~~ object.c:1412:13: note: in expansion of macro 'Write_Object' --- primitive.o --- 1971 | Make_Primitive("char-ci>?", Character_CI_Greater, 2, Character_Type, | ^~~~~~~~~~~~~~ ~~~~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:1974:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 1974 | Make_Primitive("char-ci<=?", Character_CI_Less_Or_Equal, 2, | ^~~~~~~~~~~~~~ ~~~~~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:1977:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 1977 | Make_Primitive("char-ci>=?", Character_CI_Greater_Or_Equal, 2, | ^~~~~~~~~~~~~~ ~~~~~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:1980:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 --- object.o --- 1412 | m = Write_Object( Get_Lambda_Body(o) , in_m ); /* Prints closing `)' */ | ^~~~~~~~~~~~ object.h:74:19: note: declared here 74 | Integer (*Write)(); | ^~~~~ object.c: In function 'Lambda_GC': object.c:1417:15: warning: old-style function definition [-Wold-style-definition] 1417 | Public Object Lambda_GC(old) | ^~~~~~~~~ object.c:1420:1: error: number of arguments doesn't match prototype 1420 | { | ^ object.h:610:24: error: prototype declaration 610 | struct Object_Struct *Lambda_GC(); | ^~~~~~~~~ object.c:1421:22: error: too many arguments to function 'Move_Object'; expected 0, have 2 1421 | Object new = Move_Object(old, Lambda_Size); | ^~~~~~~~~~~ ~~~ architecture.h:95:15: note: declared here 95 | Import Object Move_Object(); | ^~~~~~~~~~~ object.c:1423:9: error: too many arguments to function 'Relocate'; expected 0, have 1 --- primitive.o --- 1980 | Make_Primitive("char-alphabetic?", Character_Alpha, 1, Character_Type, | ^~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:1983:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 1983 | Make_Primitive("char-numeric?", Character_Numeric, 1, Character_Type, | ^~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:1986:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 1986 | Make_Primitive("char-whitespace?", Character_WhiteSpace, 1, | ^~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:1989:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 --- object.o --- 1423 | Relocate(&Get_Lambda_Frame(new)); | ^~~~~~~~ architecture.h:96:13: note: declared here 96 | Import void Relocate(); | ^~~~~~~~ object.c:1424:9: error: too many arguments to function 'Relocate'; expected 0, have 1 1424 | Relocate(&Get_Lambda_Body(new)); | ^~~~~~~~ architecture.h:96:13: note: declared here 96 | Import void Relocate(); | ^~~~~~~~ object.c: In function 'Make_Conditional': object.c:1442:26: error: too many arguments to function 'Allocate'; expected 0, have 1 1442 | Value_Register = Allocate(Conditional_Size); | ^~~~~~~~ architecture.h:86:17: note: declared here 86 | Import Object Allocate(); | ^~~~~~~~ object.c: In function 'Conditional_Print': object.c:1451:17: warning: old-style function definition [-Wold-style-definition] 1451 | Public Integer Conditional_Print( o , m ) | ^~~~~~~~~~~~~~~~~ --- primitive.o --- 1989 | Make_Primitive("char-upper-case?", Character_Upper_Case, 1, | ^~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:1992:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 1992 | Make_Primitive("char-lower-case?", Character_Lower_Case, 1, | ^~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:1995:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 1995 | Make_Primitive("char->integer",Character_To_Integer, 1 , | ^~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:1998:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 --- object.o --- object.c:1455:1: error: number of arguments doesn't match prototype 1455 | { | ^ object.h:635:17: error: prototype declaration 635 | Import Integer Conditional_Print(), Conditional_Show(); | ^~~~~~~~~~~~~~~~~ object.c:1458:9: error: too many arguments to function 'Output'; expected 0, have 1 1458 | Output("(if "); m += 4; | ^~~~~~ ~~~~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ object.h:102:46: error: too many arguments to function 'o->Specific.Conditional.Condition->Common.Type->Write'; expected 0, have 2 102 | #define Write_Object(o,m) ((Get_Type(o)->Write)(o,m)) | ~~~~~~~~~~~~^~~~~~~~ object.c:1460:13: note: in expansion of macro 'Write_Object' 1460 | m = Write_Object( Get_Conditional_Test(o) , m ); | ^~~~~~~~~~~~ object.h:74:19: note: declared here 74 | Integer (*Write)(); --- primitive.o --- 1998 | Make_Primitive("integer->char",Integer_To_Character ,1 , | ^~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:2002:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 2002 | Make_Primitive("char-upcase", Character_To_Upper_Case, 1, | ^~~~~~~~~~~~~~ ~~~~~~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:2006:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 2006 | Make_Primitive("char-downcase", Character_To_Lower_Case, 1, | ^~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:2010:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 --- object.o --- | ^~~~~ object.c:1462:13: error: too many arguments to function 'New_Left_Margin'; expected 0, have 1 1462 | m = New_Left_Margin( in_m + INDENT ); | ^~~~~~~~~~~~~~~ io.h:42:17: note: declared here 42 | Import Integer New_Left_Margin( /* Integer margin */ ); | ^~~~~~~~~~~~~~~ object.h:102:46: error: too many arguments to function 'o->Specific.Conditional.Consequent->Common.Type->Write'; expected 0, have 2 102 | #define Write_Object(o,m) ((Get_Type(o)->Write)(o,m)) | ~~~~~~~~~~~~^~~~~~~~ object.c:1463:13: note: in expansion of macro 'Write_Object' 1463 | m = Write_Object( Get_Conditional_Consequent(o), m ); | ^~~~~~~~~~~~ object.h:74:19: note: declared here 74 | Integer (*Write)(); | ^~~~~ object.c:1465:13: error: too many arguments to function 'New_Left_Margin'; expected 0, have 1 --- primitive.o --- 2010 | Make_Primitive("string?", String_Predicate, 1, Any_Type, | ^~~~~~~~~~~~~~ ~~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:2013:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 2013 | Make_Primitive ("#_make-string", MakeString, 2, Number_Type, | ^~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:2016:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 2016 | Make_Primitive("string-null?", Is_String_Null, 1, String_Type, | ^~~~~~~~~~~~~~ ~~~~~~~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:2019:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 --- object.o --- 1465 | m = New_Left_Margin( in_m + INDENT ); | ^~~~~~~~~~~~~~~ io.h:42:17: note: declared here 42 | Import Integer New_Left_Margin( /* Integer margin */ ); | ^~~~~~~~~~~~~~~ object.h:102:46: error: too many arguments to function 'o->Specific.Conditional.Alternate->Common.Type->Write'; expected 0, have 2 102 | #define Write_Object(o,m) ((Get_Type(o)->Write)(o,m)) | ~~~~~~~~~~~~^~~~~~~~ object.c:1466:13: note: in expansion of macro 'Write_Object' 1466 | m = Write_Object( Get_Conditional_Alternate(o) , m ); | ^~~~~~~~~~~~ object.h:74:19: note: declared here 74 | Integer (*Write)(); | ^~~~~ object.c:1468:9: error: too many arguments to function 'Output'; expected 0, have 1 1468 | Output(")"); m += 1; | ^~~~~~ ~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ --- primitive.o --- 2019 | Make_Primitive("string-length", String_Length, 1, String_Type, | ^~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:2022:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 2022 | Make_Primitive("string-ref", String_Ref, 2, String_Type, Number_Type, | ^~~~~~~~~~~~~~ ~~~~~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:2025:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 2025 | Make_Primitive ("string-set!", String_Set, 3, String_Type, Number_Type, | ^~~~~~~~~~~~~~ ~~~~~~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:2028:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 --- object.o --- object.c: In function 'Conditional_GC': object.c:1473:15: warning: old-style function definition [-Wold-style-definition] 1473 | Public Object Conditional_GC(old) | ^~~~~~~~~~~~~~ object.c:1476:1: error: number of arguments doesn't match prototype 1476 | { | ^ object.h:636:24: error: prototype declaration 636 | struct Object_Struct *Conditional_GC(); | ^~~~~~~~~~~~~~ object.c:1477:22: error: too many arguments to function 'Move_Object'; expected 0, have 2 1477 | Object new = Move_Object(old, Conditional_Size); | ^~~~~~~~~~~ ~~~ architecture.h:95:15: note: declared here 95 | Import Object Move_Object(); | ^~~~~~~~~~~ object.c:1479:9: error: too many arguments to function 'Relocate'; expected 0, have 1 1479 | Relocate(&Get_Conditional_Test(new)); | ^~~~~~~~ architecture.h:96:13: note: declared here 96 | Import void Relocate(); | ^~~~~~~~ --- primitive.o --- 2028 | Make_Primitive("string=?", String_Equal, 2, String_Type, String_Type, | ^~~~~~~~~~~~~~ ~~~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:2031:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 2031 | Make_Primitive("string-ci=?", String_Equal_Case_Independent, 2, | ^~~~~~~~~~~~~~ ~~~~~~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:2034:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 2034 | Make_Primitive("string?", String_Greater, 2, String_Type, String_Type, | ^~~~~~~~~~~~~~ ~~~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:2040:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 2040 | Make_Primitive("string<=?", String_Less_Or_Equal, 2, String_Type, | ^~~~~~~~~~~~~~ ~~~~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:2043:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 2043 | Make_Primitive("string>=?", String_Greater_Or_Equal, 2, String_Type, | ^~~~~~~~~~~~~~ ~~~~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:2046:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 --- object.o --- 1506 | Public Integer Assignment_Print( o, m ) | ^~~~~~~~~~~~~~~~ object.c:1510:1: error: number of arguments doesn't match prototype 1510 | { | ^ object.h:659:17: error: prototype declaration 659 | Import Integer Assignment_Print(); | ^~~~~~~~~~~~~~~~ object.c:1511:9: error: too many arguments to function 'Output'; expected 0, have 1 1511 | Output( "(set! " ); m += 6; | ^~~~~~ ~~~~~~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ object.h:102:46: error: too many arguments to function 'o->Specific.Assignment.Lvalue->Common.Type->Write'; expected 0, have 2 102 | #define Write_Object(o,m) ((Get_Type(o)->Write)(o,m)) | ~~~~~~~~~~~~^~~~~~~~ object.c:1513:13: note: in expansion of macro 'Write_Object' 1513 | m = Write_Object( Get_Assignment_Lvalue(o), m ); | ^~~~~~~~~~~~ --- primitive.o --- 2046 | Make_Primitive("string-ci?", String_Greater_Case_Independent, 2, | ^~~~~~~~~~~~~~ ~~~~~~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:2052:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 2052 | Make_Primitive("string-ci<=?", String_Less_Or_Equal_Case_Independent, | ^~~~~~~~~~~~~~ ~~~~~~~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:2055:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 --- object.o --- object.h:74:19: note: declared here 74 | Integer (*Write)(); | ^~~~~ object.c:1515:9: error: too many arguments to function 'Output'; expected 0, have 1 1515 | Output(" "); m += 1; | ^~~~~~ ~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ object.h:102:46: error: too many arguments to function 'o->Specific.Assignment.Rvalue->Common.Type->Write'; expected 0, have 2 102 | #define Write_Object(o,m) ((Get_Type(o)->Write)(o,m)) | ~~~~~~~~~~~~^~~~~~~~ object.c:1517:13: note: in expansion of macro 'Write_Object' 1517 | m = Write_Object( Get_Assignment_Rvalue(o) , m ); | ^~~~~~~~~~~~ object.h:74:19: note: declared here 74 | Integer (*Write)(); | ^~~~~ object.c:1519:9: error: too many arguments to function 'Output'; expected 0, have 1 1519 | Output( ")" ); m += 1; --- primitive.o --- 2055 | Make_Primitive("string-ci>=?", String_Greater_Or_Equal_Case_Independent | ^~~~~~~~~~~~~~ ~~~~~~~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:2058:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 2058 | Make_Primitive("substring", Substring, 3, String_Type, Number_Type, | ^~~~~~~~~~~~~~ ~~~~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:2061:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 2061 | Make_Primitive("string-append", Scheme_String_Append, VARYING, | ^~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:2064:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 --- object.o --- | ^~~~~~ ~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ object.c: In function 'Assignment_GC': object.c:1523:15: warning: old-style function definition [-Wold-style-definition] 1523 | Public Object Assignment_GC(old) | ^~~~~~~~~~~~~ object.c:1526:1: error: number of arguments doesn't match prototype 1526 | { | ^ object.h:660:24: error: prototype declaration 660 | struct Object_Struct *Assignment_GC(); | ^~~~~~~~~~~~~ object.c:1527:22: error: too many arguments to function 'Move_Object'; expected 0, have 2 1527 | Object new = Move_Object(old, Assignment_Size); | ^~~~~~~~~~~ ~~~ architecture.h:95:15: note: declared here 95 | Import Object Move_Object(); | ^~~~~~~~~~~ object.c:1529:9: error: too many arguments to function 'Relocate'; expected 0, have 1 1529 | Relocate(&Get_Assignment_Lvalue(new)); --- primitive.o --- 2064 | Make_Primitive("string->list", String_To_List, 1, String_Type, | ^~~~~~~~~~~~~~ ~~~~~~~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:2067:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 2067 | Make_Primitive("list->string", List_To_String, 1, Any_Type, | ^~~~~~~~~~~~~~ ~~~~~~~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:2070:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 2070 | Make_Primitive("string-copy", String_Copy, 1, String_Type, | ^~~~~~~~~~~~~~ ~~~~~~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:2073:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 --- object.o --- | ^~~~~~~~ architecture.h:96:13: note: declared here 96 | Import void Relocate(); | ^~~~~~~~ object.c:1530:9: error: too many arguments to function 'Relocate'; expected 0, have 1 1530 | Relocate(&Get_Assignment_Rvalue(new)); | ^~~~~~~~ architecture.h:96:13: note: declared here 96 | Import void Relocate(); | ^~~~~~~~ object.c: In function 'Make_Definition': object.c:1547:26: error: too many arguments to function 'Allocate'; expected 0, have 1 1547 | Value_Register = Allocate(Definition_Size); | ^~~~~~~~ architecture.h:86:17: note: declared here 86 | Import Object Allocate(); | ^~~~~~~~ object.c: In function 'Definition_Print': object.c:1555:17: warning: old-style function definition [-Wold-style-definition] 1555 | Public Integer Definition_Print( o , m ) | ^~~~~~~~~~~~~~~~ object.c:1559:1: error: number of arguments doesn't match prototype --- primitive.o --- 2073 | Make_Primitive("string-fill!", String_Fill, 2, String_Type, | ^~~~~~~~~~~~~~ ~~~~~~~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:2076:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 2076 | Make_Primitive("vector?", Vector_Predicate, 1, Any_Type, | ^~~~~~~~~~~~~~ ~~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:2079:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 2079 | Make_Primitive("#_make-vector", Scheme_Make_Vector, 2, Number_Type, | ^~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:2082:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 --- object.o --- 1559 | { | ^ object.h:682:17: error: prototype declaration 682 | Import Integer Definition_Print(); | ^~~~~~~~~~~~~~~~ object.c:1560:9: error: too many arguments to function 'Output'; expected 0, have 1 1560 | Output( "(define " ); m += 8; | ^~~~~~ ~~~~~~~~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ object.h:102:46: error: too many arguments to function 'o->Specific.Definition.Lvalue->Common.Type->Write'; expected 0, have 2 102 | #define Write_Object(o,m) ((Get_Type(o)->Write)(o,m)) | ~~~~~~~~~~~~^~~~~~~~ object.c:1562:13: note: in expansion of macro 'Write_Object' 1562 | m = Write_Object( Get_Definition_Lvalue( o ) , m ); | ^~~~~~~~~~~~ object.h:74:19: note: declared here 74 | Integer (*Write)(); | ^~~~~ --- primitive.o --- 2082 | Make_Primitive("vector-length", Vector_Length, 1, Vector_Type, | ^~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:2085:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 2085 | Make_Primitive("vector-ref", Vector_Ref, 2, Vector_Type, Number_Type, | ^~~~~~~~~~~~~~ ~~~~~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:2088:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 2088 | Make_Primitive("vector-set!", Vector_Set, 3, Vector_Type, Number_Type, | ^~~~~~~~~~~~~~ ~~~~~~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:2091:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 --- object.o --- object.c:1564:9: error: too many arguments to function 'Output'; expected 0, have 1 1564 | Output( " " ); m += 1; | ^~~~~~ ~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ object.h:102:46: error: too many arguments to function 'o->Specific.Definition.Rvalue->Common.Type->Write'; expected 0, have 2 102 | #define Write_Object(o,m) ((Get_Type(o)->Write)(o,m)) | ~~~~~~~~~~~~^~~~~~~~ object.c:1566:13: note: in expansion of macro 'Write_Object' 1566 | m = Write_Object( Get_Definition_Rvalue( o ) , m ); | ^~~~~~~~~~~~ object.h:74:19: note: declared here 74 | Integer (*Write)(); | ^~~~~ object.c:1568:9: error: too many arguments to function 'Output'; expected 0, have 1 1568 | Output( ")" ); m += 1; | ^~~~~~ ~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); --- primitive.o --- 2091 | Make_Primitive("vector->list", Vector_To_List, 1, Vector_Type, | ^~~~~~~~~~~~~~ ~~~~~~~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:2094:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 2094 | Make_Primitive("list->vector", List_To_Vector, 1, Any_Type, | ^~~~~~~~~~~~~~ ~~~~~~~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:2097:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 2097 | Make_Primitive("vector-fill!", Vector_Fill, 2, Vector_Type, | ^~~~~~~~~~~~~~ ~~~~~~~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:2100:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 --- object.o --- | ^~~~~~ object.c: In function 'Definition_GC': object.c:1572:15: warning: old-style function definition [-Wold-style-definition] 1572 | Public Object Definition_GC(old) | ^~~~~~~~~~~~~ object.c:1575:1: error: number of arguments doesn't match prototype 1575 | { | ^ object.h:683:24: error: prototype declaration 683 | struct Object_Struct *Definition_GC(); | ^~~~~~~~~~~~~ object.c:1576:22: error: too many arguments to function 'Move_Object'; expected 0, have 2 1576 | Object new = Move_Object(old, Definition_Size); | ^~~~~~~~~~~ ~~~ architecture.h:95:15: note: declared here 95 | Import Object Move_Object(); | ^~~~~~~~~~~ object.c:1578:9: error: too many arguments to function 'Relocate'; expected 0, have 1 1578 | Relocate(&Get_Definition_Lvalue(new)); | ^~~~~~~~ architecture.h:96:13: note: declared here 96 | Import void Relocate(); --- primitive.o --- 2100 | Make_Primitive("procedure?", Procedure_Predicate, 1, Any_Type, | ^~~~~~~~~~~~~~ ~~~~~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:2105:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 2105 | Make_Primitive("#_apply", Apply, 2, Any_Type, Any_Type, | ^~~~~~~~~~~~~~ ~~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:2108:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 2108 | Make_Primitive("force", Force, 1, Any_Type, The_Undefined_Type, | ^~~~~~~~~~~~~~ ~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:2111:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 --- object.o --- | ^~~~~~~~ object.c:1579:9: error: too many arguments to function 'Relocate'; expected 0, have 1 1579 | Relocate(&Get_Definition_Rvalue(new)); | ^~~~~~~~ architecture.h:96:13: note: declared here 96 | Import void Relocate(); | ^~~~~~~~ object.c: In function 'Make_Defmacro': object.c:1594:26: error: too many arguments to function 'Allocate'; expected 0, have 1 1594 | Value_Register = Allocate(Defmacro_Size); | ^~~~~~~~ architecture.h:86:17: note: declared here 86 | Import Object Allocate(); | ^~~~~~~~ object.c: In function 'Defmacro_Print': object.c:1602:17: warning: old-style function definition [-Wold-style-definition] 1602 | Public Integer Defmacro_Print( o , m ) | ^~~~~~~~~~~~~~ object.c:1606:1: error: number of arguments doesn't match prototype 1606 | { | ^ object.h:704:17: error: prototype declaration --- primitive.o --- 2111 | Make_Primitive("call-with-current-continuation", Call_CC, 1, Any_Type, | ^~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:2114:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 2114 | Make_Primitive("input-port?", Input_Port_Predicate, 1, Any_Type, | ^~~~~~~~~~~~~~ ~~~~~~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:2117:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 2117 | Make_Primitive("output-port?", Output_Port_Predicate, 1, Any_Type, | ^~~~~~~~~~~~~~ ~~~~~~~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ --- object.o --- 704 | Import Integer Defmacro_Print(), Defmacro_Show(); | ^~~~~~~~~~~~~~ object.c:1609:9: error: too many arguments to function 'Output'; expected 0, have 1 1609 | Output( "(defmacro " ); m += 7; | ^~~~~~ ~~~~~~~~~~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ object.h:102:46: error: too many arguments to function 'o->Specific.Defmacro.Keyword->Common.Type->Write'; expected 0, have 2 102 | #define Write_Object(o,m) ((Get_Type(o)->Write)(o,m)) | ~~~~~~~~~~~~^~~~~~~~ object.c:1611:13: note: in expansion of macro 'Write_Object' 1611 | m = Write_Object( Get_Defmacro_Keyword( o ) , m ); | ^~~~~~~~~~~~ object.h:74:19: note: declared here 74 | Integer (*Write)(); | ^~~~~ object.c:1615:21: error: too many arguments to function 'New_Left_Margin'; expected 0, have 1 --- primitive.o --- primitive.c:2120:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 2120 | Make_Primitive("current-input-port", Get_Current_Input_Port, 0, | ^~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:2123:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 2123 | Make_Primitive("current-output-port", Get_Current_Output_Port, 0, | ^~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:2126:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 2126 | Make_Primitive("set-current-input-port!" , Set_Current_Input, 1 , | ^~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); --- object.o --- 1615 | m = New_Left_Margin( in_m + INDENT ); | ^~~~~~~~~~~~~~~ io.h:42:17: note: declared here 42 | Import Integer New_Left_Margin( /* Integer margin */ ); | ^~~~~~~~~~~~~~~ object.c:1619:17: error: too many arguments to function 'Output'; expected 0, have 1 1619 | Output( " " ); m += 1; | ^~~~~~ ~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ object.h:102:46: error: too many arguments to function 'o->Specific.Defmacro.Transformer->Common.Type->Write'; expected 0, have 2 102 | #define Write_Object(o,m) ((Get_Type(o)->Write)(o,m)) | ~~~~~~~~~~~~^~~~~~~~ object.c:1622:13: note: in expansion of macro 'Write_Object' 1622 | m = Write_Object( Get_Defmacro_Transformer( o ) , m ); | ^~~~~~~~~~~~ object.h:74:19: note: declared here 74 | Integer (*Write)(); --- primitive.o --- | ^~~~~~~~~~~~~~ primitive.c:2129:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 2129 | Make_Primitive("set-current-output-port!" , Set_Current_Output, 1 , | ^~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:2132:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 2132 | Make_Primitive("open-input-file", Open_Input_File, 1, String_Type, | ^~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:2135:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 2135 | Make_Primitive("open-output-file", Open_Output_File, 1, String_Type, | ^~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~ object.h:468:14: note: declared here --- object.o --- | ^~~~~ object.c:1625:9: error: too many arguments to function 'Output'; expected 0, have 1 1625 | Output( ")" ); m += 1; | ^~~~~~ ~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ object.c: In function 'Defmacro_Show': object.c:1629:17: warning: old-style function definition [-Wold-style-definition] 1629 | Public Integer Defmacro_Show( o , m ) | ^~~~~~~~~~~~~ object.c:1633:1: error: number of arguments doesn't match prototype 1633 | { | ^ object.h:704:35: error: prototype declaration 704 | Import Integer Defmacro_Print(), Defmacro_Show(); | ^~~~~~~~~~~~~ object.c:1634:9: error: too many arguments to function 'Output'; expected 0, have 1 1634 | Output( "(defmacro " ); m += 7; | ^~~~~~ ~~~~~~~~~~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); --- primitive.o --- 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:2138:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 2138 | Make_Primitive("close-input-port", Close_Port, 1, Port_Type, | ^~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:2141:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 2141 | Make_Primitive("close-output-port", Close_Port, 1, Port_Type, | ^~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:2144:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 2144 | Make_Primitive("#_read", Read_From_Port, 1, Port_Type, | ^~~~~~~~~~~~~~ ~~~~~~~~ object.h:468:14: note: declared here --- object.o --- | ^~~~~~ object.h:102:46: error: too many arguments to function 'o->Specific.Defmacro.Keyword->Common.Type->Write'; expected 0, have 2 102 | #define Write_Object(o,m) ((Get_Type(o)->Write)(o,m)) | ~~~~~~~~~~~~^~~~~~~~ object.c:1636:13: note: in expansion of macro 'Write_Object' 1636 | m = Write_Object( Get_Defmacro_Keyword( o ) , m ); | ^~~~~~~~~~~~ object.h:74:19: note: declared here 74 | Integer (*Write)(); | ^~~~~ object.c:1638:9: error: too many arguments to function 'Output'; expected 0, have 1 1638 | Output( " ...)" ); m += 5; | ^~~~~~ ~~~~~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ object.c: In function 'Defmacro_GC': object.c:1644:15: warning: old-style function definition [-Wold-style-definition] 1644 | Public Object Defmacro_GC(old) | ^~~~~~~~~~~ --- primitive.o --- 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:2147:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 2147 | Make_Primitive("#_read-char", Read_Char, 1, Port_Type, | ^~~~~~~~~~~~~~ ~~~~~~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:2150:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 2150 | Make_Primitive("#_char-ready?", Char_Ready, 1, Port_Type, | ^~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:2153:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 2153 | Make_Primitive("#_peek-char", Scheme_Peek_Char, 1, Port_Type, | ^~~~~~~~~~~~~~ ~~~~~~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); --- object.o --- object.c:1647:1: error: number of arguments doesn't match prototype 1647 | { | ^ object.h:705:24: error: prototype declaration 705 | struct Object_Struct *Defmacro_GC(); | ^~~~~~~~~~~ object.c:1648:22: error: too many arguments to function 'Move_Object'; expected 0, have 2 1648 | Object new = Move_Object(old, Defmacro_Size); | ^~~~~~~~~~~ ~~~ architecture.h:95:15: note: declared here 95 | Import Object Move_Object(); | ^~~~~~~~~~~ object.c:1650:9: error: too many arguments to function 'Relocate'; expected 0, have 1 1650 | Relocate(&Get_Defmacro_Keyword(new)); | ^~~~~~~~ architecture.h:96:13: note: declared here 96 | Import void Relocate(); | ^~~~~~~~ object.c:1651:9: error: too many arguments to function 'Relocate'; expected 0, have 1 1651 | Relocate(&Get_Defmacro_Transformer(new)); | ^~~~~~~~ architecture.h:96:13: note: declared here --- primitive.o --- | ^~~~~~~~~~~~~~ primitive.c:2156:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 2156 | Make_Primitive("eof-object?", Eof_Predicate, 1, Any_Type, | ^~~~~~~~~~~~~~ ~~~~~~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:2159:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 2159 | Make_Primitive("#_write", Write_To_Port, 2, Any_Type, Port_Type, | ^~~~~~~~~~~~~~ ~~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:2162:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 2162 | Make_Primitive("#_display", Display_To_Port, 2, Any_Type, Port_Type, | ^~~~~~~~~~~~~~ ~~~~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); --- object.o --- 96 | Import void Relocate(); | ^~~~~~~~ object.c: In function 'Make_Defmacro_Call': object.c:1666:26: error: too many arguments to function 'Allocate'; expected 0, have 1 1666 | Value_Register = Allocate(Defmacro_Call_Size); | ^~~~~~~~ architecture.h:86:17: note: declared here 86 | Import Object Allocate(); | ^~~~~~~~ object.c: In function 'Defmacro_Call_Print': object.c:1674:17: warning: old-style function definition [-Wold-style-definition] 1674 | Public Integer Defmacro_Call_Print( o , m ) | ^~~~~~~~~~~~~~~~~~~ object.c:1678:1: error: number of arguments doesn't match prototype 1678 | { | ^ object.h:727:17: error: prototype declaration 727 | Import Integer Defmacro_Call_Print(); | ^~~~~~~~~~~~~~~~~~~ object.h:102:46: error: too many arguments to function 'o->Specific.Defmacro_Call.Original->Common.Type->Write'; expected 0, have 2 --- primitive.o --- | ^~~~~~~~~~~~~~ primitive.c:2165:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 2165 | Make_Primitive("#_write-char", Write_Char_To_Port, 2, Character_Type, | ^~~~~~~~~~~~~~ ~~~~~~~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:2168:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 2168 | Make_Primitive("load", Load, 1, String_Type, The_Undefined_Type, | ^~~~~~~~~~~~~~ ~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:2171:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 2171 | Make_Primitive("loadv", Load_Verbose, 1, String_Type, | ^~~~~~~~~~~~~~ ~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ --- object.o --- 102 | #define Write_Object(o,m) ((Get_Type(o)->Write)(o,m)) | ~~~~~~~~~~~~^~~~~~~~ object.c:1681:13: note: in expansion of macro 'Write_Object' 1681 | m = Write_Object( Get_Defmacro_Call_Original( o ) , m ); | ^~~~~~~~~~~~ object.h:74:19: note: declared here 74 | Integer (*Write)(); | ^~~~~ object.c:1683:13: error: too many arguments to function 'New_Left_Margin'; expected 0, have 1 1683 | m = New_Left_Margin( in_m ); | ^~~~~~~~~~~~~~~ ~~~~ io.h:42:17: note: declared here 42 | Import Integer New_Left_Margin( /* Integer margin */ ); | ^~~~~~~~~~~~~~~ object.c: In function 'Defmacro_Call_GC': object.c:1687:15: warning: old-style function definition [-Wold-style-definition] 1687 | Public Object Defmacro_Call_GC(old) | ^~~~~~~~~~~~~~~~ object.c:1690:1: error: number of arguments doesn't match prototype 1690 | { | ^ --- primitive.o --- primitive.c:2174:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 2174 | Make_Primitive("transcript-on", Transcript_On, 1, String_Type, | ^~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:2177:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 2177 | Make_Primitive("transcript-off", Transcript_Off, 0, The_Undefined_Type, | ^~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:2180:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 2180 | Make_Primitive("the-undefined-symbol", Get_The_Undefined_Symbol, 0, | ^~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ --- object.o --- object.h:728:24: error: prototype declaration 728 | struct Object_Struct *Defmacro_Call_GC(); | ^~~~~~~~~~~~~~~~ object.c:1691:22: error: too many arguments to function 'Move_Object'; expected 0, have 2 1691 | Object new = Move_Object(old, Defmacro_Call_Size); | ^~~~~~~~~~~ ~~~ architecture.h:95:15: note: declared here 95 | Import Object Move_Object(); | ^~~~~~~~~~~ object.c:1693:9: error: too many arguments to function 'Relocate'; expected 0, have 1 1693 | Relocate(&Get_Defmacro_Call_Original(new)); | ^~~~~~~~ architecture.h:96:13: note: declared here 96 | Import void Relocate(); | ^~~~~~~~ object.c:1694:9: error: too many arguments to function 'Relocate'; expected 0, have 1 1694 | Relocate(&Get_Defmacro_Call_Expansion(new)); | ^~~~~~~~ architecture.h:96:13: note: declared here 96 | Import void Relocate(); | ^~~~~~~~ --- primitive.o --- primitive.c:2183:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 2183 | Make_Primitive( "put", Put, 3, Symbol_Type, Symbol_Type, Any_Type ); | ^~~~~~~~~~~~~~ ~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:2185:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 2185 | Make_Primitive( "get", Get, 2, Symbol_Type, Symbol_Type, | ^~~~~~~~~~~~~~ ~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:2188:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 2188 | Make_Primitive("gensym", Gensym, 1, String_Type, The_Undefined_Type, | ^~~~~~~~~~~~~~ ~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ --- object.o --- object.c: In function 'Make_Sequence': object.c:1708:13: warning: old-style function definition [-Wold-style-definition] 1708 | Public void Make_Sequence(from_begin) | ^~~~~~~~~~~~~ object.c:1712:1: error: number of arguments doesn't match prototype 1712 | { | ^ object.h:761:14: error: prototype declaration 761 | Import void Make_Sequence(); | ^~~~~~~~~~~~~ object.c:1713:26: error: too many arguments to function 'Allocate'; expected 0, have 1 1713 | Value_Register = Allocate(Sequence_Size); | ^~~~~~~~ architecture.h:86:17: note: declared here 86 | Import Object Allocate(); | ^~~~~~~~ object.c: In function 'Sequence_Print': object.c:1721:17: warning: old-style function definition [-Wold-style-definition] 1721 | Public Integer Sequence_Print( o, m ) | ^~~~~~~~~~~~~~ object.c:1725:1: error: number of arguments doesn't match prototype 1725 | { | ^ --- primitive.o --- primitive.c:2193:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 2193 | Make_Primitive("call/cc", Call_CC, 1, Any_Type, The_Undefined_Type, | ^~~~~~~~~~~~~~ ~~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:2196:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 2196 | Make_Primitive("expand1-quoted-defmacro-call", | ^~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:2200:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 2200 | Make_Primitive("defmacro?", Defmacro_Predicate, 1, | ^~~~~~~~~~~~~~ ~~~~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ --- object.o --- object.h:750:17: error: prototype declaration 750 | Import Integer Sequence_Print(); | ^~~~~~~~~~~~~~ object.c:1730:17: error: too many arguments to function 'Output'; expected 0, have 1 1730 | Output("(begin "); m += 6; | ^~~~~~ ~~~~~~~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ object.c:1736:21: error: too many arguments to function 'New_Left_Margin'; expected 0, have 1 1736 | m = New_Left_Margin( in_m + INDENT ); | ^~~~~~~~~~~~~~~ io.h:42:17: note: declared here 42 | Import Integer New_Left_Margin( /* Integer margin */ ); | ^~~~~~~~~~~~~~~ object.h:102:46: error: too many arguments to function 'o->Specific.Pair.Car->Common.Type->Write'; expected 0, have 2 102 | #define Write_Object(o,m) ((Get_Type(o)->Write)(o,m)) | ~~~~~~~~~~~~^~~~~~~~ --- primitive.o --- primitive.c:2203:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 2203 | Make_Primitive("#_break", Scheme_Break, 0, The_Undefined_Type, | ^~~~~~~~~~~~~~ ~~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:2206:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 2206 | Make_Primitive("reset", Scheme_Reset, 0, The_Undefined_Type, | ^~~~~~~~~~~~~~ ~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:2209:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 2209 | Make_Primitive("#_edit", Edit, 1, String_Type, The_Undefined_Type, | ^~~~~~~~~~~~~~ ~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ --- object.o --- object.c:1737:21: note: in expansion of macro 'Write_Object' 1737 | m = Write_Object( Get_Pair_Car( o ) , m ); | ^~~~~~~~~~~~ object.h:74:19: note: declared here 74 | Integer (*Write)(); | ^~~~~ object.c:1740:9: error: too many arguments to function 'Output'; expected 0, have 1 1740 | Output( " )" ); m += 2; | ^~~~~~ ~~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ object.c: In function 'Sequence_GC': object.c:1744:15: warning: old-style function definition [-Wold-style-definition] 1744 | Public Object Sequence_GC( old ) | ^~~~~~~~~~~ object.c:1747:1: error: number of arguments doesn't match prototype 1747 | { | ^ object.h:751:24: error: prototype declaration 751 | struct Object_Struct *Sequence_GC(); | ^~~~~~~~~~~ --- primitive.o --- primitive.c:2212:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 2212 | Make_Primitive("#_edits", Edit_Silent, 1, String_Type, | ^~~~~~~~~~~~~~ ~~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:2215:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 2215 | Make_Primitive("system", System, 1, String_Type, | ^~~~~~~~~~~~~~ ~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:2218:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 2218 | Make_Primitive("time", Time, 0, The_Undefined_Type, | ^~~~~~~~~~~~~~ ~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ --- object.o --- object.c:1748:22: error: too many arguments to function 'Move_Object'; expected 0, have 2 1748 | Object new = Move_Object(old, Sequence_Size); | ^~~~~~~~~~~ ~~~ architecture.h:95:15: note: declared here 95 | Import Object Move_Object(); | ^~~~~~~~~~~ object.c:1750:9: error: too many arguments to function 'Relocate'; expected 0, have 1 1750 | Relocate(&Get_Sequence_Clauses(new)); | ^~~~~~~~ architecture.h:96:13: note: declared here 96 | Import void Relocate(); | ^~~~~~~~ object.c: In function 'Make_Delay': object.c:1765:26: error: too many arguments to function 'Allocate'; expected 0, have 1 1765 | Value_Register = Allocate(Delay_Size); | ^~~~~~~~ architecture.h:86:17: note: declared here 86 | Import Object Allocate(); | ^~~~~~~~ object.c: In function 'Delay_Print': --- primitive.o --- primitive.c:2221:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 2221 | Make_Primitive("gc-messages", GC_Messages, 1, Boolean_Type, | ^~~~~~~~~~~~~~ ~~~~~~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:2224:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 2224 | Make_Primitive( "current-environment", Current_Environment, 0, | ^~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:2226:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 2226 | Make_Primitive( "environment?", Environment_Predicate, 1, | ^~~~~~~~~~~~~~ ~~~~~~~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ --- object.o --- object.c:1772:17: warning: old-style function definition [-Wold-style-definition] 1772 | Public Integer Delay_Print( o, m ) | ^~~~~~~~~~~ object.c:1776:1: error: number of arguments doesn't match prototype 1776 | { | ^ object.h:773:17: error: prototype declaration 773 | Import Integer Delay_Print(); | ^~~~~~~~~~~ object.c:1779:9: error: too many arguments to function 'Output'; expected 0, have 1 1779 | Output("(delay "); | ^~~~~~ ~~~~~~~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ object.c:1780:13: error: too many arguments to function 'New_Left_Margin'; expected 0, have 1 1780 | m = New_Left_Margin( in_m + INDENT ); | ^~~~~~~~~~~~~~~ io.h:42:17: note: declared here 42 | Import Integer New_Left_Margin( /* Integer margin */ ); | ^~~~~~~~~~~~~~~ --- primitive.o --- primitive.c:2228:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 2228 | Make_Primitive( "global-environment?", Global_Environment_Predicate, 1, | ^~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:2230:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 2230 | Make_Primitive( "eval", Evaluate, VARYING, | ^~~~~~~~~~~~~~ ~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ primitive.c:2235:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 2235 | Make_Primitive("heap-size", Get_Heap_Size, 0, The_Undefined_Type, | ^~~~~~~~~~~~~~ ~~~~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ --- object.o --- object.h:102:46: error: too many arguments to function 'o->Specific.Delay.Expression->Common.Type->Write'; expected 0, have 2 102 | #define Write_Object(o,m) ((Get_Type(o)->Write)(o,m)) | ~~~~~~~~~~~~^~~~~~~~ object.c:1782:13: note: in expansion of macro 'Write_Object' 1782 | m = Write_Object( Get_Delay_Expression( o ) , m ); | ^~~~~~~~~~~~ object.h:74:19: note: declared here 74 | Integer (*Write)(); | ^~~~~ object.c:1784:9: error: too many arguments to function 'Output'; expected 0, have 1 1784 | Output(")"); m += 1; | ^~~~~~ ~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ object.c: In function 'Delay_GC': object.c:1789:15: warning: old-style function definition [-Wold-style-definition] 1789 | Public Object Delay_GC(old) | ^~~~~~~~ --- primitive.o --- primitive.c:2238:9: error: too many arguments to function 'Make_Primitive'; expected 0, have 6 2238 | Make_Primitive("arg-stack-ptr" , Get_Arg_Stack_Ptr, 0, | ^~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~ object.h:468:14: note: declared here 468 | Import void Make_Primitive(); | ^~~~~~~~~~~~~~ --- object.o --- object.c:1792:1: error: number of arguments doesn't match prototype 1792 | { | ^ object.h:774:24: error: prototype declaration 774 | struct Object_Struct *Delay_GC(); | ^~~~~~~~ object.c:1793:22: error: too many arguments to function 'Move_Object'; expected 0, have 2 1793 | Object new = Move_Object(old, Delay_Size); | ^~~~~~~~~~~ ~~~ architecture.h:95:15: note: declared here 95 | Import Object Move_Object(); | ^~~~~~~~~~~ object.c:1795:9: error: too many arguments to function 'Relocate'; expected 0, have 1 1795 | Relocate(&Get_Delay_Expression(new)); | ^~~~~~~~ architecture.h:96:13: note: declared here 96 | Import void Relocate(); | ^~~~~~~~ object.c: In function 'Make_Promise': object.c:1810:26: error: too many arguments to function 'Allocate'; expected 0, have 1 1810 | Value_Register = Allocate(Promise_Size); | ^~~~~~~~ architecture.h:86:17: note: declared here 86 | Import Object Allocate(); | ^~~~~~~~ object.c: In function 'Promise_Print': object.c:1819:17: warning: old-style function definition [-Wold-style-definition] 1819 | Public Integer Promise_Print( o, m ) | ^~~~~~~~~~~~~ object.c:1823:1: error: number of arguments doesn't match prototype 1823 | { | ^ object.h:795:17: error: prototype declaration 795 | Import Integer Promise_Print(), Promise_Show(); | ^~~~~~~~~~~~~ object.c:1826:9: error: too many arguments to function 'Output'; expected 0, have 1 1826 | Output( "(PROMISE " ); | ^~~~~~ ~~~~~~~~~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ object.c:1827:13: error: too many arguments to function 'New_Left_Margin'; expected 0, have 1 1827 | m = New_Left_Margin( in_m + INDENT ); | ^~~~~~~~~~~~~~~ io.h:42:17: note: declared here 42 | Import Integer New_Left_Margin( /* Integer margin */ ); | ^~~~~~~~~~~~~~~ object.h:102:46: error: too many arguments to function 'o->Specific.Promise.Expression->Common.Type->Write'; expected 0, have 2 102 | #define Write_Object(o,m) ((Get_Type(o)->Write)(o,m)) | ~~~~~~~~~~~~^~~~~~~~ object.c:1829:13: note: in expansion of macro 'Write_Object' 1829 | m = Write_Object( Get_Promise_Expression( o ) , m ); | ^~~~~~~~~~~~ object.h:74:19: note: declared here 74 | Integer (*Write)(); | ^~~~~ object.c:1830:9: error: too many arguments to function 'Output'; expected 0, have 1 1830 | Output( ")" ); m +=1; | ^~~~~~ ~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ object.c: In function 'Promise_Show': object.c:1834:17: warning: old-style function definition [-Wold-style-definition] 1834 | Public Integer Promise_Show( o, m ) | ^~~~~~~~~~~~ object.c:1838:1: error: number of arguments doesn't match prototype 1838 | { | ^ object.h:795:34: error: prototype declaration 795 | Import Integer Promise_Print(), Promise_Show(); | ^~~~~~~~~~~~ object.c:1839:9: error: too many arguments to function 'Output'; expected 0, have 1 1839 | Output( "" ); | ^~~~~~ ~~~~~~~~~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ object.c: In function 'Promise_GC': object.c:1843:15: warning: old-style function definition [-Wold-style-definition] 1843 | Public Object Promise_GC(old) | ^~~~~~~~~~ object.c:1846:1: error: number of arguments doesn't match prototype 1846 | { | ^ object.h:796:24: error: prototype declaration 796 | struct Object_Struct *Promise_GC(); | ^~~~~~~~~~ object.c:1847:22: error: too many arguments to function 'Move_Object'; expected 0, have 2 1847 | Object new = Move_Object(old, Promise_Size); | ^~~~~~~~~~~ ~~~ architecture.h:95:15: note: declared here 95 | Import Object Move_Object(); | ^~~~~~~~~~~ object.c:1849:9: error: too many arguments to function 'Relocate'; expected 0, have 1 1849 | Relocate(&Get_Promise_Expression(new)); | ^~~~~~~~ architecture.h:96:13: note: declared here 96 | Import void Relocate(); | ^~~~~~~~ object.c:1850:9: error: too many arguments to function 'Relocate'; expected 0, have 1 1850 | Relocate(&Get_Promise_Environment(new)); | ^~~~~~~~ architecture.h:96:13: note: declared here 96 | Import void Relocate(); | ^~~~~~~~ object.c: In function 'Make_Error': object.c:1864:13: warning: old-style function definition [-Wold-style-definition] 1864 | Public void Make_Error(message) | ^~~~~~~~~~ object.c:1867:1: error: number of arguments doesn't match prototype 1867 | { | ^ object.h:827:14: error: prototype declaration 827 | Import void Make_Error(); | ^~~~~~~~~~ object.c:1868:26: error: too many arguments to function 'Allocate'; expected 0, have 1 1868 | Value_Register = Allocate(Error_Size); | ^~~~~~~~ architecture.h:86:17: note: declared here 86 | Import Object Allocate(); | ^~~~~~~~ object.c:1869:45: error: too many arguments to function 'Copy_String'; expected 0, have 1 1869 | Get_Error_Message(Value_Register) = Copy_String(message); | ^~~~~~~~~~~ ~~~~~~~ object.c:730:15: note: declared here 730 | Public String Copy_String(str) | ^~~~~~~~~~~ object.c: In function 'Error_Print': object.c:1874:17: warning: old-style function definition [-Wold-style-definition] 1874 | Public Integer Error_Print( o, m ) | ^~~~~~~~~~~ object.c:1878:1: error: number of arguments doesn't match prototype 1878 | { | ^ object.h:817:17: error: prototype declaration 817 | Import Integer Error_Print(); | ^~~~~~~~~~~ object.c:1879:9: error: too many arguments to function 'Output'; expected 0, have 1 1879 | Output( "(Error " ); m += 7; | ^~~~~~ ~~~~~~~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ object.c:1880:9: error: too many arguments to function 'Output'; expected 0, have 1 1880 | Output( Get_Error_Message( o ) ); m += strlen( Get_Error_Message( o ) ); | ^~~~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ object.c:1881:9: error: too many arguments to function 'Output'; expected 0, have 1 1881 | Output( ")" ); m += 1; | ^~~~~~ ~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ object.c: In function 'Error_GC': object.c:1885:15: warning: old-style function definition [-Wold-style-definition] 1885 | Public Object Error_GC(old) | ^~~~~~~~ object.c:1888:1: error: number of arguments doesn't match prototype 1888 | { | ^ object.h:818:24: error: prototype declaration 818 | struct Object_Struct *Error_GC(); | ^~~~~~~~ object.c:1889:22: error: too many arguments to function 'Move_Object'; expected 0, have 2 1889 | Object new = Move_Object(old, Error_Size); | ^~~~~~~~~~~ ~~~ architecture.h:95:15: note: declared here 95 | Import Object Move_Object(); | ^~~~~~~~~~~ object.c: In function 'Init_Environment_Frame': object.c:1910:9: error: too many arguments to function 'Make_Environment_Frame'; expected 0, have 2 1910 | Make_Environment_Frame(0, FALSE); | ^~~~~~~~~~~~~~~~~~~~~~ ~ object.h:867:14: note: declared here 867 | Import void Make_Environment_Frame(); | ^~~~~~~~~~~~~~~~~~~~~~ object.c: In function 'Make_Environment_Frame': object.c:1914:13: warning: old-style function definition [-Wold-style-definition] 1914 | Public void Make_Environment_Frame(size, has_rest) | ^~~~~~~~~~~~~~~~~~~~~~ object.c:1917:1: error: number of arguments doesn't match prototype 1917 | { | ^ object.h:867:14: error: prototype declaration 867 | Import void Make_Environment_Frame(); | ^~~~~~~~~~~~~~~~~~~~~~ object.c:1921:26: error: too many arguments to function 'Allocate'; expected 0, have 1 1921 | Value_Register = Allocate(Environment_Frame_Size(newsize)); | ^~~~~~~~ architecture.h:86:17: note: declared here 86 | Import Object Allocate(); | ^~~~~~~~ object.c: In function 'Make_Symbol_Frame': object.c:1939:27: error: too many arguments to function 'Length'; expected 0, have 1 1939 | Integer numargs = Length(Top(1)); | ^~~~~~ object.c:215:9: note: declared here 215 | Integer Length(list) | ^~~~~~ object.c:1945:9: error: too many arguments to function 'Make_Environment_Frame'; expected 0, have 2 1945 | Make_Environment_Frame(frame_size, rest != Nil); | ^~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~ object.c:1914:13: note: declared here 1914 | Public void Make_Environment_Frame(size, has_rest) | ^~~~~~~~~~~~~~~~~~~~~~ object.c:1952:25: error: too many arguments to function 'First'; expected 0, have 1 1952 | First(formals); | ^~~~~ ~~~~~~~ object.c:242:15: note: declared here 242 | Public Object First(list) | ^~~~~ object.c:1957:27: error: too many arguments to function 'Rest'; expected 0, have 1 1957 | formals = Rest(formals); | ^~~~ ~~~~~~~ object.c:256:15: note: declared here 256 | Public Object Rest(list) | ^~~~ object.c: In function 'Print_As_Formals': object.c:1971:17: warning: old-style function definition [-Wold-style-definition] 1971 | Public Integer Print_As_Formals( o, m ) | ^~~~~~~~~~~~~~~~ object.c:1978:9: error: too many arguments to function 'Output'; expected 0, have 1 1978 | Output("("); m += 1; | ^~~~~~ ~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ object.h:102:46: error: too many arguments to function 'o->Specific.Environment_Frame.Slots[this_arg]->Common.Type->Write'; expected 0, have 2 102 | #define Write_Object(o,m) ((Get_Type(o)->Write)(o,m)) | ~~~~~~~~~~~~^~~~~~~~ object.c:1983:21: note: in expansion of macro 'Write_Object' 1983 | m = Write_Object( | ^~~~~~~~~~~~ object.h:74:19: note: declared here 74 | Integer (*Write)(); | ^~~~~ object.c:1985:17: error: too many arguments to function 'Output'; expected 0, have 1 1985 | Output( " " ); m += 1; | ^~~~~~ ~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ object.c:1990:17: error: too many arguments to function 'Output'; expected 0, have 1 1990 | Output( ". " ); m += 2; | ^~~~~~ ~~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ object.h:102:46: error: too many arguments to function 'o->Specific.Environment_Frame.Slots[(int)o->Specific.Environment_Frame.Size + -1]->Common.Type->Write'; expected 0, have 2 102 | #define Write_Object(o,m) ((Get_Type(o)->Write)(o,m)) | ~~~~~~~~~~~~^~~~~~~~ object.c:1995:21: note: in expansion of macro 'Write_Object' 1995 | m = Write_Object( | ^~~~~~~~~~~~ object.h:74:19: note: declared here 74 | Integer (*Write)(); | ^~~~~ object.c:2000:9: error: too many arguments to function 'Output'; expected 0, have 1 2000 | Output( ")" ); m += 1; | ^~~~~~ ~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ object.c: In function 'Show_One_Frame': object.c:2004:17: warning: old-style function definition [-Wold-style-definition] 2004 | Private Integer Show_One_Frame( o, m ) | ^~~~~~~~~~~~~~ object.h:102:46: error: too many arguments to function 'o->Specific.Environment_Frame.Slots[binding]->Common.Type->Write'; expected 0, have 2 102 | #define Write_Object(o,m) ((Get_Type(o)->Write)(o,m)) | ~~~~~~~~~~~~^~~~~~~~ object.c:2015:21: note: in expansion of macro 'Write_Object' 2015 | m = Write_Object( | ^~~~~~~~~~~~ object.h:74:19: note: declared here 74 | Integer (*Write)(); | ^~~~~ object.c:2017:17: error: too many arguments to function 'Output'; expected 0, have 1 2017 | Output( "\t= " ); m += 3; | ^~~~~~ ~~~~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ object.h:102:46: error: too many arguments to function 'o->Specific.Environment_Frame.Slots[o->Specific.Environment_Frame.Size + binding]->Common.Type->Write'; expected 0, have 2 102 | #define Write_Object(o,m) ((Get_Type(o)->Write)(o,m)) | ~~~~~~~~~~~~^~~~~~~~ object.c:2019:21: note: in expansion of macro 'Write_Object' 2019 | m = Write_Object( | ^~~~~~~~~~~~ object.h:74:19: note: declared here 74 | Integer (*Write)(); | ^~~~~ object.c:2021:21: error: too many arguments to function 'New_Left_Margin'; expected 0, have 1 2021 | m = New_Left_Margin( in_m ); | ^~~~~~~~~~~~~~~ ~~~~ io.h:42:17: note: declared here 42 | Import Integer New_Left_Margin( /* Integer margin */ ); | ^~~~~~~~~~~~~~~ object.c: In function 'Environment_Frame_Show': object.c:2025:16: warning: old-style function definition [-Wold-style-definition] 2025 | Public Integer Environment_Frame_Show( frame , in_m ) | ^~~~~~~~~~~~~~~~~~~~~~ object.c:2029:1: error: number of arguments doesn't match prototype 2029 | { | ^ object.h:841:44: error: prototype declaration 841 | Import Integer Environment_Frame_Print(), Environment_Frame_Show(); | ^~~~~~~~~~~~~~~~~~~~~~ object.c:2036:16: error: too many arguments to function 'Output'; expected 0, have 1 2036 | Output( "\n" ); | ^~~~~~ ~~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ object.c:2040:16: error: too many arguments to function 'Output'; expected 0, have 1 2040 | Output( "\n" ); | ^~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ object.c: In function 'Environment_Frame_GC': object.c:2045:15: warning: old-style function definition [-Wold-style-definition] 2045 | Public Object Environment_Frame_GC(old) | ^~~~~~~~~~~~~~~~~~~~ object.c:2048:1: error: number of arguments doesn't match prototype 2048 | { | ^ object.h:842:24: error: prototype declaration 842 | struct Object_Struct *Environment_Frame_GC(); | ^~~~~~~~~~~~~~~~~~~~ object.c:2049:22: error: too many arguments to function 'Move_Object'; expected 0, have 2 2049 | Object new = Move_Object(old, Environment_Frame_Size( | ^~~~~~~~~~~ ~~~ architecture.h:95:15: note: declared here 95 | Import Object Move_Object(); | ^~~~~~~~~~~ object.c:2053:9: error: too many arguments to function 'Relocate'; expected 0, have 1 2053 | Relocate(&Get_Environment_Frame_Previous(new)); | ^~~~~~~~ architecture.h:96:13: note: declared here 96 | Import void Relocate(); | ^~~~~~~~ object.c:2056:17: error: too many arguments to function 'Relocate'; expected 0, have 1 2056 | Relocate(&Get_Environment_Frame_Binding_Symbol( new, binding )); | ^~~~~~~~ architecture.h:96:13: note: declared here 96 | Import void Relocate(); | ^~~~~~~~ object.c:2057:17: error: too many arguments to function 'Relocate'; expected 0, have 1 2057 | Relocate(&Get_Environment_Frame_Binding_Value( new, binding )); | ^~~~~~~~ architecture.h:96:13: note: declared here 96 | Import void Relocate(); | ^~~~~~~~ object.c:2058:17: error: too many arguments to function 'Relocate'; expected 0, have 1 2058 | Relocate(&Get_Environment_Frame_Binding_How( new , binding )); | ^~~~~~~~ architecture.h:96:13: note: declared here 96 | Import void Relocate(); | ^~~~~~~~ object.c: In function 'Make_State_Frame': object.c:2075:26: error: too many arguments to function 'Allocate'; expected 0, have 1 2075 | Value_Register = Allocate(State_Frame_Size); | ^~~~~~~~ architecture.h:86:17: note: declared here 86 | Import Object Allocate(); | ^~~~~~~~ object.c: In function 'State_Frame_Print': object.c:2080:17: warning: old-style function definition [-Wold-style-definition] 2080 | Public Integer State_Frame_Print( o, m ) | ^~~~~~~~~~~~~~~~~ object.c:2084:1: error: number of arguments doesn't match prototype 2084 | { | ^ object.h:885:17: error: prototype declaration 885 | Import Integer State_Frame_Print(); | ^~~~~~~~~~~~~~~~~ object.c:2085:9: error: too many arguments to function 'Output'; expected 0, have 1 2085 | Output( "" ); | ^~~~~~ ~~~~~~~~~~~~~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ object.c: In function 'State_Frame_GC': object.c:2089:15: warning: old-style function definition [-Wold-style-definition] 2089 | Public Object State_Frame_GC(old) | ^~~~~~~~~~~~~~ object.c:2092:1: error: number of arguments doesn't match prototype 2092 | { | ^ object.h:886:24: error: prototype declaration 886 | struct Object_Struct *State_Frame_GC(); | ^~~~~~~~~~~~~~ object.c:2093:22: error: too many arguments to function 'Move_Object'; expected 0, have 2 2093 | Object new = Move_Object(old, State_Frame_Size); | ^~~~~~~~~~~ ~~~ architecture.h:95:15: note: declared here 95 | Import Object Move_Object(); | ^~~~~~~~~~~ object.c:2095:9: error: too many arguments to function 'Relocate'; expected 0, have 1 2095 | Relocate(&Get_State_Frame_Expression(new)); | ^~~~~~~~ architecture.h:96:13: note: declared here 96 | Import void Relocate(); | ^~~~~~~~ object.c:2096:9: error: too many arguments to function 'Relocate'; expected 0, have 1 2096 | Relocate(&Get_State_Frame_Environment(new)); | ^~~~~~~~ architecture.h:96:13: note: declared here 96 | Import void Relocate(); | ^~~~~~~~ object.c:2097:9: error: too many arguments to function 'Relocate'; expected 0, have 1 2097 | Relocate(&Get_State_Frame_Function(new)); | ^~~~~~~~ architecture.h:96:13: note: declared here 96 | Import void Relocate(); | ^~~~~~~~ object.c:2098:9: error: too many arguments to function 'Relocate'; expected 0, have 1 2098 | Relocate(&Get_State_Frame_Arguments(new)); | ^~~~~~~~ architecture.h:96:13: note: declared here 96 | Import void Relocate(); | ^~~~~~~~ object.c:2099:9: error: too many arguments to function 'Relocate'; expected 0, have 1 2099 | Relocate(&Get_State_Frame_State(new)); | ^~~~~~~~ architecture.h:96:13: note: declared here 96 | Import void Relocate(); | ^~~~~~~~ object.c: In function 'Init_Eclectic': object.c:2116:29: error: too many arguments to function 'Allocate'; expected 0, have 1 2116 | The_Rparen_Object = Allocate(Eclectic_Size); | ^~~~~~~~ architecture.h:86:17: note: declared here 86 | Import Object Allocate(); | ^~~~~~~~ object.c:2117:26: error: too many arguments to function 'Allocate'; expected 0, have 1 2117 | The_Dot_Object = Allocate(Eclectic_Size); | ^~~~~~~~ architecture.h:86:17: note: declared here 86 | Import Object Allocate(); | ^~~~~~~~ object.c: In function 'Eclectic_Print': object.c:2125:17: warning: old-style function definition [-Wold-style-definition] 2125 | Public Integer Eclectic_Print( o , m ) | ^~~~~~~~~~~~~~ object.c:2129:1: error: number of arguments doesn't match prototype 2129 | { | ^ object.h:911:17: error: prototype declaration 911 | Import Integer Eclectic_Print(); | ^~~~~~~~~~~~~~ object.c:2132:17: error: too many arguments to function 'Output'; expected 0, have 1 2132 | Output( "" ); | ^~~~~~ ~~~~~~~~~~~~~~~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ object.c:2137:17: error: too many arguments to function 'Output'; expected 0, have 1 2137 | Output(" " ); | ^~~~~~ ~~~~~~~~~~~~~~~~~~ io.h:39:17: note: declared here 39 | Import void Output(/* String s */); | ^~~~~~ object.c:2145:17: error: too many arguments to function 'Panic'; expected 0, have 1 2145 | Panic("Eclectic_Print called on a non-junk"); | ^~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ steering.h:44:17: note: declared here 44 | Import void Panic(); | ^~~~~ object.c: In function 'Eclectic_GC': object.c:2150:15: warning: old-style function definition [-Wold-style-definition] 2150 | Public Object Eclectic_GC(old) | ^~~~~~~~~~~ object.c:2153:1: error: number of arguments doesn't match prototype 2153 | { | ^ object.h:912:31: error: prototype declaration 912 | Import struct Object_Struct *Eclectic_GC(); | ^~~~~~~~~~~ object.c:2154:22: error: too many arguments to function 'Move_Object'; expected 0, have 2 2154 | Object new = Move_Object(old, Eclectic_Size); | ^~~~~~~~~~~ ~~~ architecture.h:95:15: note: declared here 95 | Import Object Move_Object(); | ^~~~~~~~~~~ --- primitive.o --- *** [primitive.o] Error code 1 bmake: stopped making "default" in /tmp/work/lang/umb-scheme/work/scheme-3.2 --- object.o --- *** [object.o] Error code 1 bmake: stopped making "default" in /tmp/work/lang/umb-scheme/work/scheme-3.2 bmake: 4 errors bmake: stopped making "default" in /tmp/work/lang/umb-scheme/work/scheme-3.2 *** Error code 2 Stop. bmake[1]: stopped making "all" in /data/jenkins/workspace/pkgsrc-upstream-trunk/lang/umb-scheme *** Error code 1 Stop. bmake: stopped making "all" in /data/jenkins/workspace/pkgsrc-upstream-trunk/lang/umb-scheme