crc/retroforth
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

formatting adjustents; use a var in n:to-string

Browse source 
FossilOrigin-Name: 1efd0c15592438ea061a80695253637efd0954230d14bf717d1c7effa78e2e9f
This commit is contained in:
crc 2017-10-25 01:32:19 +00:00
parent bb2f41959a
commit 06e82a103c
3 changed files with 10 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
interfaces/image.c
View file

File diff suppressed because one or more lines are too long

16
literate/RetroForth.md
View file

@ -771,13 +771,13 @@ And the inverse forms. (These are included for readability and
orthiginal completion).
~~~
:c:-lowercase? (c-f) c:lowercase? not ;
:c:-uppercase? (c-f) c:uppercase? not ;
:c:-digit? (c-f) c:digit? not ;
:c:-whitespace? (c-f) c:whitespace? not ;
:c:-visible? (c-f) c:visible? not ;
:c:-vowel? (c-f) c:vowel? not ;
:c:-consonant? (c-f) c:consonant? not ;
:c:-lowercase? (c-f) c:lowercase? not ;
:c:-uppercase? (c-f) c:uppercase? not ;
:c:-digit? (c-f) c:digit? not ;
:c:-whitespace? (c-f) c:whitespace? not ;
:c:-visible? (c-f) c:visible? not ;
:c:-vowel? (c-f) c:vowel? not ;
:c:-consonant? (c-f) c:consonant? not ;
~~~
The next few words perform simple transformations.
@ -801,7 +801,7 @@ Convert a decimal (base 10) number to a string.
~~~
{{
:Value `0 ;
'Value var
:correct (c-c)
dup $0 lt? [ $0 over - #2 * + ] if ;
---reveal---

BIN
ngaImage
View file

Binary file not shown.