From d8cf9d5d709e8010320756ad0760e82a80abbded Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Wed, 6 Feb 1991 02:51:10 +0000 Subject: [PATCH] Change extension for cross-compiler so that shell tools will work more easily. --- v7/src/compiler/etc/xcbfdir.scm | 6 +++--- v8/src/compiler/etc/xcbfdir.scm | 6 +++--- 2 files changed, 6 insertions(+), 6 deletions(-) diff --git a/v7/src/compiler/etc/xcbfdir.scm b/v7/src/compiler/etc/xcbfdir.scm index eec678e81..2608c7d40 100644 --- a/v7/src/compiler/etc/xcbfdir.scm +++ b/v7/src/compiler/etc/xcbfdir.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/etc/xcbfdir.scm,v 1.3 1990/10/10 02:03:40 jinx Rel $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/etc/xcbfdir.scm,v 1.4 1991/02/06 02:51:10 jinx Exp $ Copyright (c) 1989, 1990 Massachusetts Institute of Technology @@ -40,7 +40,7 @@ MIT in each case. |# (for-each (lambda (pathname) (let ((one (pathname-new-type pathname extension)) - (two (pathname-new-type pathname "touch"))) + (two (pathname-new-type pathname "tch"))) (call-with-current-continuation (lambda (here) (bind-condition-handler @@ -80,4 +80,4 @@ MIT in each case. |# (process-directory dir compile-bin-file "com")) (define (cross-compile-directory dir) - (process-directory dir cross-compile-bin-file "bits.x")) \ No newline at end of file + (process-directory dir cross-compile-bin-file "moc")) \ No newline at end of file diff --git a/v8/src/compiler/etc/xcbfdir.scm b/v8/src/compiler/etc/xcbfdir.scm index e1ad0a215..04d4bd7cb 100644 --- a/v8/src/compiler/etc/xcbfdir.scm +++ b/v8/src/compiler/etc/xcbfdir.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/compiler/etc/xcbfdir.scm,v 1.3 1990/10/10 02:03:40 jinx Rel $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/compiler/etc/xcbfdir.scm,v 1.4 1991/02/06 02:51:10 jinx Exp $ Copyright (c) 1989, 1990 Massachusetts Institute of Technology @@ -40,7 +40,7 @@ MIT in each case. |# (for-each (lambda (pathname) (let ((one (pathname-new-type pathname extension)) - (two (pathname-new-type pathname "touch"))) + (two (pathname-new-type pathname "tch"))) (call-with-current-continuation (lambda (here) (bind-condition-handler @@ -80,4 +80,4 @@ MIT in each case. |# (process-directory dir compile-bin-file "com")) (define (cross-compile-directory dir) - (process-directory dir cross-compile-bin-file "bits.x")) \ No newline at end of file + (process-directory dir cross-compile-bin-file "moc")) \ No newline at end of file -- 2.25.1