Fix construct-empty transform
							parent
							
								
									0b4be5f0a2
								
							
						
					
					
						commit
						9cc5f5c78e
					
				| 
						 | 
					@ -74,7 +74,7 @@ M: pair (bitfield-quot) ( spec -- quot )
 | 
				
			||||||
        dup tuple-size [ <tuple> ] 2curry
 | 
					        dup tuple-size [ <tuple> ] 2curry
 | 
				
			||||||
        swap infer-quot
 | 
					        swap infer-quot
 | 
				
			||||||
    ] [
 | 
					    ] [
 | 
				
			||||||
        \ construct-empty declared-infer
 | 
					        \ construct-empty 1 1 <effect> make-call-node
 | 
				
			||||||
    ] if
 | 
					    ] if
 | 
				
			||||||
] "infer" set-word-prop
 | 
					] "infer" set-word-prop
 | 
				
			||||||
 | 
					
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
		Loading…
	
		Reference in New Issue