From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 2 Jan 2003 02:01:05 +0000 (+0000)
Subject: Don't print architecture name.  Upcase "LIAR" to emphasize that it is
X-Git-Tag: 20090517-FFI~2077
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=aea1df1b6d73ad20e8227e2a6e504567a33bbf6d;p=mit-scheme.git

Don't print architecture name.  Upcase "LIAR" to emphasize that it is
an acronym.
---

diff --git a/v7/src/compiler/base/make.scm b/v7/src/compiler/base/make.scm
index 5d1a9137a..6e4d2510f 100644
--- a/v7/src/compiler/base/make.scm
+++ b/v7/src/compiler/base/make.scm
@@ -1,8 +1,9 @@
 #| -*-Scheme-*-
 
-$Id: make.scm,v 4.118 2002/11/20 19:45:47 cph Exp $
+$Id: make.scm,v 4.119 2003/01/02 02:01:05 cph Exp $
 
-Copyright (c) 1988-1999, 2001, 2002 Massachusetts Institute of Technology
+Copyright (c) 1991,1992,1993,1994,1997 Massachusetts Institute of Technology
+Copyright (c) 1998,1999,2001,2002,2003 Massachusetts Institute of Technology
 
 This file is part of MIT Scheme.
 
@@ -27,6 +28,7 @@ Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
 (declare (usual-integrations))
 
 (lambda (architecture-name)
+  architecture-name
   ((access with-directory-rewriting-rule
 	   (->environment '(RUNTIME COMPILER-INFO)))
    (working-directory-pathname)
@@ -36,4 +38,4 @@ Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
      (load-option 'HASH-TABLE)
      (load-option 'RB-TREE)
      (load-package-set "compiler")))
-  (add-identification! (string-append "Liar (" architecture-name ")") 4 115))
\ No newline at end of file
+  (add-identification! "LIAR" 4 115))
\ No newline at end of file