diff --git a/forth/lib/64bit.fs b/forth/lib/64bit.fs index b8ea547..239ddd0 100644 --- a/forth/lib/64bit.fs +++ b/forth/lib/64bit.fs @@ -53,7 +53,7 @@ cell /x = constant 64bit? unaligned-x@ \ for now ; -: x! ( oaddr o -- ) +: x! ( o oaddr -- ) unaligned-x! \ for now ; @@ -65,22 +65,6 @@ cell /x = constant 64bit? x! ; -\ : rx@ ( oaddr - o ) -\ compile? if -\ h# 22e get-token if compile, else execute then -\ else -\ h# 22e get-token drop execute -\ then -\ ; immediate - -\ : rx! ( o oaddr -- ) -\ compile? if -\ h# 22f get-token if compile, else execute then -\ else -\ h# 22f get-token drop execute -\ then -\ ; immediate - : x, ( o -- ) here /x allot x! ;