From 84e085e5d5c704fb4cdd687d1dc562b98c49e70e Mon Sep 17 00:00:00 2001
From: jackbackrack
Date: Fri, 24 Apr 2015 13:17:18 -0700
Subject: improve flo output

---
 src/main/stanza/passes.stanza | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/main/stanza/passes.stanza b/src/main/stanza/passes.stanza
index 9fbda7a5..41a8dca3 100644
--- a/src/main/stanza/passes.stanza
+++ b/src/main/stanza/passes.stanza
@@ -1980,7 +1980,7 @@ defn emit-s (s:Stmt, v:List<Symbol>, top:Symbol) :
          if value(s) typeof WritePort :
             val e = value(s) as WritePort
             val n = gensym(`F)
-            emit-all([top "::" n " = wr'" prim-width(type(e)) " " enable(e) " " mem(e) " " index(e) " " name(s) "\n"], top)
+            emit-all([top "::" n " = wr'" prim-width(type(e)) " " enable(e) " " mem(e) " " index(e) " " top "::" name(s) "\n"], top)
          else :
            emit-all([top "::" name(s) " = " maybe-mov(value(s)) value(s) "\n"], top)
       (s:Begin) : do(emit-s{_, v, top}, body(s))
-- 
cgit v1.2.3