From b63de010598a9553a005d17b8907ff1b13ee8d23 Mon Sep 17 00:00:00 2001
From: crc <crc@noemail.net>
Date: Fri, 10 Dec 2021 11:46:41 +0000
Subject: [PATCH] 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
---
 example/defstruct.retro | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/example/defstruct.retro b/example/defstruct.retro
index 8b83d3c..12df4a6 100644
--- 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