I pasted it in
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 }
}
}
(I haven't had
1+ for a few years, memories!)
but my example above produces correct output?
tgunr @tgunr puzzeled
maybe?
track <tuple-graph> tchain [ tuple>nodes ] map [ add ] each .
that "works"
meaning it looks right
but preview looks wrong
The preview reflects each node having the wrong label as seen in the walker when stepping over
if I step into the mapping, its right
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 }
}
}
}
}
oh i see what you mean
label>> is wrong
only if you step over the map call
tuple-node extends node
node has attributes
tgunr @tgunr waiting with bated breath
all nodes share the same tuple instance
unless you clone it
(the attributes)
i swear this worked yesterday
Seems like we should fix that in the graphviz vocab
If you use <node> to make nodes then it's not a problem
<node-attributes> >>attributes
or solve it some other way etc.
