From 9f0280a8cd66e12fe21f34a08e0fec5fe0ab84d1 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Wed, 27 May 1992 04:03:35 +0000 Subject: [PATCH] Get rid of binf (which maps to bin on the pc). --- v7/src/runtime/infutl.scm | 5 ++--- v8/src/runtime/infutl.scm | 5 ++--- 2 files changed, 4 insertions(+), 6 deletions(-) diff --git a/v7/src/runtime/infutl.scm b/v7/src/runtime/infutl.scm index 0ac82d130..85d2e1274 100644 --- a/v7/src/runtime/infutl.scm +++ b/v7/src/runtime/infutl.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/infutl.scm,v 1.36 1992/05/26 23:23:42 mhwu Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/infutl.scm,v 1.37 1992/05/27 04:03:35 jinx Exp $ Copyright (c) 1988-91 Massachusetts Institute of Technology @@ -95,8 +95,7 @@ MIT in each case. |# (if (file-exists? pathname) (fasload-loader (->namestring pathname)) (find-alternate-file-type pathname - `(("binf" . ,fasload-loader) - ("inf" . ,fasload-loader) + `(("inf" . ,fasload-loader) ("bif" . ,fasload-loader) ("bci" . ,compressed-loader)))))) diff --git a/v8/src/runtime/infutl.scm b/v8/src/runtime/infutl.scm index da7eb3044..9848857fe 100644 --- a/v8/src/runtime/infutl.scm +++ b/v8/src/runtime/infutl.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/infutl.scm,v 1.36 1992/05/26 23:23:42 mhwu Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/infutl.scm,v 1.37 1992/05/27 04:03:35 jinx Exp $ Copyright (c) 1988-91 Massachusetts Institute of Technology @@ -95,8 +95,7 @@ MIT in each case. |# (if (file-exists? pathname) (fasload-loader (->namestring pathname)) (find-alternate-file-type pathname - `(("binf" . ,fasload-loader) - ("inf" . ,fasload-loader) + `(("inf" . ,fasload-loader) ("bif" . ,fasload-loader) ("bci" . ,compressed-loader)))))) -- 2.25.1