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