From: Guillermo J. Rozas Date: Mon, 20 Sep 1993 20:10:29 +0000 (+0000) Subject: Missing unguarded cdr of the result of purify. X-Git-Tag: 20090517-FFI~7818 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=87609ec0bf5eeeeeee70f7fce89110999a7fe56f;p=mit-scheme.git Missing unguarded cdr of the result of purify. --- 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)