Fix bugs in 2! and 2@.

2022-07-05 22:01:35 -07:00
parent 28c17e7714
commit 00119678ed
2 changed files with 11 additions and 2 deletions
--- a/common/base_tests.fs
+++ b/common/base_tests.fs
@ -148,3 +148,12 @@ e: test-arshift
  $1234 4 arshift $123 =assert
  -1 cell 8 * 1- arshift -1 =assert
 ;e
+
+e: test-2@2!
+  create foo 2 cells allot
+  123 456 foo 2!
+  999 foo 2@
+  456 =assert
+  123 =assert
+  999 =assert
+;e