diff options
Diffstat (limited to 'main.cpp')
-rw-r--r-- | main.cpp | 7 |
1 files changed, 1 insertions, 6 deletions
@@ -40,17 +40,12 @@ constinit static sforth::native_word<"U.", [](auto) { constinit static sforth::native_word<"EMIT", [](auto) { std::cout << static_cast<char>(forth.pop()); }, &udot> emit; -constinit static sforth::native_word<"TYPE", [](auto) { - const unsigned u = forth.pop(); - const auto caddr = reinterpret_cast<const char *>(forth.pop()); - std::cout << std::string_view{caddr, u}; -}, &emit> type; constinit static sforth::native_word<"INCLUDE", [](auto) { const auto w = forth.parse(); std::string s {w.begin(), w.end()}; std::ifstream file {s}; parse_stream(forth, file); -}, &type> incl; +}, &emit> incl; int main(int argc, const char *argv[]) { |