From 8e62f65138eff257e36702ee44bab7f56fa1c7be Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 14 Sep 1992 23:53:03 +0000
Subject: [PATCH] Add HOOK/REPL-PROMPT.

---
 v7/src/runtime/rep.scm | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/v7/src/runtime/rep.scm b/v7/src/runtime/rep.scm
index b27edf30a..a10595624 100644
--- a/v7/src/runtime/rep.scm
+++ b/v7/src/runtime/rep.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/rep.scm,v 14.27 1992/04/06 05:49:12 cph Exp $
+$Id: rep.scm,v 14.28 1992/09/14 23:53:03 cph Exp $
 
 Copyright (c) 1988-92 Massachusetts Institute of Technology
 
@@ -42,6 +42,7 @@ MIT in each case. |#
 
 (define (initialize-package!)
   (set! *nearest-cmdl* false)
+  (set! hook/repl-prompt default/repl-prompt)
   (set! hook/repl-eval default/repl-eval)
   (set! hook/repl-write default/repl-write)
   (set! hook/set-default-environment default/set-default-environment)
@@ -348,7 +349,7 @@ MIT in each case. |#
 	 (let ((value
 		(hook/repl-eval
 		 (let ((s-expression
-			(prompt-for-command-expression
+			(hook/repl-prompt
 			 (string-append (number->string (cmdl/level repl))
 					" "
 					(repl/prompt repl))
@@ -360,6 +361,10 @@ MIT in each case. |#
 	   (repl-history/record! printer-history value)
 	   value))))))
 
+(define hook/repl-prompt)
+(define (default/repl-prompt prompt port)
+  (prompt-for-command-expression prompt port))
+
 (define hook/repl-eval)
 (define (default/repl-eval s-expression environment syntax-table)
   (let ((scode (syntax s-expression syntax-table)))
-- 
2.25.1