Move set-current-branches! from lapgn3.scm to linear.scm.

diff --git a/v7/src/compiler/back/lapgn3.scm b/v7/src/compiler/back/lapgn3.scm
index 16aa66e888118640cc71ef7fc03040f7840b22d1..13e4f9712602eb73898eb611a667303935decde5 100644 (file)
--- 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 fcb566ce18a31692259397982a1db9a40b2e3e66..3bb7e613be98b77f7468d80cb22c729847dcce9e 100644 (file)
--- 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