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 bug in example/defstruct that was causing the structure name to be lost when the temporal string pool rolls back to start

Browse source 
FossilOrigin-Name: 470ba5902441b37d35805b9ddba45ff225288d13bbf02a811c8f9522af6a6e8c
This commit is contained in:
crc 2021-12-10 11:46:41 +00:00
parent cb3d1b4b79
commit b63de01059
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
example/defstruct.retro
View file

@ -10,7 +10,7 @@ This can be useful, so I'm doing something similar here.
:make-struct (ns-) d:create , [ here swap fetch allot ] does ;
---reveal---
:defstruct (sa-)
dup a:length
&s:keep dip dup a:length
[ n:dec swap
[ 'ab 'aabab reorder
'@ s:append [ fetch + fetch ] make-helper