From 09e460679137c54bae3cc9eddeff1390ca9245f1 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Wed, 24 Jun 2015 18:46:39 -0700 Subject: [PATCH] compiler.cfg.debugger: alien-invoke insn nodes were printing double quotes in the dot file output. If you would pprint a string, instead print that string so the double quotes are not present in the output. --- basis/compiler/cfg/debugger/debugger.factor | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/basis/compiler/cfg/debugger/debugger.factor b/basis/compiler/cfg/debugger/debugger.factor index 3dbcd26640..3a75eb7f98 100644 --- a/basis/compiler/cfg/debugger/debugger.factor +++ b/basis/compiler/cfg/debugger/debugger.factor @@ -11,7 +11,7 @@ compiler.cfg.save-contexts compiler.cfg.utilities compiler.tree.builder compiler.tree.optimizer compiler.units fry hashtables io kernel math namespaces prettyprint prettyprint.backend prettyprint.custom -prettyprint.sections quotations random sequences vectors words ; +prettyprint.sections quotations random sequences vectors words strings ; FROM: compiler.cfg.linearization => number-blocks ; IN: compiler.cfg.debugger @@ -50,7 +50,13 @@ M: ##phi insn. clone [ [ [ number>> ] dip ] assoc-map ] change-inputs call-next-method ; -M: insn insn. tuple>array but-last [ bl ] [ pprint ] interleave nl ; +! XXX: pprint on a string prints the double quotes. +! This will cause graphviz to choke, so print without quotes. +M: insn insn. tuple>array but-last [ + bl + ] [ + dup string? [ print ] [ pprint ] if + ] interleave nl ; : block. ( bb -- ) "=== Basic block #" write dup block-number . nl