From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Wed, 6 Jun 2018 15:42:23 +0000 (-0700)
Subject: SVM assembler needs hash-table-clear!.
X-Git-Tag: mit-scheme-pucked-9.2.13^2~2
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=d8d569457f808bb495f688af7efbe7ef1eadac75;p=mit-scheme.git

SVM assembler needs hash-table-clear!.
---

diff --git a/src/runtime/host-adapter.scm b/src/runtime/host-adapter.scm
index 6375836aa..28572f67b 100644
--- a/src/runtime/host-adapter.scm
+++ b/src/runtime/host-adapter.scm
@@ -80,6 +80,7 @@ USA.
 			'hash-table-constructor
 			(->environment '(runtime hash-table))
 			'hash-table-constructor))
+    (provide-rename env 'hash-table/clear! 'hash-table-clear!)
 
     (if (unbound? env 'bundle)
 	(eval '(define-syntax bundle