Path: csiph.com!newsfeed.hal-mli.net!feeder3.hal-mli.net!newsfeed.hal-mli.net!feeder1.hal-mli.net!feeder.erje.net!eu.feeder.erje.net!weretis.net!feeder4.news.weretis.net!feeder2.ecngs.de!ecngs!feeder.ecngs.de!Xl.tags.giganews.com!border1.nntp.ams.giganews.com!nntp.giganews.com!local2.nntp.ams.giganews.com!news.giganews.com.POSTED!not-for-mail
NNTP-Posting-Date: Sat, 27 Oct 2012 13:33:44 -0500
From: Chris Hinsley <chris.hinsley@gmail.com>
Newsgroups: comp.lang.forth
Date: Sat, 27 Oct 2012 19:33:44 +0100
Message-ID: <2012102719334450649-chrishinsley@gmailcom>
References: <2012102715594849117-chrishinsley@gmailcom> <201210271603106615-chrishinsley@gmailcom> <dd0589f1-d982-4279-a3d3-b4cb7b5aea8d@s14g2000vba.googlegroups.com> <1315f2d4-5da9-42dc-af23-d7d7a9f9018b@l12g2000vbj.googlegroups.com> <2012102719252825860-chrishinsley@gmailcom>
MIME-Version: 1.0
Content-Type: text/plain; charset=iso-8859-1; format=flowed
Content-Transfer-Encoding: 8bit
Subject: Re: well formed flag ?
User-Agent: Unison/2.1.9
Lines: 17
X-Usenet-Provider: http://www.giganews.com
X-Trace: sv3-LGKnvxM1TkD5c8xRbFOttzYdSPY2EjXpnERGQB9RmyNg/+n2ue5bQKOY4tRM/SDaNbj0ql8lye3a8Fz!fnOVtlBmvP5wxsAGCZY74rNdd6ZNS+ZRDHSufjRcGU+M2XNGW/hnt55hU5GTCt2bglAJOCs=
X-Complaints-To: abuse@giganews.com
X-DMCA-Notifications: http://www.giganews.com/info/dmca.html
X-Abuse-and-DMCA-Info: Please be sure to forward a copy of ALL headers
X-Abuse-and-DMCA-Info: Otherwise we will be unable to process your complaint properly
X-Postfilter: 1.3.40
X-Original-Bytes: 1531
Xref: csiph.com comp.lang.forth:16777

> 	defword "<", 0, WORD_LT, WORD_INLINE_COMMA
> 	cmp [ebp], ebx
> 	setl bl
> 	sub ebp, byte 4
> 	movzx ebx, bl
> 	neg ebx
> 	ret
> 	defword_end
> 
> This is shorter at 14 bytes rather than 16 ! ;)
> 
> Chris

That should of course be add ebp, byte 4 !!!

Chris