From edb1d1d78da289ffe9170ffe21e120cb31e463b5 Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Fri, 3 Oct 2008 15:07:09 +0200
Subject: [PATCH] remove repl.scm's start-stack definition

* module/system/repl/repl.scm: Now that we actually compile start-stack,
  no need to provide our own definition here.
---
 module/system/repl/repl.scm | 5 -----
 1 file changed, 5 deletions(-)

diff --git a/module/system/repl/repl.scm b/module/system/repl/repl.scm
index 8fd5be2ee..1e558e79c 100644
--- a/module/system/repl/repl.scm
+++ b/module/system/repl/repl.scm
@@ -96,11 +96,6 @@
          default-catch-handler
          default-pre-unwind-handler))
 
-(eval-case
- ((compile-toplevel)
-  (define-macro (start-stack tag expr)
-    expr)))
-
 (define (start-repl lang)
   (let ((repl (make-repl lang))
         (status #f))