From acd7d6140dfbf8ced11d00ca5d511e3631998b6b Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Sat, 13 Nov 1993 06:44:26 +0000 Subject: [PATCH] Fix variable names: the number was previously duplicated. --- v7/src/compiler/machines/C/lapgen.scm | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/v7/src/compiler/machines/C/lapgen.scm b/v7/src/compiler/machines/C/lapgen.scm index 2473abfc8..d9ca6eea2 100644 --- a/v7/src/compiler/machines/C/lapgen.scm +++ b/v7/src/compiler/machines/C/lapgen.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: lapgen.scm,v 1.9 1993/10/30 13:46:34 gjr Exp $ +$Id: lapgen.scm,v 1.10 1993/11/13 06:44:26 gjr Exp $ Copyright (c) 1992-1993 Massachusetts Institute of Technology @@ -74,10 +74,8 @@ MIT in each case. |# (define (reg*type->name reg type) (string-append (case type - ((WORD) - (string-append "Wrd" (number->string reg))) - ((DOUBLE) - (string-append "Dbl" (number->string reg))) + ((WORD) "Wrd") + ((DOUBLE) "Dbl") (else (comp-internal-error "Unknown type" 'REG*TYPE->NAME type))) (number->string reg))) -- 2.25.1