Missing unguarded cdr of the result of purify.

diff --git a/v7/src/runtime/gc.scm b/v7/src/runtime/gc.scm
index ab197f2971da4f674cf782689e84fbdb4efebfd7..0280ec31dc1c384e831f3c4b9407797ee5f4183c 100644 (file)
--- a/v7/src/runtime/gc.scm
+++ b/v7/src/runtime/gc.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: gc.scm,v 14.14 1993/09/20 19:30:50 gjr Exp $
+$Id: gc.scm,v 14.15 1993/09/20 20:10:29 gjr Exp $
 
 Copyright (c) 1988-93 Massachusetts Institute of Technology
 
@@ -162,7 +162,8 @@ MIT in each case. |#
           ((ucode-primitive primitive-purify) item
                                               pure-space?
                                               safety-margin)))
-      (gc-finish start-value (cdr result))
+      (if result
+         (gc-finish start-value (cdr result)))
       result)))
 
 (define (default/gc-start)