| |
|
| : struct% struct ; \ struct is redefined in gray |
: struct% struct ; \ struct is redefined in gray |
| |
|
| |
warnings off |
| |
|
| include ./gray.fs |
include ./gray.fs |
| |
|
| 32 constant max-effect \ number of things on one side of a stack effect |
32 constant max-effect \ number of things on one side of a stack effect |
| THEN }} |
THEN }} |
| )) <- if-comment |
)) <- if-comment |
| |
|
| (( (( eval-comment || forth-comment || c-comment || else-comment || if-comment )) ?? nonl ** )) <- comment-body |
(( (( ` g || ` G )) {{ start }} nonl ** |
| |
{{ end |
| |
forth-flag @ IF ." group " type cr THEN |
| |
c-flag @ IF ." GROUP(" type ." )" cr THEN }} |
| |
)) <- group-comment |
| |
|
| |
(( (( eval-comment || forth-comment || c-comment || else-comment || if-comment || group-comment )) ?? nonl ** )) <- comment-body |
| |
|
| (( ` \ comment-body nleof )) <- comment ( -- ) |
(( ` \ comment-body nleof )) <- comment ( -- ) |
| |
|
