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 13:21:08 -0800
Organization: A noiseless patient Spider
Lines: 7
Message-ID: <87mvsue0cb.fsf@nightsong.com>
References: <5387d185-d7d1-47f1-ac16-824ec3f8896d@googlegroups.com> <cea9ce08-2c24-40bf-a538-e3d366074c4d@googlegroups.com> <87wprye23s.fsf@nightsong.com> <1o3dk7tu85xy4$.348b0v7sjgf8$.dlg@40tude.net>
Mime-Version: 1.0
Content-Type: text/plain
Injection-Info: mx02.eternal-september.org; posting-host="7fb8b9b5119ed656382b2cea88166c4f"; logging-data="10940"; mail-complaints-to="abuse@eternal-september.org";	posting-account="U2FsdGVkX19LhTKkOct5JuXFmrywtk6m"
User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.3 (gnu/linux)
Cancel-Lock: sha1:dtVb+ZUrotzH9NYcrlfHDCEWZ1o= sha1:5NwO1K3wGB8g+7rEwmrqWrP91tk=
Xref: csiph.com comp.lang.forth:44395

Coos Haak <chforth@hccnet.nl> writes:
>> \ -! doesn't appear to be a standard word
>>: -CELL! ( addr -- ) CELL NEGATE SWAP +! ;
> Even CELL isn't a standard word ;-(

: +CELL ( addr -- ) DUP @ CELL+ ! ;
: -CELL ( addr -- ) -1 CELLS SWAP +! ;