--- ray/src/common/calprnt.c	2003/02/25 02:47:21	2.3
+++ ray/src/common/calprnt.c	2012/10/24 00:39:09	2.6
@@ -1,5 +1,5 @@
 #ifndef lint
-static const char	RCSid[] = "$Id: calprnt.c,v 2.3 2003/02/25 02:47:21 greg Exp $";
+static const char	RCSid[] = "$Id: calprnt.c,v 2.6 2012/10/24 00:39:09 greg Exp $";
 #endif
 /*
  *  calprint.c - routines for printing calcomp expressions.
@@ -9,16 +9,18 @@ static const char	RCSid[] = "$Id: calprnt.c,v 2.3 2003
 
 #include  <stdio.h>
 
+#include  "rterror.h"
 #include  "calcomp.h"
 
 
 void
-eprint(ep, fp)			/* print a parse tree */
-register EPNODE  *ep;
-FILE  *fp;
+eprint(				/* print a parse tree */
+	EPNODE  *ep,
+	FILE  *fp
+)
 {
     static EPNODE  *curdef = NULL;
-    register EPNODE  *ep1;
+    EPNODE  *ep1 = NULL;
 
     switch (ep->type) {
 
@@ -100,11 +102,12 @@ FILE  *fp;
 
 
 void
-dprint(name, fp)		/* print a definition (all if no name) */
-char  *name;
-FILE  *fp;
+dprint(			/* print a definition (all if no name) */
+	char  *name,
+	FILE  *fp
+)
 {
-    register EPNODE  *ep;
+    EPNODE  *ep;
     
     if (name == NULL)
 	for (ep = dfirst(); ep != NULL; ep = dnext()) {