The Lambda Lab
/
projects
/
forth.jl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
b27edfb
)
Added C,
author
Tim Vaughan
<tgvaughan@gmail.com>
Mon, 2 May 2016 11:54:38 +0000
(23:54 +1200)
committer
Tim Vaughan
<tgvaughan@gmail.com>
Mon, 2 May 2016 11:54:38 +0000
(23:54 +1200)
src/lib.4th
patch
|
blob
|
history
diff --git
a/src/lib.4th
b/src/lib.4th
index
ad6a3a5
..
a43f6c1
100644
(file)
--- a/
src/lib.4th
+++ b/
src/lib.4th
@@
-8,7
+8,15
@@
: FALSE 0 ;
: NOT 0= ;
: 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 @ - ;
: DEPTH PSP@ PSP0 @ - ;
@@
-383,11
+391,6
@@
( STRINGS ---------------------------------------------------------------------- )
( 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 -- )
( Block copy, however, is important and novel: )
: CMOVE ( src dest length -- )