diff --git a/zorth.hs b/zorth.hs index 9acd36c..2042a50 100644 --- a/zorth.hs +++ b/zorth.hs @@ -106,7 +106,7 @@ parseZorth = fst . head . runParser pZorth handleSymbol :: ZorthAST -> IO () handleSymbol (ZorthASTInteger i) = void $ printf " push %d\n" i -handleSymbol (ZorthASTWord "_") = do +handleSymbol (ZorthASTWord "+") = do putStrLn " pop rbx" putStrLn " pop rax" putStrLn " add rax, rbx" @@ -131,7 +131,7 @@ handleSymbol (ZorthASTWord "swap") = do putStrLn " push rbx" handleSymbol (ZorthASTWord "drop") = do putStrLn " add rsp, 8" -handleSymbol (ZorthASTWord "печать") = do +handleSymbol (ZorthASTWord ".") = do putStrLn " pop rbx" putStrLn " call print_number"