add missing source data for a: and d: words

FossilOrigin-Name: 6cd7cec6ee8dff1be8774f32982625fd56ee36927d3452b733c41162392b0137
This commit is contained in:
crc 2023-10-22 21:45:13 +00:00
parent 8aa8e3e7ee
commit fe21169724
5 changed files with 703 additions and 695 deletions

View file

@ -1,7 +1,5 @@
RETRO is a personal, minimalistic Forth
## Legalities
Permission to use, copy, modify, and/or distribute this software
for any purpose with or without fee is hereby granted, provided
that the copyright notice and this permission notice appear in
@ -19,7 +17,7 @@ OF THIS SOFTWARE.
RETRO 12 is:
Copyright (c) 2008 - 2022, Charles Childers
Copyright (c) 2008 - 2023, Charles Childers
Portions of the code derive from RETRO 11, which was:

View file

@ -17,6 +17,6 @@
- removed some unneeded files
- update tools/missing-dsource.retro
- add missing source data for vocabularies:
double: file: fll: mem: script:
a: d: double: file: fll: mem: script:
================================================================

View file

@ -3,7 +3,6 @@
This contains a variety of words from my more recent systems
and things that will be standard in the future.
~~~
:d:use-hashes
&eq? &d:lookup #5 - store
@ -16,4 +15,7 @@ and things that will be standard in the future.
&d:name &d:lookup #8 - store
#0 &d:lookup store
#0 &d:lookup n:inc store ;
'interface/future.retro 'd:use-hashes d:set-source
'interface/future.retro 'd:use-strings d:set-source
~~~

View file

@ -7,6 +7,7 @@ each of the provided words are found in.
~~~
:d:set-source (ss-) &s:dedup dip d:lookup d:source store ;
'interface/sources.retro 'd:set-source d:set-source
~~~
~~~
@ -46,6 +47,10 @@ dup 'a:eq? d:set-source
dup 'a:middle d:set-source
dup 'a:right d:set-source
dup 'a:left d:set-source
dup 'a:first d:set-source
dup 'a:last d:set-source
dup 'a:indices/string d:set-source
dup 'a:hash d:set-source
dup '} d:set-source
dup '{ d:set-source
dup 'a:temp d:set-source

File diff suppressed because it is too large Load diff