remove debug line
							parent
							
								
									1f7857035e
								
							
						
					
					
						commit
						b08e1a0205
					
				| 
						 | 
					@ -46,7 +46,6 @@ PRIVATE>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
: group-name ( id -- string )
 | 
					: group-name ( id -- string )
 | 
				
			||||||
    dup group-cache get [
 | 
					    dup group-cache get [
 | 
				
			||||||
    "yo" print
 | 
					 | 
				
			||||||
        dupd at* [ name>> nip ] [ drop number>string ] if
 | 
					        dupd at* [ name>> nip ] [ drop number>string ] if
 | 
				
			||||||
    ] [
 | 
					    ] [
 | 
				
			||||||
        group-struct [ group-gr_name ] [ f ] if*
 | 
					        group-struct [ group-gr_name ] [ f ] if*
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
		Loading…
	
		Reference in New Issue