>>>>> "Marcel" == Marcel Hendrix <[email protected]> writes:
> What has changed? It appears something is wrong with array indexing. > However, the official Gforth files from the FSL > (http://www.taygeta.com/fsl/scilib.html) are used? X-Online-Scanned: > by Cloudmark authority (on smtp09.online.nl) > I have append all three files under question. > Sequences of pi xx{ 1 } f! xx{ 1 } f@ f. seem to work. Putting it > inside a do loop in a definition fails as shown. If I run your examples here I get for xx{ }fprint 195.09 382.683 555.57 707.107 831.47 923.88 980.785 1000. 980.785 923.88 831.47 707.107 555.57 382.683 195.09 0.000000000000122465 -195.09 -382.683 -555.57 -707.107 -831.47 -923.88 -980.785 -1000. -980.785 -923.88 -831.47 -707.107 -555.57 -382.683 -195.09 -0.000000000000244929 195.09 Which looks correct. When adding 'xx{ 32 1 }FWT' i get the same values as listed at the bottom of walsh.fs. This is with gforth-0.7.0 amd64 on debian squeeze. Same results on 32-bit mips. Maybe there's something wrong with the windows version of gforth? Can you add a '~~' tracer in wtest-init, so that it reads xx{ I ~~ } F! What does it output? BTW gforth comes with its own version of fsl-utilg.fth, try require fsl-util.4th cheers, David -- GnuPG public key: http://dvdkhlng.users.sourceforge.net/dk.gpg Fingerprint: B17A DC95 D293 657B 4205 D016 7DEF 5323 C174 7D40
pgpWRzF866L5f.pgp
Description: PGP signature
