Miroirs/waforth
1
0
Fork 0
mirror of https://github.com/remko/waforth synced 2025-01-13 08:01:32 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

tests: Enable BASE test

Browse source
This commit is contained in:
Remko Tronçon 2022-04-26 22:06:05 +02:00
parent 4d6c3cb34d
commit 3d9b10c860
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/standard-testsuite/core.f
View file

@ -904,10 +904,10 @@ T{ GS4 123 456
\ TODO T{ 0 0 MAX-BASE GN1 -> 0 0 0 }T
\ TODO T{ MAX-UINT 0 MAX-BASE GN1 -> MAX-UINT 0 0 }T
\ TODO T{ MAX-UINT DUP MAX-BASE GN1 -> MAX-UINT DUP 0 }T
\ TODO
\ TODO : GN2 \ ( -- 16 10 )
\ TODO BASE @ >R HEX BASE @ DECIMAL BASE @ R> BASE ! ;
\ TODO T{ GN2 -> 10 A }T
: GN2 \ ( -- 16 10 )
BASE @ >R HEX BASE @ DECIMAL BASE @ R> BASE ! ;
T{ GN2 -> 10 A }T
\ ------------------------------------------------------------------------
TESTING FILL MOVE