From 44a011da185716600d7ed3764e8b8ee73f3a8a24 Mon Sep 17 00:00:00 2001
From: Koichi Nakamura <koichi@idein.jp>
Date: Sat, 9 Jan 2021 17:20:48 +0900
Subject: [PATCH] Remove unnecessary name

---
 bootstrap.fs | 12 ++++--------
 1 file changed, 4 insertions(+), 8 deletions(-)

diff --git a/bootstrap.fs b/bootstrap.fs
index c5925b5..d336c6c 100644
--- a/bootstrap.fs
+++ b/bootstrap.fs
@@ -1287,7 +1287,7 @@ create word-buffer s" 64" >number drop cell+ allot drop
     then
 ;
 
-: main
+:noname
     rdrop   \ drop 2nd stage
     begin
         ['] interpret catch
@@ -1311,9 +1311,7 @@ create word-buffer s" 64" >number drop cell+ allot drop
             bye
         then
     again
-;
-
-main
+; execute
 
 ( === Error-codes === )
 
@@ -1693,13 +1691,11 @@ stdin_ push-inputstream
     again
 ;
 
-: switch-to-4th-stage
+:noname
     rdrop   \ drop 3rd stage
 
     ['] interpret-loop catch bye
-;
-
-switch-to-4th-stage
+; execute
 
 ( === [if]..[else]..[then] === )