|
|
@@ -7,9 +7,9 @@ CREATE XCURRENT 0 , |
|
|
|
: XFIND XCURRENT @ SWAP _find DROP _xapply ; |
|
|
|
: X' XCON ' XCOFF ; : X['] XCON ' _xapply LITN XCOFF ; |
|
|
|
: XCOMPILE XCON ' _xapply LITN |
|
|
|
LIT< , FIND DROP _xapply , XCOFF ; |
|
|
|
LIT" ," FIND DROP _xapply , XCOFF ; |
|
|
|
: X[COMPILE] XCON ' _xapply , XCOFF ; |
|
|
|
: XDO LIT< 2>R XFIND , H@ ; |
|
|
|
: XLOOP LIT< (loop) XFIND , H@ - C, ; |
|
|
|
: XIF LIT< (?br) XFIND , H@ 1 ALLOT ; |
|
|
|
: XELSE LIT< (br) XFIND , 1 ALLOT [COMPILE] THEN H@ 1- ; |
|
|
|
: XDO LIT" 2>R" XFIND , H@ ; |
|
|
|
: XLOOP LIT" (loop)" XFIND , H@ - C, ; |
|
|
|
: XIF LIT" (?br)" XFIND , H@ 1 ALLOT ; |
|
|
|
: XELSE LIT" (br)" XFIND , 1 ALLOT [COMPILE] THEN H@ 1- ; |