expand enum definitions for Rr-experimental

1 files changed, 7 insertions, 6 deletions

diff --git a/Source/Modules/r.cxx b/Source/Modules/r.cxx
index 8b3bc20bb..2d1d84448 100644
--- a/Source/Modules/r.cxx
+++ b/Source/Modules/r.cxx
@@ -1214,12 +1214,13 @@ int R::enumDeclaration(Node *n) {
 	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);