# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 1042464822 0
# Node ID 0feef1a068754f2cc4bc22fb59adac25ccf6ee45
# Parent  e4102c010ef44217223c78bb74ba08241100b8c3
(Freverse): Use QUIT.

diff -r e4102c010ef4 -r 0feef1a06875 src/fns.c
--- a/src/fns.c	Mon Jan 13 13:26:21 2003 +0000
+++ b/src/fns.c	Mon Jan 13 13:33:42 2003 +0000
@@ -1815,7 +1815,10 @@
   Lisp_Object new;
 
   for (new = Qnil; CONSP (list); list = XCDR (list))
-    new = Fcons (XCAR (list), new);
+    {
+      QUIT;
+      new = Fcons (XCAR (list), new);
+    }
   if (!NILP (list))
     wrong_type_argument (Qconsp, list);
   return new;