     [ , ] [ >r drop t r> ] if*
     dup effect-str "#shuffle: " swap append comment, ;
 
-: pushed-literals node-out-d [ value-literal ] map ;
+: pushed-literals node-out-d [ value-literal literalize ] 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 ;
IN: optimizer.debugger

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


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