From bcc7511676812ab8d42b3d09e9826803bdf10cc5 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@factorcode.org>
Date: Wed, 13 Feb 2008 18:43:05 -0600
Subject: [PATCH] Better dataflow>quot
---
extra/optimizer/debugger/debugger.factor | 12 ++++++++----
1 file changed, 8 insertions(+), 4 deletions(-)
diff --git a/extra/optimizer/debugger/debugger.factor b/extra/optimizer/debugger/debugger.factor
index 729281e81b..ebf14417c0 100755
--- a/extra/optimizer/debugger/debugger.factor
+++ b/extra/optimizer/debugger/debugger.factor
@@ -95,14 +95,18 @@ M: #dispatch node>quot
node-children swap [ dataflow>quot ] curry map ,
\ dispatch , ;
-M: #return node>quot
- dup node-param unparse "#return " swap append comment, ;
-
M: #>r node>quot nip node-in-d length \ >r <array> % ;
M: #r> node>quot nip node-out-d length \ r> <array> % ;
-M: object node>quot dup class word-name comment, ;
+M: object node>quot
+ [
+ dup class word-name %
+ " " %
+ dup node-param unparse %
+ " " %
+ dup effect-str %
+ ] "" make comment, ;
: (dataflow>quot) ( ? node -- )
dup [