Miroirs/retroforth
1
0
Fork 0
mirror of https://git.sr.ht/~crc_/retroforth synced 2024-11-16 19:48:56 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

fix s:trim-left

Browse source 
FossilOrigin-Name: 6e7b11d433b2d4098379b0e649c94fa7344b47c4b72c1e285e35c18cb962ed63
This commit is contained in:
crc 2017-11-14 01:47:26 +00:00
parent fe587f69d9
commit 10a5177776
3 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
interfaces/image.c
View file

File diff suppressed because one or more lines are too long

2
literate/RetroForth.md
View file

@ -606,7 +606,7 @@ Trimming removes leading (`s:trim-left`) or trailing (`s:trim-right`)
spaces from a string. `s:trim` removes both leading and trailing spaces.
~~~
:s:trim-left (s-s) s:temp [ fetch-next [ #32 eq? ] [ n:zero? ] bi and ] while n:dec ;
:s:trim-left (s-s) s:temp [ fetch-next [ #32 eq? ] [ n:-zero? ] bi and ] while n:dec ;
:s:trim-right (s-s) s:temp s:reverse s:trim-left s:reverse ;
:s:trim (s-s) s:trim-right s:trim-left ;
~~~

BIN
ngaImage
View file

Binary file not shown.