Path: csiph.com!eternal-september.org!feeder.eternal-september.org!mx02.eternal-september.org!.POSTED!not-for-mail
From: Paul Rubin <no.email@nospam.invalid>
Newsgroups: comp.lang.forth
Subject: Re: Boring for most of you, but I'm having fun ... :)
Date: Mon, 28 Dec 2015 22:31:37 -0800
Organization: A noiseless patient Spider
Lines: 14
Message-ID: <87y4cdojee.fsf@jester.gateway.pace.com>
References: <5387d185-d7d1-47f1-ac16-824ec3f8896d@googlegroups.com> <cea9ce08-2c24-40bf-a538-e3d366074c4d@googlegroups.com> <87wprye23s.fsf@nightsong.com> <674240d6-b4c9-44de-80a3-908757ccbae0@googlegroups.com> <1sw352f61p5dj$.vugw736emrk5$.dlg@40tude.net> <3b4c49e5-6ccb-4b38-b22b-8da2cc547ce5@googlegroups.com> <7OidnUoCmopdfhzLnZ2dnUU7-QUAAAAA@supernews.com> <56c7a56e-aa99-4ac1-bf6a-245b65e36411@googlegroups.com>
Mime-Version: 1.0
Content-Type: text/plain
Injection-Info: mx02.eternal-september.org; posting-host="7fb8b9b5119ed656382b2cea88166c4f"; logging-data="9329"; mail-complaints-to="abuse@eternal-september.org";	posting-account="U2FsdGVkX1+YQEahJE2avR72xp9pauPt"
User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.3 (gnu/linux)
Cancel-Lock: sha1:CHZgnCdQNCPJGi2I+DjXQk0yza8= sha1:Sfc/W2ZPli/SIfPiN/71I8oU7fg=
Xref: csiph.com comp.lang.forth:44408

Chris Curl <ccurl609@gmail.com> writes:
> 0 CELL+ CONSTANT CELL

1 CELLS CONSTANT CELL

> VARIABLE tStack 64 CELLS ALLOT
> : tStack.Reset tStack DUP ! ;

I don't think that is safe.  Maybe:

VARIABLE tSP
CREATE tStack 64 CELLS ALLOT
: T.Reset tStack TSP !
...