crc/retroforth
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

correct bugs in defstruct example

Browse source 
FossilOrigin-Name: 68b78ac0df4d468b55062888ae464e4addb0d39fdbe5d4fe91763f2f1c36ca4e
This commit is contained in:
crc 2019-01-03 21:49:43 +00:00
parent cff539e338
commit 36f2f1199a
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
example/defstruct.forth
View file

@ -9,8 +9,8 @@ This can be useful, so I'm doing something similar here.
:make-helper (nsq-) [ d:create , ] dip does ;
:make-struct (ns-) d:create , [ here swap fetch allot ] does ;
---reveal---
:defstruct (sq-)
set:make dup set:length
:defstruct (sa-)
dup set:length
[ n:dec swap
[ 'ab 'aabab reorder
'@ s:append [ fetch + fetch ] make-helper
@ -23,12 +23,12 @@ This can be useful, so I'm doing something similar here.
~~~
'book [ 'title 'author 'subject 'book-id ] defstruct
'book { 'title 'author 'subject 'book-id } defstruct
book 'A const
'The_Hobbit s:keep &A title!
'J.R.R._Tolkien s:keep &A author!
'Fantasy s:keep &A subject!
"The_Hobbit &A title!
"J.R.R._Tolkien &A author!
"Fantasy &A subject!
:info (a-)
[ subject@ ] [ author@ ] [ title@ ] tri