From 39119d45bb608ad9f61213007e5a0897cfc6ac04 Mon Sep 17 00:00:00 2001 From: Ulrich Hoffmann Date: Sat, 26 Oct 2019 11:52:22 +0200 Subject: [PATCH] Fix typos in tokenizer --- preForth/seedForth-tokenizer.fs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/preForth/seedForth-tokenizer.fs b/preForth/seedForth-tokenizer.fs index 2901db8..f3063cd 100644 --- a/preForth/seedForth-tokenizer.fs +++ b/preForth/seedForth-tokenizer.fs @@ -12,7 +12,7 @@ #hashsize 1 - Constant tinymask : fold ( x1 -- x2 ) dup #hashbits rshift xor tinymask and ; -[ELSE] \ #hasbits has 16 bits or more +[ELSE] \ #hashbits has 16 bits or more #hashsize 1 - Constant mask : fold ( x1 -- x2 ) dup #hashbits rshift swap mask and xor ; @@ -97,7 +97,7 @@ Token rp@ Token rp! Token $lit Token num LOOP r> IF negate THEN true ; -: seed-name ( c-addr u ) +: seed-name ( c-addr u -- ) 2dup token@ dup IF nip nip execute EXIT THEN drop 2dup char-lit? IF nip nip seed num seed-number seed bye EXIT THEN drop 2dup number? IF nip nip seed num seed-number seed bye EXIT THEN drop -- 2.34.1