# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 984000415 0
# Node ID f4b666ca7ea38f2f077ce3354cda0bb901910851
# Parent  f5db94398882576239ef3f697a42614ae4995977
(Fbyte_code) <Btemp_output_buffer_setup>: Check the
arg is a string before extracting its data.

diff -r f5db94398882 -r f4b666ca7ea3 src/bytecode.c
--- a/src/bytecode.c	Wed Mar 07 19:04:54 2001 +0000
+++ b/src/bytecode.c	Wed Mar 07 21:26:55 2001 +0000
@@ -888,6 +888,7 @@
 
 	case Btemp_output_buffer_setup:
 	  BEFORE_POTENTIAL_GC ();
+	  CHECK_STRING (TOP, 0);
 	  temp_output_buffer_setup (XSTRING (TOP)->data);
 	  AFTER_POTENTIAL_GC ();
 	  TOP = Vstandard_output;