From 35dc6d535002cbd3ad254d05f324af599052c8d8 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Thu, 14 May 1992 03:00:40 +0000 Subject: [PATCH] Use ,@ instead of , for the result of lap:make-label-statement. --- v7/src/compiler/back/linear.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/v7/src/compiler/back/linear.scm b/v7/src/compiler/back/linear.scm index 40f71af26..fcb566ce1 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.13 1992/05/14 02:56:58 jinx Exp $ +$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 $ Copyright (c) 1987-1992 Massachusetts Institute of Technology @@ -58,7 +58,7 @@ MIT in each case. |# (lambda () (bblock-instructions bblock)))) (if (bblock-label bblock) - (LAP ,(lap:make-label-statement (bblock-label bblock)) ,@(kernel)) + (LAP ,@(lap:make-label-statement (bblock-label bblock)) ,@(kernel)) (kernel)))) (define (linearize-next bblock) @@ -127,7 +127,7 @@ MIT in each case. |# ,@alternative ,@(lap:make-unconditional-branch jlabel) ,@consequent - ,(lap:make-label-statement jlabel) + ,@(lap:make-label-statement jlabel) ,@(linearize-next cn)))))))))) (cond ((eq? cn an) (warn "bblock-linearize-lap: Identical branches" pblock) -- 2.25.1