[remove TodoNothing in favor of using a list for TodoExp
John Meacham <john@repetae.net>**20070522022640] hunk ./C/FromGrin2.hs 41
-data Todo = TodoReturn | TodoExp Expression | TodoNothing  | TodoDecl Name Type
+data Todo = TodoReturn | TodoExp [Expression] | TodoDecl Name Type
hunk ./C/FromGrin2.hs 67
-runC grin (C m) =  execUniq1 (runRWST m Env { rGrin = grin, rTodo = TodoNothing, rEMap = mempty, rInscope = mempty } emptyHcHash)
+runC grin (C m) =  execUniq1 (runRWST m Env { rGrin = grin, rTodo = TodoExp [], rEMap = mempty, rInscope = mempty } emptyHcHash)
hunk ./C/FromGrin2.hs 220
-    ss <- localTodo TodoNothing (convertBody e)
+    ss <- localTodo (TodoExp []) (convertBody e)
hunk ./C/FromGrin2.hs 226
-    ss <- localTodo (TodoExp st) (convertBody e)
+    ss <- localTodo (TodoExp [st]) (convertBody e)
hunk ./C/FromGrin2.hs 326
-        TodoNothing -> return jerr
hunk ./C/FromGrin2.hs 335
---convertBody (Store  n@NodeC {} :>>= (Var vn vt) :-> e') = do
---    (x,y) <- newNode sptr_t n
---    (vn,vt) <- fetchVar' vn vt
---    d <- newAssignVar vt vn y
---    e'' <- convertBody e'
---    return (x & d & e'')
hunk ./C/FromGrin2.hs 344
-    ss <- localTodo (TodoExp v')  (convertBody e)
+    ss <- localTodo (TodoExp [v'])  (convertBody e)
hunk ./C/FromGrin2.hs 381
-        TodoExp v -> return (v =* er)
+        TodoExp [v] -> return (v =* er)
hunk ./C/FromGrin2.hs 383
-        TodoNothing -> return $ expr er
+        TodoExp [] -> return $ expr er