From 8170797f810ae128fda2d6ccf8eaaf37de177a64 Mon Sep 17 00:00:00 2001 From: Tim Vaughan Date: Mon, 2 May 2016 23:54:38 +1200 Subject: [PATCH] Added C, --- src/lib.4th | 15 +++++++++------ 1 file changed, 9 insertions(+), 6 deletions(-) diff --git a/src/lib.4th b/src/lib.4th index ad6a3a5..a43f6c1 100644 --- a/src/lib.4th +++ b/src/lib.4th @@ -8,7 +8,15 @@ : FALSE 0 ; : NOT 0= ; -: CELLS ; \ Allow for slightly more portable code + \ Allow for slightly more portable code +: CELLS ; + +\ Since the smallest unit of memory in our system is 64 bits and since strings +\ are stored as arrays of 64 bit integers, the character store/fetch words are +\ just aliases of the standard store/fetch words. +: C! ! ; +: C@ @ ; +: C, , ; : DEPTH PSP@ PSP0 @ - ; @@ -383,11 +391,6 @@ ( STRINGS ---------------------------------------------------------------------- ) -( Since the smallest unit of memory in our system is 64 bits and since strings - are stored as arrays of 64 bit integers, the character store/fetch words are - just aliases of the standard store/fetch words. ) -: C! ! ; -: C@ @ ; ( Block copy, however, is important and novel: ) : CMOVE ( src dest length -- ) -- 2.20.1