Remove 'grid-add*'
							parent
							
								
									2066adcfec
								
							
						
					
					
						commit
						2291c2d18a
					
				| 
						 | 
					@ -20,11 +20,6 @@ grid
 | 
				
			||||||
 | 
					
 | 
				
			||||||
: grid-child ( grid i j -- gadget ) rot grid>> nth nth ;
 | 
					: grid-child ( grid i j -- gadget ) rot grid>> nth nth ;
 | 
				
			||||||
 | 
					
 | 
				
			||||||
: grid-add* ( grid child i j -- grid )
 | 
					 | 
				
			||||||
  >r >r dupd swap r> r>
 | 
					 | 
				
			||||||
  >r >r 2dup swap add-gadget drop r> r>
 | 
					 | 
				
			||||||
  3dup grid-child unparent rot grid>> nth set-nth ;
 | 
					 | 
				
			||||||
 | 
					 | 
				
			||||||
: grid-add ( grid child i j -- grid )
 | 
					: grid-add ( grid child i j -- grid )
 | 
				
			||||||
  >r >r dupd swap r> r>
 | 
					  >r >r dupd swap r> r>
 | 
				
			||||||
  >r >r 2dup swap add-gadget drop r> r>
 | 
					  >r >r 2dup swap add-gadget drop r> r>
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
		Loading…
	
		Reference in New Issue