===================================================================
RCS file: /home/cvs/OpenXM_contrib2/asir2000/io/spexpr.c,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -p -r1.14 -r1.15
--- OpenXM_contrib2/asir2000/io/spexpr.c	2001/08/06 01:48:33	1.14
+++ OpenXM_contrib2/asir2000/io/spexpr.c	2001/08/28 05:46:26	1.15
@@ -44,7 +44,7 @@
  * OF THE SOFTWARE HAS BEEN DEVELOPED BY A THIRD PARTY, THE THIRD PARTY
  * DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,
  * PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.
- * $OpenXM: OpenXM_contrib2/asir2000/io/spexpr.c,v 1.13 2001/04/20 02:34:23 noro Exp $ 
+ * $OpenXM: OpenXM_contrib2/asir2000/io/spexpr.c,v 1.14 2001/08/06 01:48:33 noro Exp $ 
 */
 #include "ca.h"
 #include "al.h"
@@ -315,8 +315,40 @@ N n;
 	}
 }
 
-extern int	printmode;
+#if defined(FPRINT)
+#if defined(ITVDEBUG)
+void printbin(double z)
+{
+	int	i, j, mask;
+	union {
+		double  x;
+		char    c[8];
+	} a;
 
+	a.x = z;
+	for(i=7;i>=0;i--) {
+		mask = 0x80;
+		for(j=0;j<8;j++) {
+			if (a.c[i] & mask) fprintf(stderr,"1");
+			else fprintf(stderr,"0");
+			mask >>= 1;
+		}
+	}
+	fprintf(stderr,"\n");
+}
+#endif
+#endif
+
+#if defined(FPRINT)
+#if 0
+int	printmode = PRINTF_E;
+#else
+int	printmode = PRINTF_G;
+#endif
+#else
+extern int printmode;
+#endif
+
 void PRINTNUM(q)
 Num q;
 {
@@ -734,7 +766,14 @@ void PRINTQUOTE(vl,quote)
 VL vl;
 QUOTE quote;
 {
-	PUTS("<...quoted...>");
+	LIST list;
+
+	if ( print_quote ) {
+		fnodetotree(BDY(quote),&list);
+		PRINTEXPR(vl,(Obj)list);
+	} else {
+		PUTS("<...quoted...>");
+	}
 }
 
 void PRINTERR(vl,e)