From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 26 Apr 2018 06:18:24 +0000 (-0700)
Subject: Fix missed reference.
X-Git-Tag: mit-scheme-pucked-x11-0.3.1~7^2~109
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=48141dadc553439c76c8682c3249b82f81da1959;p=mit-scheme.git

Fix missed reference.
---

diff --git a/src/runtime/hash-table.scm b/src/runtime/hash-table.scm
index 482f41a00..caa07094e 100644
--- a/src/runtime/hash-table.scm
+++ b/src/runtime/hash-table.scm
@@ -164,7 +164,7 @@ USA.
   ((table-type-method:put! (table-type table)) table key datum))
 
 (define (hash-table-update! table key procedure #!optional get-default)
-  (guarantee hash-table? table 'hash-table/modify!)
+  (guarantee hash-table? table 'hash-table-update!)
   ((table-type-method:modify! (table-type table))
    table
    key