- dup locals>> [ word? ] all? [
- <block \ :> pprint-word locals>> {
- [ length 1 > [ "(" text ] when ]
- [ [ pprint-var ] each ]
- [ length 1 > [ ")" text ] when ]
- } cleave block>
- ] [ pprint-tuple ] if ;
+ dup local>> word?
+ [ <block \ :> pprint-word local>> pprint-var block> ]
+ [ pprint-tuple ] if ;
+
+M: multi-def pprint*
+ dup locals>> [ word? ] all?
+ [ <block \ :> pprint-word "(" text locals>> [ pprint-var ] each ")" text block> ]
+ [ pprint-tuple ] if ;