# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 915666931 0
# Node ID 43344f47a86584b63f5d9f236de506062db1a3a6
# Parent  2b8d4cd758b75d82308f6b769232b5d21f6cd996
(Frequire): Don't fail to unbind bindings.

diff -r 2b8d4cd758b7 -r 43344f47a865 src/fns.c
--- a/src/fns.c	Wed Jan 06 23:54:44 1999 +0000
+++ b/src/fns.c	Wed Jan 06 23:55:31 1999 +0000
@@ -2654,7 +2654,7 @@
 		     noerror, Qt, Qnil, (NILP (file_name) ? Qt : Qnil));
       /* If load failed entirely, return nil.  */
       if (NILP (tem))
-	return Qnil;
+	return unbind_to (count, Qnil);
 
       tem = Fmemq (feature, Vfeatures);
       if (NILP (tem))