extra.logging: minor fix
parent
aa21798045
commit
b6a262b625
|
@ -47,7 +47,7 @@ SYMBOL: log-service
|
||||||
[ dup array? ]
|
[ dup array? ]
|
||||||
[ dup length 1 = ]
|
[ dup length 1 = ]
|
||||||
[ dup first string? ]
|
[ dup first string? ]
|
||||||
} && nip ;
|
} 0&& nip ;
|
||||||
|
|
||||||
: stack>message ( obj -- inputs>message )
|
: stack>message ( obj -- inputs>message )
|
||||||
dup one-string? [ first ] [
|
dup one-string? [ first ] [
|
||||||
|
|
Loading…
Reference in New Issue