From ff3512a64a11aa41fbe786d91b87708f32e838db Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Mon, 19 Oct 1992 19:11:40 +0000 Subject: [PATCH] Move last reference to base/macros.scm . --- v7/src/compiler/base/crstop.scm | 10 +--------- 1 file changed, 1 insertion(+), 9 deletions(-) diff --git a/v7/src/compiler/base/crstop.scm b/v7/src/compiler/base/crstop.scm index 3ce36cc78..5f6615d43 100644 --- a/v7/src/compiler/base/crstop.scm +++ b/v7/src/compiler/base/crstop.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/crstop.scm,v 1.10 1992/06/12 01:43:21 jinx Exp $ +$Id: crstop.scm,v 1.11 1992/10/19 19:11:40 jinx Exp $ Copyright (c) 1988-1992 Massachusetts Institute of Technology @@ -38,14 +38,6 @@ MIT in each case. |# (declare (usual-integrations)) -(define-macro (last-reference name) - (let ((x (generate-uninterned-symbol))) - `(IF COMPILER:PRESERVE-DATA-STRUCTURES? - ,name - (LET ((,x ,name)) - (SET! ,name) - ,x)))) - (define (cross-compile-bin-file input-string #!optional output-string) (let ((input-default (make-pathname false false false false "bin" 'NEWEST)) -- 2.25.1