From 5abb9a60c4cb9b4f9ae98a5c1671bccfadeaa176 Mon Sep 17 00:00:00 2001
From: Adam Sampson <ats@offog.org>
Date: Wed, 6 Sep 2006 21:58:10 +0000
Subject: [PATCH] Slightly less silly example pass

---
 fco/PhaseSource.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/fco/PhaseSource.hs b/fco/PhaseSource.hs
index ca42741..52b29c4 100644
--- a/fco/PhaseSource.hs
+++ b/fco/PhaseSource.hs
@@ -9,7 +9,7 @@ phaseSource
   = (Phase "Source rewriting"
       [basePass1]
       [
-        ("Nuke variable names", nukeVars)
+        ("C-ify identifiers", cifyIdentifiers)
       ])
 
 -- {{{ BEGIN basePass1
@@ -140,9 +140,9 @@ basePass1 next top node
       _ -> next node
 -- }}} END
 
-nukeVars :: Pass
-nukeVars next top node
+cifyIdentifiers :: Pass
+cifyIdentifiers next top node
   = case node of
-      OcName n -> OcName "fish"
+      OcName n -> OcName [if c == '.' then '_' else c | c <- n]
       _ -> next node