add missing source data for a: and d: words
FossilOrigin-Name: 6cd7cec6ee8dff1be8774f32982625fd56ee36927d3452b733c41162392b0137
This commit is contained in:
parent
8aa8e3e7ee
commit
fe21169724
5 changed files with 703 additions and 695 deletions
4
LICENSE
4
LICENSE
|
@ -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:
|
||||
|
||||
|
|
|
@ -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:
|
||||
|
||||
================================================================
|
||||
|
|
|
@ -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
|
||||
~~~
|
||||
|
|
|
@ -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
|
||||
|
|
1383
vm/nga-c/image.c
1383
vm/nga-c/image.c
File diff suppressed because it is too large
Load diff
Loading…
Reference in a new issue