From 87609ec0bf5eeeeeee70f7fce89110999a7fe56f Mon Sep 17 00:00:00 2001
From: "Guillermo J. Rozas" <edu/mit/csail/zurich/gjr>
Date: Mon, 20 Sep 1993 20:10:29 +0000
Subject: [PATCH] Missing unguarded cdr of the result of purify.

---
 v7/src/runtime/gc.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/v7/src/runtime/gc.scm b/v7/src/runtime/gc.scm
index ab197f297..0280ec31d 100644
--- 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)
-- 
2.25.1