Added check for valid argument list

lastcraft · lastcraft · commit 1ba9e77ebaaa · 2013-08-29T22:03:22.000+02:00
diff --git a/standard_library.c b/standard_library.c
@@ -181,7 +181,7 @@ static Object *overwrite_value(Object *symbol, Object *rvalue, Binding *binding)
 }
 
 static int is_argument_list(Object *list) {
-    return 1;
+    return is_nil(list) || is_pair(list);
 }
 
 static bool compare_numbers(long comparison, Object *arguments, ErrorHandler error) {

Original file line number	Diff line number	Diff line change
`@@ -181,7 +181,7 @@ static Object overwrite_value(Object symbol, Object rvalue, Binding binding)`
`181`	`181`	`}`
`182`	`182`
`183`	`183`	`static int is_argument_list(Object *list) {`
`184`		`- return 1;`
	`184`	`+ return is_nil(list) \|\| is_pair(list);`
`185`	`185`	`}`
`186`	`186`
`187`	`187`	`static bool compare_numbers(long comparison, Object *arguments, ErrorHandler error) {`