diff --git a/scsh/top.scm b/scsh/top.scm
index 6dba92a..457a27c 100644
--- a/scsh/top.scm
+++ b/scsh/top.scm
@@ -507,8 +507,3 @@ end-option:	-s <script>	Specify script.
 		--		Interactive session.
 " (current-error-port)))
   (exit -1))
-
-
-(define (repl)
-  (command-loop (lambda () (set-batch-mode?! #f))
-		#f))