From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 28 Jan 2017 11:20:29 +0000 (-0800)
Subject: Eliminate use of obsolete get-if-available method.
X-Git-Tag: mit-scheme-pucked-9.2.12~227^2~39
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=394dccabb401ddc0843e5f2cdfd0a669f35293a5;p=mit-scheme.git

Eliminate use of obsolete get-if-available method.
---

diff --git a/src/runtime/predicate-metadata.scm b/src/runtime/predicate-metadata.scm
index c9640c806..52e51999b 100644
--- a/src/runtime/predicate-metadata.scm
+++ b/src/runtime/predicate-metadata.scm
@@ -37,7 +37,7 @@ USA.
  (lambda ()
    (let ((table (make-hashed-metadata-table)))
      (set! predicate? (table 'has?))
-     (set! get-predicate-tag (table 'get-if-available))
+     (set! get-predicate-tag (table 'get))
      (set! set-predicate-tag! (table 'put!))
      (set! delete-predicate-tag! (table 'delete!))
      unspecific)))