From aea1df1b6d73ad20e8227e2a6e504567a33bbf6d Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Thu, 2 Jan 2003 02:01:05 +0000 Subject: [PATCH] Don't print architecture name. Upcase "LIAR" to emphasize that it is an acronym. --- v7/src/compiler/base/make.scm | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) 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 -- 2.25.1