fixed a bug

This commit is contained in:
Koichi Nakamura 2021-01-05 09:56:59 +09:00
parent 9af496fd66
commit 051fd0eb2f

View file

@ -1123,7 +1123,9 @@ decimal \ set default to decimal
\ ( c-from c-to c )
over c!
1+ swap 1+ swap
repeat drop drop drop
repeat
over c!
drop drop
;
\ ( c-addr -- )