From f321addd294139bd297c25d6358c621fe0016668 Mon Sep 17 00:00:00 2001
From: Koichi Nakamura <koichi@idein.jp>
Date: Fri, 15 Jan 2021 18:34:37 +0900
Subject: [PATCH] fix stack notation of do-loop

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

diff --git a/bootstrap.fs b/bootstrap.fs
index a5029c7..07c8180 100644
--- a/bootstrap.fs
+++ b/bootstrap.fs
@@ -1471,14 +1471,14 @@ do-stack 16 cells + do-sp !
     do-sp @ @
 ;
 
-\ compile: ( -- dest mark )
+\ compile: ( -- do: dest mark )
 : do
     compile >r  \ save start
     compile >r  \ save limit
     here >do do-mark >do
 ; immediate
 
-: leave ( -- orig mark )
+: leave ( -- do: orig mark )
     compile branch
     here >do
     0 ,        \ fill dummy offset