diff --git a/sforth/forth.hpp b/sforth/forth.hpp index 857e27f..78ced3d 100644 --- a/sforth/forth.hpp +++ b/sforth/forth.hpp @@ -292,9 +292,9 @@ constexpr auto initialize() } else { lit_impl(x); } }, word_base::immediate - , S{"@" }, [](auto) { fthp->push(*std::bit_cast(fthp->pop())); }, 0 + , S{"@" }, [](auto) { fthp->top() = *std::bit_cast(fthp->top()); }, 0 , S{"!" }, [](auto) { auto p = fthp->pop(); *std::bit_cast(p) = fthp->pop(); }, 0 - , S{"C@" }, [](auto) { fthp->push(*std::bit_cast(fthp->pop())); }, 0 + , S{"C@" }, [](auto) { fthp->top() = *std::bit_cast(fthp->top()); }, 0 , S{"C!" }, [](auto) { auto p = fthp->pop(); *std::bit_cast(p) = fthp->pop(); }, 0 , S{"=" }, [](auto) { auto v = fthp->pop(); fthp->top() = -(fthp->top() == v); }, 0 , S{"<" }, [](auto) { auto v = fthp->pop(); fthp->top() = -(fthp->top() < v); }, 0