--- gforth/string.fs 2011/01/01 14:22:47 1.13 +++ gforth/string.fs 2011/01/09 20:04:15 1.14 @@ -17,6 +17,7 @@ \ You should have received a copy of the GNU General Public License \ along with this program. If not, see http://www.gnu.org/licenses/. +[IFUNDEF] $! : delete ( buffer size n -- ) \ gforth-string \G deletes the first @var{n} bytes from a buffer and fills the \G rest at the end with blanks. @@ -81,3 +82,4 @@ >r >r $@ BEGIN dup WHILE r@ $split i' -rot >r >r execute r> r> REPEAT 2drop rdrop rdrop ; +[THEN] \ No newline at end of file