From ab0c62f9da55115a2eaec419fee33db851b77637 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 28 Jan 1999 06:15:40 +0000
Subject: [PATCH] Fix typo.

---
 v7/src/edwin/prompt.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/v7/src/edwin/prompt.scm b/v7/src/edwin/prompt.scm
index a56998964..f99218c85 100644
--- a/v7/src/edwin/prompt.scm
+++ b/v7/src/edwin/prompt.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: prompt.scm,v 1.178 1999/01/28 06:10:14 cph Exp $
+;;; $Id: prompt.scm,v 1.179 1999/01/28 06:15:40 cph Exp $
 ;;;
 ;;; Copyright (c) 1986, 1989-1999 Massachusetts Institute of Technology
 ;;;
@@ -403,9 +403,9 @@
 (define (name->history name)
   (if (not (symbol? name))
       (error:wrong-type-argument name "symbol" 'NAME->HISTORY))
-  (or (hash-table-get prompt-histories name #f)
+  (or (hash-table/get prompt-histories name #f)
       (let ((history (list 'PROMPT-HISTORY)))
-	(hash-table-put! prompt-histories name history)
+	(hash-table/put! prompt-histories name history)
 	history)))
 
 (define (history-length name)
-- 
2.25.1