gforth/kernel/int.fs - diff

Return to int.fs CVS log

Up to [gforth] / gforth / kernel

version 1.187, 2011/12/19 19:43:29	version 1.188, 2012/01/15 17:03:56
Line 457 const Create ??? 0 , 3 , char ? c, char	Line 457 const Create ??? 0 , 3 , char ? c, char
name>string dup $20 $1 within if	name>string dup $20 $1 within if
rdrop 2drop false exit \ realistically the name is short	rdrop 2drop false exit \ realistically the name is short
then	then
cfaligned 2dup bounds ?do \ should be a printable string	over + cfaligned over - 2dup bounds ?do \ should be a printable string
i c@ bl < if	i c@ bl < if
2drop unloop rdrop false exit	2drop unloop rdrop false exit
then	then