From ad14790e55efac4c329994932a79b8ea8c36ca22 Mon Sep 17 00:00:00 2001 From: Novatux Date: Thu, 29 Aug 2013 10:47:18 +0200 Subject: [PATCH] Add license --- LICENSE | 1 + forth2.fth | 2 +- 2 files changed, 2 insertions(+), 1 deletion(-) create mode 100644 LICENSE diff --git a/LICENSE b/LICENSE new file mode 100644 index 0000000..addde5d --- /dev/null +++ b/LICENSE @@ -0,0 +1 @@ +PForth by Nore/Novatux, licensed under the CC-BY diff --git a/forth2.fth b/forth2.fth index c6e7430..590bc37 100644 --- a/forth2.fth +++ b/forth2.fth @@ -172,7 +172,7 @@ FORTH : BEGIN HERE ; IMMEDIATE : FIND-WORD-DICO SWAP >R BEGIN DUP 4 - RSTR R@ = IF 2 PICK R@ STR= IF NIP R> DROP EXIT THEN ELSE DROP THEN 3 - @ DUP 0= UNTIL NIP R> DROP ; : FIND-WORD LATEST @ FIND-WORD-DICO ; -: FIND COUNT OVER SWAP FIND-WORD DUP IF NIP DUP 1- C@ 128 AND IF 1 ELSE -1 THEN THEN ; +: FIND DUP COUNT FIND-WORD DUP IF NIP DUP 1- C@ 128 AND IF 1 ELSE -1 THEN THEN ; : ' PARSE-WORD FIND-WORD ; : POSTPONE ' DUP 1- C@ 128 AND IF , ELSE ['] (lit) , , ['] , , THEN ; IMMEDIATE \ : LITERAL [ ' (lit) , ] , , ; IMMEDIATE