show invalid application callee
This commit is contained in:
		
							parent
							
								
									2d0faff732
								
							
						
					
					
						commit
						29b2d84268
					
				
							
								
								
									
										5
									
								
								src/vm.c
								
								
								
								
							
							
						
						
									
										5
									
								
								src/vm.c
								
								
								
								
							| 
						 | 
				
			
			@ -537,10 +537,7 @@ pic_apply(pic_state *pic, struct pic_proc *proc, pic_value argv)
 | 
			
		|||
    L_CALL:
 | 
			
		||||
      x = pic->sp[-c.u.i];
 | 
			
		||||
      if (! pic_proc_p(x)) {
 | 
			
		||||
#if DEBUG
 | 
			
		||||
	pic_debug(pic, x);
 | 
			
		||||
#endif
 | 
			
		||||
	pic_error(pic, "invalid application");
 | 
			
		||||
	pic_errorf(pic, "invalid application: ~S", x);
 | 
			
		||||
      }
 | 
			
		||||
      proc = pic_proc_ptr(x);
 | 
			
		||||
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
		Reference in New Issue