From 3b478d03a38c6a49f5213e52393317bda8271aeb Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Wed, 6 Feb 1991 03:04:59 +0000 Subject: [PATCH] Change default extensions to make shell-level tools easier to write. --- v7/src/compiler/base/crsend.scm | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/v7/src/compiler/base/crsend.scm b/v7/src/compiler/base/crsend.scm index ed3409809..efe1049cb 100644 --- a/v7/src/compiler/base/crsend.scm +++ b/v7/src/compiler/base/crsend.scm @@ -1,9 +1,8 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/crsend.scm,v 1.4 1990/06/07 19:52:33 cph Rel $ -$MC68020-Header: toplev.scm,v 4.16 89/04/26 05:09:52 GMT cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/crsend.scm,v 1.5 1991/02/06 03:04:59 jinx Exp $ -Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology +Copyright (c) 1988, 1989, 1990, 1991 Massachusetts Institute of Technology This material was developed by the Scheme project at the Massachusetts Institute of Technology, Department of Electrical Engineering and @@ -42,7 +41,7 @@ MIT in each case. |# (define (cross-compile-bin-file-end input-string #!optional output-string) (compiler-pathnames input-string (and (not (default-object? output-string)) output-string) - (make-pathname false false false false "bits.x" 'NEWEST) + (make-pathname false false false false "moc" 'NEWEST) (lambda (input-pathname output-pathname) output-pathname ;ignore (cross-compile-scode-end (fasload input-pathname))))) -- 2.25.1