crc/retroforth
1
0
Fork 0
Code Issues Pull requests 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 ; :make-struct (ns-) d:create , [ here swap fetch allot ] does ;
---reveal--- ---reveal---
:defstruct (sa-) :defstruct (sa-)
dup a:length &s:keep dip dup a:length
[ n:dec swap [ n:dec swap
[ 'ab 'aabab reorder [ 'ab 'aabab reorder
'@ s:append [ fetch + fetch ] make-helper '@ s:append [ fetch + fetch ] make-helper