fix bug in example/defstruct that was causing the structure name to be lost when the temporal string pool rolls back to start

FossilOrigin-Name: 470ba5902441b37d35805b9ddba45ff225288d13bbf02a811c8f9522af6a6e8c
2021-12-10 11:46:41 +00:00 · 2021-12-10 11:46:41 +00:00 · b63de01059
commit b63de01059
parent cb3d1b4b79
1 changed files with 1 additions and 1 deletions
--- a/example/defstruct.retro
+++ b/example/defstruct.retro
@ -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