Path: csiph.com!x330-a1.tempe.blueboxinc.net!usenet.pasdenom.info!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!nntp.brightview.co.uk!news.brightview.co.uk.POSTED!not-for-mail NNTP-Posting-Date: Tue, 24 Jan 2012 04:03:40 -0600 Content-Type: text/plain; charset=iso-8859-15; format=flowed; delsp=yes Newsgroups: comp.lang.forth Subject: Re: CASE comparison values References: <32096725.1413.1327338699800.JavaMail.geo-discussion-forums@vbhn11> <4f1da90e.355632593@192.168.0.50> Date: Tue, 24 Jan 2012 10:03:42 -0000 MIME-Version: 1.0 Content-Transfer-Encoding: 7bit From: "Peter Knaggs" Message-ID: User-Agent: Opera Mail/11.60 (Win32) Lines: 16 X-Usenet-Provider: http://www.giganews.com X-Trace: sv3-GuGFfJLd9TSBaoI7zHfeNuD0bDzUGArEGJwcDTPj6N3t/+re/EqVTadZln6zpLP1GruIJFNVkzrkgCc!AKCUz31nMPCpEL8xuCAKx9hIZyGDXiDCXI65C8Mda7PQNrwz/5/ZUGdo8YKiBOU/dLQ= 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: 1656 Xref: x330-a1.tempe.blueboxinc.net comp.lang.forth:9195 alberto pasquale wrote: > > I have used these extensions for range checking, I think they were > initially published in FD > > : ..<= ( n1 n2 -- n n ) OVER MIN ; \ less than or equal > : ..< ( n1 n2 -- n n ) 1- OVER MIN ; \ less than > : ..>= ( n1 n2 -- n n ) OVER MAX ; \ grater than or equal > : ..> ( n1 n2 -- n n ) 1+ OVER MAX ; \ greater than > : ..[] ( n1 n2 -- n n ) >R OVER MAX R> MIN ; \ withing You could of course simply use ?OF ( x flag -- x ). -- Peter Knaggs