diff --git a/lib/~ik/float-output.4th b/lib/~ik/float-output.4th index 7e97d17..6854c16 100644 --- a/lib/~ik/float-output.4th +++ b/lib/~ik/float-output.4th @@ -113,8 +113,8 @@ ONLY FORTH DEFINITIONS ALSO FLOAT-OUTPUT-PRIVATE DUP 0> WHILE 2R> - 1 /STRING OVER C@ %C + 1 /STRING 2>R 1- REPEAT