stack-checker: fix error message printed when do-primitive is inferred
							parent
							
								
									2c553bcc86
								
							
						
					
					
						commit
						1d16152057
					
				| 
						 | 
				
			
			@ -51,7 +51,7 @@ M: inconsistent-recursive-call-error summary
 | 
			
		|||
    " calls itself with a different set of quotation parameters than were input" surround ;
 | 
			
		||||
 | 
			
		||||
M: unknown-primitive-error summary
 | 
			
		||||
    word>> name>> "The " " word cannot be called from optimized words" surround ;
 | 
			
		||||
    drop "The do-primitive word cannot be called from here" ;
 | 
			
		||||
 | 
			
		||||
M: transform-expansion-error summary
 | 
			
		||||
    word>> name>> "Macro expansion of " " threw an error" surround ;
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -391,3 +391,6 @@ DEFER: eee'
 | 
			
		|||
 | 
			
		||||
[ [ call-effect ] infer ] [ T{ unknown-macro-input f call-effect } = ] must-fail-with
 | 
			
		||||
[ [ execute-effect ] infer ] [ T{ unknown-macro-input f execute-effect } = ] must-fail-with
 | 
			
		||||
 | 
			
		||||
[ \ set-callstack def>> infer ] [ T{ unknown-primitive-error } = ] must-fail-with
 | 
			
		||||
[ ] [ [ \ set-callstack def>> infer ] try ] unit-test
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
		Reference in New Issue