From 00a713e48a5a730cbc544d958d614d8dd24205f7 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sat, 12 Aug 1989 08:18:37 +0000 Subject: [PATCH] * Change `environment-link-name' to call `->environment' on its two environment arguments. * Move `vector-binary-search' to the global environment. Fix a bug in it -- a confusion between the < used for comparing integers, and that for comparing keys. * New variable `load/suppress-loading-message?' prevents the file loader from printing the "loading -- done" messages. * Implement `pathname-relative?' which accepts two pathnames; if the second has a directory part which is a "prefix" of the first, this returns a copy of the first pathname with the "prefix" removed. Example: (pathname-relative? (->pathname "/usr/bin") (->pathname "/usr/")) ==> #[pathname 5 "bin"] --- v7/src/runtime/vector.scm | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) diff --git a/v7/src/runtime/vector.scm b/v7/src/runtime/vector.scm index b662c1c78..6054e71ea 100644 --- a/v7/src/runtime/vector.scm +++ b/v7/src/runtime/vector.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/vector.scm,v 14.4 1989/06/07 19:15:00 cph Rel $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/vector.scm,v 14.5 1989/08/12 08:18:37 cph Rel $ Copyright (c) 1988, 1989 Massachusetts Institute of Technology @@ -127,6 +127,17 @@ MIT in each case. |# (define-integrable (vector-find-previous-element vector item) (subvector-find-previous-element vector 0 (vector-length vector) item)) + +(define (vector-binary-search vector key