Path: ...!eternal-september.org!feeder3.eternal-september.org!news.eternal-september.org!eternal-september.org!.POSTED!not-for-mail
From: sjack@dontemail.me (sjack)
Newsgroups: comp.lang.forth
Subject: Re: Locals revisited
Date: Mon, 31 Mar 2025 15:01:30 -0000 (UTC)
Organization: A noiseless patient Spider
Lines: 26
Message-ID: <vseao9$ijao$1@dont-email.me>
References: <nnd$6218682b$184a5797@0b341edb9d03c6de> <19029ff0c8e7cf53335fe62639308e7f92d10240@i2pn2.org> <nnd$28274ec3$7e343c43@2fd4482157b80849> <4b84665e38d5a523efc2479f48338ed55d142185@i2pn2.org> <nnd$68812bcc$259dc519@3704bb22598d05d0> <a1144a7ebbf33f269eaa3fd2d2322db8dca32cc0@i2pn2.org>
Injection-Date: Mon, 31 Mar 2025 17:01:30 +0200 (CEST)
Injection-Info: dont-email.me; posting-host="837ac521506392aec17c286aaf921899";
	logging-data="609624"; mail-complaints-to="abuse@eternal-september.org";	posting-account="U2FsdGVkX1/NnXfE/iKUJpBRscP5qRnj"
User-Agent: tin/2.6.4-20240224 ("Banff") (Linux/6.8.0-56-generic (x86_64))
Cancel-Lock: sha1:f0vcv3GsPRUxNIuvLAZgd9k2kZo=
Bytes: 1507

dxf <dxforth@gmail.com> wrote:
> The question then is can HEX: DEC: be justified.  While you might because
> CO exists, I'm not sure I could.
> 

Toad extension:

-- BHEX  ( R: -> base -- )
-- HEX Back Trek
-- save BASE
-- Trek: set HEX
-- Back: restore BASE
: BHEX  PRO
  BASE @ >R
  BACK R> BASE !
  TREK HEX
  CONT ;

: foo bhex . ;

100 dup 
i. foo --> 64 
i. . --> 100 
:) 
-- 
me