X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=forth.jl.git;a=blobdiff_plain;f=src%2Flib.4th;h=a43f6c1f8ded936e2be49a36fb69b8814bb3524c;hp=ad6a3a55c8ac618e4bc2df4791f31d8bf451a54f;hb=8170797f810ae128fda2d6ccf8eaaf37de177a64;hpb=b27edfb401b367f76756f26be6f139f59c058a83

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 -- )