commit 7f82a5d1c4229c4c111de99417590dcba0aae168
author joequant <joequant@gmail.com> Sat Jan 12 22:44:40 2013 +0800
committer joequant <joequant@gmail.com> Sat Jan 12 22:44:40 2013 +0800
tree 2e989f0882d4f6bc0e4d68841d302c2d02163b49
parent a6d456a15eb509719aece348c5717f76c68b9e71

expand enum definitions for R

Source/Modules/r.cxx

diff --git a/Source/Modules/r.cxx b/Source/Modules/r.cxx
index 8b3bc20..2d1d844 100644
--- a/Source/Modules/r.cxx
+++ b/Source/Modules/r.cxx
@@ -1214,12 +1214,13 @@
 	value++;
       else 
 	value = inval;
-    } else
-      value++;
-    
-    Printf(scode, "%s%s%s'%s' = %d%s\n", tab8, tab8, tab8, name, value,
-	   nextSibling(c) ? ", " : "");
-    //      }
+      Printf(scode, "%s%s%s'%s' = %d%s\n", tab8, tab8, tab8, name, value,
+	     nextSibling(c) ? ", " : "");
+    } else {
+      Printf(scode, "%s%s%s'%s' = %d%s\n", tab8, tab8, tab8, name, 
+	     Getattr(c, "value"),
+	     nextSibling(c) ? ", " : "");
+    }
   }
   
   Printv(scode, "))", NIL);