From 3b4d7ff030605f664010a01742a5765b301d93a0 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Mon, 19 Oct 1992 19:14:11 +0000 Subject: [PATCH] Move set-current-branches! from lapgn3.scm to linear.scm. --- v7/src/compiler/back/lapgn3.scm | 8 ++------ v7/src/compiler/back/linear.scm | 7 ++++--- 2 files changed, 6 insertions(+), 9 deletions(-) diff --git a/v7/src/compiler/back/lapgn3.scm b/v7/src/compiler/back/lapgn3.scm index 16aa66e88..13e4f9712 100644 --- a/v7/src/compiler/back/lapgn3.scm +++ b/v7/src/compiler/back/lapgn3.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/back/lapgn3.scm,v 4.9 1992/04/07 15:54:39 jinx Exp $ +$Id: lapgn3.scm,v 4.10 1992/10/19 19:14:11 jinx Exp $ Copyright (c) 1987-1992 Massachusetts Institute of Technology @@ -151,8 +151,4 @@ MIT in each case. |# (uuo-link-label (lambda () *interned-global-links*) (lambda (new) (set! *interned-global-links* new)) - "GLOBAL-")) - -(define-integrable (set-current-branches! consequent alternative) - (set-pblock-consequent-lap-generator! *current-bblock* consequent) - (set-pblock-alternative-lap-generator! *current-bblock* alternative)) \ No newline at end of file + "GLOBAL-")) \ No newline at end of file diff --git a/v7/src/compiler/back/linear.scm b/v7/src/compiler/back/linear.scm index fcb566ce1..3bb7e613b 100644 --- a/v7/src/compiler/back/linear.scm +++ b/v7/src/compiler/back/linear.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/back/linear.scm,v 4.14 1992/05/14 03:00:40 jinx Exp $ +$Id: linear.scm,v 4.15 1992/10/19 19:14:03 jinx Exp $ Copyright (c) 1987-1992 Massachusetts Institute of Technology @@ -203,5 +203,6 @@ MIT in each case. |# ,@(code-thunk))) 'done) -(define (initialize-lap-linearizer!) - (set! *end-of-block-code* (LAP))) \ No newline at end of file +(define-integrable (set-current-branches! consequent alternative) + (set-pblock-consequent-lap-generator! *current-bblock* consequent) + (set-pblock-alternative-lap-generator! *current-bblock* alternative)) \ No newline at end of file -- 2.25.1