Re: [Amforth] Compiling Label

[Matthias T. <mt...@we...>]

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

Hi Craig,
> 
>> I tried your suggesting but sliteral cannot be compiled into
>> another definition for some reason.
> 
> sliteral is an immediate word. That means that you will have to use
> postpone to compile it. Sorry, I forgot it..

A even better solution would be using s, (s-comma)

: label: create s, , does> dup . ;

With this definition, the at least problematic 1+
to skip an XT is no longer necessary

> (ATmega32)> 42 s" hello" label: example ok (ATmega32)> words 
> example label: postpone ... (ATmega32)> example 3824  ok 
> (ATmega32)> icount itype hello ok (ATmega32)> example icount 2/ 1+
> + @i . 3824 42 ok (ATmega32)>

HTH
Matthias


-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.11 (GNU/Linux)
Comment: Using GnuPG with Thunderbird - http://www.enigmail.net/

iEYEARECAAYFAlKGakkACgkQ9bEHdGEMFjOjFACfXlmGKXS0R+Q+bCveJ6XTcMaj
LboAniAKrEaBEYpRQe2/DloHMQiDlSM+
=Ol5b
-----END PGP SIGNATURE-----