From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 28 Jan 1999 06:15:40 +0000 (+0000)
Subject: Fix typo.
X-Git-Tag: 20090517-FFI~4669
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ab0c62f9da55115a2eaec419fee33db851b77637;p=mit-scheme.git

Fix typo.
---

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)