From: Guillermo J. Rozas Date: Wed, 27 May 1992 04:03:35 +0000 (+0000) Subject: Get rid of binf (which maps to bin on the pc). X-Git-Tag: 20090517-FFI~9340 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=9f0280a8cd66e12fe21f34a08e0fec5fe0ab84d1;p=mit-scheme.git Get rid of binf (which maps to bin on the pc). --- 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))))))