Implement feedback

This commit is contained in:
bonbud-macryg 2024-05-31 16:02:09 +01:00 committed by SuperCoolYun
parent d509575f32
commit 265be8bf74

View File

@ -17,8 +17,10 @@
^- (set stud:neo) ^- (set stud:neo)
(sy %counter-diff ~) (sy %counter-diff ~)
:: ::
:: counter can have no children ::
:: beneath it in the tree :: counter does not "constrain" its children;
:: any shrub can be made below this shrub in the
:: namespace, they can have any state and any kids
++ kids ++ kids
^- kids:neo ^- kids:neo
*kids:neo *kids:neo
@ -36,11 +38,23 @@
:: ::
:: de-vase the state; we don't know what it is, :: de-vase the state; we don't know what it is,
:: in most cases it will be counter's old state :: in most cases it will be counter's old state
+* this !<(number state-vase) +* state !<(number state-vase)
::
:: +init, like +on-init
++ init
::
:: minimal +init, just returns the
:: initial state passed in on %make
|= old=(unit pail:neo)
^- (quip card:neo pail:neo)
[~ (need old)]
::
:: +poke, like +on-poke :: +poke, like +on-poke
++ poke ++ poke
:: ::
:: XX explain stud :: a stud (e.g. %number or %counter-diff) is kind
:: of like a mark, it only gets more complicated
:: than that with types from other desks/ships
|= [=stud:neo vaz=vase] |= [=stud:neo vaz=vase]
:: ::
:: return a (list card:neo) and a :: return a (list card:neo) and a
@ -55,15 +69,6 @@
?> =(-.act %inc) ?> =(-.act %inc)
:: ::
:: return no cards and a pail :: return no cards and a pail
[~ [%number !>(+(this))]] [~ [%number !>(+(state))]]
::
:: +init, like +on-init
++ init
::
:: minimal +init, just returns the
:: initial state passed in on %make
|= old=(unit pail:neo)
^- (quip card:neo pail:neo)
[~ (need old)]
-- --
-- --