From bfb5c2ad9a9243c0abb435a1ae8771b1c7795133 Mon Sep 17 00:00:00 2001
From: Koichi Nakamura <koichi@idein.jp>
Date: Sun, 10 Jan 2021 16:28:33 +0900
Subject: [PATCH] fix typo

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

diff --git a/bootstrap.fs b/bootstrap.fs
index d059f00..0130185 100644
--- a/bootstrap.fs
+++ b/bootstrap.fs
@@ -1791,7 +1791,7 @@ variable source-buffer-end source-buffer source-buffer-end !
 : increment-lineno ( -- ) 1 inputstreams @ input>lineno +! ;
 
 : source ( -- c-addr) source-buffer ;
-: in> ( -- c-addr ) source-buffer-pos ;
+: >in ( -- c-addr ) source-buffer-pos ;
 
 \ Throw UNEXPECTED-EOF-ERROR at EOF
 :noname ( -- c )
@@ -2388,7 +2388,7 @@ need-defined (read)
         insn:docol insn:exit insn:lit insn:litstring insn:branch insn:0branch
 
         words id. name>string name>link
-        include included source in>
+        include included source >in
         next-arg shift-args arg argv argc implementation
 
         [if] [unless] [else] [then] defined?