IN: scratchpad TUPLE: foo a b c ;
TUPLE: bar < foo d e f ;
IN: scratchpad bar tchain [ tuple>nodes ] map .
{
T{ tuple-node
{ id "bar" }
{ tuple bar }
{ slots { } }
{ next# 2 }
}
T{ tuple-node
{ id "foo" }
{ tuple foo }
{ slots { } }
{ next# 2 }
}
T{ tuple-node
{ id "tuple" }
{ tuple tuple }
{ slots { } }
{ next# 1 }
}
}
1+
for a few years, memories!)
track <tuple-graph> tchain [ tuple>nodes ] map [ add ] each .
IN: scratchpad track <tuple-graph> tchain [ tuple>nodes ] map [ add ] each .
T{ graph
{ id "track" }
{ directed? t }
{ statements
V{
T{ graph-attributes
{ rankdir "LR" }
{ size "8,8" }
}
T{ node-attributes
{ fontsize "8" }
{ shape "record" }
}
T{ tuple-node
{ id "track" }
{ tuple track }
{ slots { } }
{ next# 2 }
}
T{ tuple-node
{ id "pack" }
{ tuple pack }
{ slots { } }
{ next# 2 }
}
T{ tuple-node
{ id "aligned-gadget" }
{ tuple aligned-gadget }
{ slots { } }
{ next# 2 }
}
T{ tuple-node
{ id "gadget" }
{ tuple gadget }
{ slots { } }
{ next# 2 }
}
T{ tuple-node
{ id "rect" }
{ tuple rect }
{ slots { } }
{ next# 2 }
}
T{ tuple-node
{ id "tuple" }
{ tuple tuple }
{ slots { } }
{ next# 1 }
}
}
}
}
label>>
is wrong
<node-attributes> >>attributes