version 1.21, 2010/12/27 22:39:38
|
version 1.22, 2010/12/28 23:16:02
|
Line 211 charclass [*/] '* +char '/ +char
|
Line 211 charclass [*/] '* +char '/ +char
|
: underflow3 ( -- ) |
: underflow3 ( -- ) |
(( |
(( |
=" /*" |
=" /*" |
\( {** {{ [*] -c? || ` * [*/] -c? }} **} \) |
\( {** {{ [*] -c? || ` * [*/] -c? }} **} \) |
{++ ` * ++} ` / |
{++ ` * ++} ` / |
)) ; |
)) ; |
|
|
\ this still seems to be too complicated |
\ this still seems to be too complicated |
T{ s" /*10203030203030404*/ " underflow3 -> true }T |
T{ s" /*10203030203030404*/ " underflow3 .s -> true }T |
\1 type cr |
\1 type cr |
|
|
: underflow4 ( -- ) |
: underflow4 ( -- ) |