From 514ba5d1d5e0d1acd9c76a43ee8d500ebe86178b Mon Sep 17 00:00:00 2001
From: Koichi Nakamura <koichi@idein.jp>
Date: Tue, 5 Jan 2021 23:56:24 +0900
Subject: [PATCH] fixed a bug

---
 bootstrap.fs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/bootstrap.fs b/bootstrap.fs
index bc1876b..aa25f96 100644
--- a/bootstrap.fs
+++ b/bootstrap.fs
@@ -1883,7 +1883,7 @@ codegen-target @ s" i386-linux" str= [if]
 \ overwrite code field by DFA
 : ;asm
     [compile] ; \ finish compilation
-    latest dup >dfa over >cfa !
+    latest dup >dfa swap >cfa !
 ; immediate
 
 : syscall0 ( n -- r )