X-Git-Url: http://git.subgeniuskitty.com/pforth/.git/blobdiff_plain/970d32b553a44051cedd2caf34267b7b1cdbab78..1cb310e62eaf4422ee298d9d87c35f9dd6b4c71c:/fth/misc1.fth diff --git a/fth/misc1.fth b/fth/misc1.fth index 29e8ede..1e36e55 100644 --- a/fth/misc1.fth +++ b/fth/misc1.fth @@ -18,7 +18,6 @@ decimal : >> rshift ; : << lshift ; -: CELL* ( n -- n*cell ) 2 lshift ; : (WARNING") ( flag $message -- ) swap