 
 M: #label node>quot
     [
+        dup node-param literalize ,
         dup #label-loop? "#loop: " "#label: " ?
         over node-param word-name append comment,
     ] 2keep

    [ , ] [ >r drop t r> ] if*
    dup effect-str "#shuffle: " swap append comment, ;

: pushed-literals node-out-d [ value-literal ] map ;

M: #push node>quot nip pushed-literals % ;


kernel.private math.parser namespaces optimizer prettyprint
prettyprint.backend sequences words arrays match macros
assocs sequences.private optimizer.specializers generic
combinators sorting math quotations ;
IN: optimizer.debugger

! A simple tool for turning dataflow IR into quotations, for
