eval: improve type description for primops and applied primops
This can make type errors a little easier to understand.
This commit is contained in:
		
							parent
							
								
									6a3dfcb623
								
							
						
					
					
						commit
						2aa89daab3
					
				
					 1 changed files with 14 additions and 2 deletions
				
			
		|  | @ -130,6 +130,16 @@ std::ostream & operator << (std::ostream & str, const Value & v) | ||||||
| } | } | ||||||
| 
 | 
 | ||||||
| 
 | 
 | ||||||
|  | const Value *getPrimOp(const Value &v) { | ||||||
|  |     const Value * primOp = &v; | ||||||
|  |     while (primOp->type == tPrimOpApp) { | ||||||
|  |         primOp = primOp->primOpApp.left; | ||||||
|  |     } | ||||||
|  |     assert(primOp->type == tPrimOp); | ||||||
|  |     return primOp; | ||||||
|  | } | ||||||
|  | 
 | ||||||
|  | 
 | ||||||
| string showType(const Value & v) | string showType(const Value & v) | ||||||
| { | { | ||||||
|     switch (v.type) { |     switch (v.type) { | ||||||
|  | @ -144,8 +154,10 @@ string showType(const Value & v) | ||||||
|         case tApp: return "a function application"; |         case tApp: return "a function application"; | ||||||
|         case tLambda: return "a function"; |         case tLambda: return "a function"; | ||||||
|         case tBlackhole: return "a black hole"; |         case tBlackhole: return "a black hole"; | ||||||
|         case tPrimOp: return "a built-in function"; |         case tPrimOp: | ||||||
|         case tPrimOpApp: return "a partially applied built-in function"; |             return fmt("the built-in function '%s'", string(v.primOp->name)); | ||||||
|  |         case tPrimOpApp: | ||||||
|  |             return fmt("the partially applied built-in function '%s'", string(getPrimOp(v)->primOp->name)); | ||||||
|         case tExternal: return v.external->showType(); |         case tExternal: return v.external->showType(); | ||||||
|         case tFloat: return "a float"; |         case tFloat: return "a float"; | ||||||
|     } |     } | ||||||
|  |  | ||||||
		Loading…
	
	Add table
		Add a link
		
	
		Reference in a new issue