From 56cf2ede18ba0380ab7278a0465d2d4ed4027e99 Mon Sep 17 00:00:00 2001
From: Koichi Nakamura <koichi@idein.jp>
Date: Sun, 10 Jan 2021 00:05:46 +0900
Subject: [PATCH] Use 'implementation' instead of command line arguments

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

diff --git a/bootstrap.fs b/bootstrap.fs
index 7d360d8..0c3d0a7 100644
--- a/bootstrap.fs
+++ b/bootstrap.fs
@@ -2068,27 +2068,7 @@ v argc ! argv !
 
 ( === Environment-Dependent Code === )
 
-\ Parse codegeneration option.
-\ $ ./planck < bootstrap --i386-linux ...
-
-variable codegen-target
-
-\ Parse command-line arguments.
-:noname ( -- )
-    s" no-codegen" codegen-target !
-    begin argc @ 1 > while
-        1 arg dup c@ '-' <> if drop exit then
-        dup s" --i386-linux" streq if
-            2 + codegen-target !
-            shift-args
-        else
-            ." Unknown option: " type cr
-            abort
-        then
-    repeat
-; execute
-
-codegen-target @ s" i386-linux" streq [if]
+implementation s" hand-written i386-linux" streq [if]
 
 %000 constant eax immediate
 %001 constant ecx immediate
@@ -2302,12 +2282,7 @@ BLOCK-SIZE remaining-size  !
     SYS-WRITE syscall3      \ ( u1 u2 )
 ;
 
-[else] \ i386-linux
-
-codegen-target @ s" no-codegen" streq not [if]
-    ." Unknown codegen target: " codegen-target @ type cr
-    abort
-[then] [then] \ End of environment dependent code
+[then] \ End of environment dependent code
 
 : defined? ( "name" -- f )
     word throw find <> 0