fix test block type in defstruct.forth

FossilOrigin-Name: 304c7428bf2df05749ab999fad20fa2157a99f0a0ade0555b8420954d98afcf7
This commit is contained in:
crc 2019-02-13 19:26:45 +00:00
parent 77a1b7a019
commit 79e5cdabae

View file

@ -21,8 +21,7 @@ This can be useful, so I'm doing something similar here.
}}
~~~
~~~
```
'book { 'title 'author 'subject 'book-id } defstruct
book 'A const
@ -35,4 +34,4 @@ book 'A const
'%s_by_%s_is_a_%s_book. s:format s:put nl ;
&A info
~~~
```