error when argument of apply is not a proper list
This commit is contained in:
		
							parent
							
								
									9a1e7d0ab1
								
							
						
					
					
						commit
						4fea9169cc
					
				
							
								
								
									
										4
									
								
								src/vm.c
								
								
								
								
							
							
						
						
									
										4
									
								
								src/vm.c
								
								
								
								
							|  | @ -301,6 +301,10 @@ pic_apply(pic_state *pic, struct pic_proc *proc, pic_value argv) | ||||||
|     goto L_RAISE; |     goto L_RAISE; | ||||||
|   } |   } | ||||||
| 
 | 
 | ||||||
|  |   if (! pic_list_p(pic, argv)) { | ||||||
|  |     pic_error(pic, "argv must be a proper list"); | ||||||
|  |   } | ||||||
|  | 
 | ||||||
|   argc = pic_length(pic, argv) + 1; |   argc = pic_length(pic, argv) + 1; | ||||||
| 
 | 
 | ||||||
| #if VM_DEBUG | #if VM_DEBUG | ||||||
|  |  | ||||||
		Loading…
	
		Reference in New Issue
	
	 Yuichi Nishiwaki
						Yuichi Nishiwaki