SVM assembler needs hash-table-clear!.

diff --git a/src/runtime/host-adapter.scm b/src/runtime/host-adapter.scm
index 6375836aa457e789546c6b4d8851871111a44ba6..28572f67b06fca8635967d1b81b73aa3a7830634 100644 (file)
--- 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