Path: ...!weretis.net!feeder9.news.weretis.net!news.nk.ca!rocksolid2!i2pn2.org!.POSTED!not-for-mail
From: minforth@gmx.net (minforth)
Newsgroups: comp.lang.forth
Subject: Re: History of CREATE...DOES> =?UTF-8?B?Pw==?=
Date: Fri, 2 Aug 2024 06:27:48 +0000
Organization: novaBBS
Message-ID: <17b1f2dc7b926ec8cb0ad635b6ae81a8@www.novabbs.com>
References: <2024Jul25.141725@mips.complang.tuwien.ac.at> <66a26d3b$1@news.ausics.net> <2024Jul26.091303@mips.complang.tuwien.ac.at> <66a392ee$1@news.ausics.net> <2024Aug1.154846@mips.complang.tuwien.ac.at> <66ac5e0a$1@news.ausics.net>
MIME-Version: 1.0
Content-Type: text/plain; charset=utf-8; format=flowed
Content-Transfer-Encoding: 8bit
Injection-Info: i2pn2.org;
	logging-data="1179586"; mail-complaints-to="usenet@i2pn2.org";
	posting-account="0+ejqm+s29REto3A2x2P4fP+XaUXf51pZgtYBR0nEqI";
User-Agent: Rocksolid Light
X-Spam-Checker-Version: SpamAssassin 4.0.0
X-Rslight-Site: $2y$10$dFbRjV93oOLAGGE0DDW9tecYoRcwqOFWXqNT2/uOiocfPpU8JQ4je
X-Rslight-Posting-User: d2a19558f194e2f1f8393b8d9be9ef51734a4da3
Bytes: 2017
Lines: 33

Really? With

SET-PRECISION / PRECISION ...
Return the number of significant digits currently used
by F.

and with

F. ...
Display, with a trailing space, the top number on the
floating-point stack using fixed-point notation:
  [-] ⟨digits⟩.⟨digits0⟩

i.e. digits+digits0 = number of significant digits

and with

  ⟨sign⟩ := { + | - }
  ⟨digits⟩ := ⟨digit⟩⟨digits0⟩
  ⟨digits0⟩ := ⟨digit⟩*
  ⟨digit⟩ := { 0 | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 }

F. should be standardized clearly enough.

F.ex.

Gforth 0.7.0, Copyright (C) 1995-2008 Free Software Foundation, Inc.
Gforth comes with ABSOLUTELY NO WARRANTY; for details type `license'
Type `bye' to exit
5 set-precision  ok
1.1e-2 f. 0.011  ok  <- expected 5 digits i.e. 0.0110
1.1e-40 f. 0.00000000000000000000000000000000000000011  ok

is just an implementation-defined peculiarity.