Return to wf.fs CVS log | Up to [gforth] / gforth |
version 1.37, 2005/06/13 19:36:41 | version 1.38, 2005/06/28 15:22:45 |
---|---|
Line 510 true Value toc-image | Line 510 true Value toc-image |
3 OF s" down" class= ENDOF | 3 OF s" down" class= ENDOF |
ENDCASE | ENDCASE |
THEN | THEN |
s" a" tagged | s" a" tag parse-string s" a" /tag |
THEN | THEN |
rdrop | rdrop |
1 toc-index +! toc-index @ /toc-line mod 0= | 1 toc-index +! toc-index @ /toc-line mod 0= |