* needs utils/latebind
* fix acronym regression

[no important files changed]
This commit is contained in:
Bruce Axtens
2024-06-16 03:09:35 +08:00
committed by GitHub
parent 36ed92cc50
commit 8f29446886
65 changed files with 131 additions and 67 deletions

View File

@@ -1,3 +1,3 @@
: acronym \ s -- s
;

View File

@@ -1,4 +1,5 @@
needs console/loaded
needs utils/latebind
\ -----------------------------------------------------------------
@@ -65,7 +66,7 @@ true var, run-test
date? if d:= ;then
\ otherwise fall back to 'lazy evaluation'
l: =
G:l: =
;
: eps_eq? \ n x x -- T

View File

@@ -1,4 +1,5 @@
needs console/loaded
needs utils/latebind
\ -----------------------------------------------------------------
@@ -65,7 +66,7 @@ true var, run-test
date? if d:= ;then
\ otherwise fall back to 'lazy evaluation'
l: =
G:l: =
;
: eps_eq? \ n x x -- T

View File

@@ -1,4 +1,5 @@
needs console/loaded
needs utils/latebind
\ -----------------------------------------------------------------
@@ -65,7 +66,7 @@ true var, run-test
date? if d:= ;then
\ otherwise fall back to 'lazy evaluation'
l: =
G:l: =
;
: eps_eq? \ n x x -- T

View File

@@ -1,4 +1,5 @@
needs console/loaded
needs utils/latebind
\ -----------------------------------------------------------------
@@ -65,7 +66,7 @@ true var, run-test
date? if d:= ;then
\ otherwise fall back to 'lazy evaluation'
l: =
G:l: =
;
: eps_eq? \ n x x -- T

View File

@@ -1,4 +1,5 @@
needs console/loaded
needs utils/latebind
\ -----------------------------------------------------------------
@@ -65,7 +66,7 @@ true var, run-test
date? if d:= ;then
\ otherwise fall back to 'lazy evaluation'
l: =
G:l: =
;
: eps_eq? \ n x x -- T

View File

@@ -1,4 +1,5 @@
needs console/loaded
needs utils/latebind
\ -----------------------------------------------------------------
@@ -65,7 +66,7 @@ true var, run-test
date? if d:= ;then
\ otherwise fall back to 'lazy evaluation'
l: =
G:l: =
;
: eps_eq? \ n x x -- T

View File

@@ -1,4 +1,5 @@
needs console/loaded
needs utils/latebind
\ -----------------------------------------------------------------
@@ -65,7 +66,7 @@ true var, run-test
date? if d:= ;then
\ otherwise fall back to 'lazy evaluation'
l: =
G:l: =
;
: eps_eq? \ n x x -- T

View File

@@ -1,4 +1,5 @@
needs console/loaded
needs utils/latebind
\ -----------------------------------------------------------------
@@ -65,7 +66,7 @@ true var, run-test
date? if d:= ;then
\ otherwise fall back to 'lazy evaluation'
l: =
G:l: =
;
: eps_eq? \ n x x -- T

View File

@@ -1,4 +1,5 @@
needs console/loaded
needs utils/latebind
\ -----------------------------------------------------------------
@@ -65,7 +66,7 @@ true var, run-test
date? if d:= ;then
\ otherwise fall back to 'lazy evaluation'
l: =
G:l: =
;
: eps_eq? \ n x x -- T

View File

@@ -1,4 +1,5 @@
needs console/loaded
needs utils/latebind
\ -----------------------------------------------------------------
@@ -65,7 +66,7 @@ true var, run-test
date? if d:= ;then
\ otherwise fall back to 'lazy evaluation'
l: =
G:l: =
;
: eps_eq? \ n x x -- T

View File

@@ -1,4 +1,5 @@
needs console/loaded
needs utils/latebind
\ -----------------------------------------------------------------
@@ -65,7 +66,7 @@ true var, run-test
date? if d:= ;then
\ otherwise fall back to 'lazy evaluation'
l: =
G:l: =
;
: eps_eq? \ n x x -- T

View File

@@ -1,4 +1,5 @@
needs console/loaded
needs utils/latebind
\ -----------------------------------------------------------------
@@ -65,7 +66,7 @@ true var, run-test
date? if d:= ;then
\ otherwise fall back to 'lazy evaluation'
l: =
G:l: =
;
: eps_eq? \ n x x -- T

View File

@@ -1,4 +1,5 @@
needs console/loaded
needs utils/latebind
\ -----------------------------------------------------------------
@@ -65,7 +66,7 @@ true var, run-test
date? if d:= ;then
\ otherwise fall back to 'lazy evaluation'
l: =
G:l: =
;
: eps_eq? \ n x x -- T

View File

@@ -1,4 +1,5 @@
needs console/loaded
needs utils/latebind
\ -----------------------------------------------------------------
@@ -65,7 +66,7 @@ true var, run-test
date? if d:= ;then
\ otherwise fall back to 'lazy evaluation'
l: =
G:l: =
;
: eps_eq? \ n x x -- T

View File

@@ -1,4 +1,5 @@
needs console/loaded
needs utils/latebind
\ -----------------------------------------------------------------
@@ -65,7 +66,7 @@ true var, run-test
date? if d:= ;then
\ otherwise fall back to 'lazy evaluation'
l: =
G:l: =
;
: eps_eq? \ n x x -- T

View File

@@ -1,4 +1,5 @@
needs console/loaded
needs utils/latebind
\ -----------------------------------------------------------------
@@ -65,7 +66,7 @@ true var, run-test
date? if d:= ;then
\ otherwise fall back to 'lazy evaluation'
l: =
G:l: =
;
: eps_eq? \ n x x -- T

View File

@@ -1,4 +1,5 @@
needs console/loaded
needs utils/latebind
\ -----------------------------------------------------------------
@@ -65,7 +66,7 @@ true var, run-test
date? if d:= ;then
\ otherwise fall back to 'lazy evaluation'
l: =
G:l: =
;
: eps_eq? \ n x x -- T

View File

@@ -1,4 +1,5 @@
needs console/loaded
needs utils/latebind
\ -----------------------------------------------------------------
@@ -65,7 +66,7 @@ true var, run-test
date? if d:= ;then
\ otherwise fall back to 'lazy evaluation'
l: =
G:l: =
;
: eps_eq? \ n x x -- T

View File

@@ -1,4 +1,5 @@
needs console/loaded
needs utils/latebind
\ -----------------------------------------------------------------
@@ -65,7 +66,7 @@ true var, run-test
date? if d:= ;then
\ otherwise fall back to 'lazy evaluation'
l: =
G:l: =
;
: eps_eq? \ n x x -- T

View File

@@ -1,4 +1,5 @@
needs console/loaded
needs utils/latebind
\ -----------------------------------------------------------------
@@ -65,7 +66,7 @@ true var, run-test
date? if d:= ;then
\ otherwise fall back to 'lazy evaluation'
l: =
G:l: =
;
: eps_eq? \ n x x -- T

View File

@@ -1,4 +1,5 @@
needs console/loaded
needs utils/latebind
\ -----------------------------------------------------------------
@@ -65,7 +66,7 @@ true var, run-test
date? if d:= ;then
\ otherwise fall back to 'lazy evaluation'
l: =
G:l: =
;
: eps_eq? \ n x x -- T

View File

@@ -1,4 +1,5 @@
needs console/loaded
needs utils/latebind
\ -----------------------------------------------------------------
@@ -65,7 +66,7 @@ true var, run-test
date? if d:= ;then
\ otherwise fall back to 'lazy evaluation'
l: =
G:l: =
;
: eps_eq? \ n x x -- T

View File

@@ -1,4 +1,5 @@
needs console/loaded
needs utils/latebind
\ -----------------------------------------------------------------
@@ -65,7 +66,7 @@ true var, run-test
date? if d:= ;then
\ otherwise fall back to 'lazy evaluation'
l: =
G:l: =
;
: eps_eq? \ n x x -- T

View File

@@ -1,4 +1,5 @@
needs console/loaded
needs utils/latebind
\ -----------------------------------------------------------------
@@ -65,7 +66,7 @@ true var, run-test
date? if d:= ;then
\ otherwise fall back to 'lazy evaluation'
l: =
G:l: =
;
: eps_eq? \ n x x -- T

View File

@@ -1,4 +1,5 @@
needs console/loaded
needs utils/latebind
\ -----------------------------------------------------------------
@@ -65,7 +66,7 @@ true var, run-test
date? if d:= ;then
\ otherwise fall back to 'lazy evaluation'
l: =
G:l: =
;
: eps_eq? \ n x x -- T

View File

@@ -1,4 +1,5 @@
needs console/loaded
needs utils/latebind
\ -----------------------------------------------------------------
@@ -65,7 +66,7 @@ true var, run-test
date? if d:= ;then
\ otherwise fall back to 'lazy evaluation'
l: =
G:l: =
;
: eps_eq? \ n x x -- T

View File

@@ -1,4 +1,5 @@
needs console/loaded
needs utils/latebind
\ -----------------------------------------------------------------
@@ -65,7 +66,7 @@ true var, run-test
date? if d:= ;then
\ otherwise fall back to 'lazy evaluation'
l: =
G:l: =
;
: eps_eq? \ n x x -- T

View File

@@ -1,4 +1,5 @@
needs console/loaded
needs utils/latebind
\ -----------------------------------------------------------------
@@ -65,7 +66,7 @@ true var, run-test
date? if d:= ;then
\ otherwise fall back to 'lazy evaluation'
l: =
G:l: =
;
: eps_eq? \ n x x -- T

View File

@@ -1,4 +1,5 @@
needs console/loaded
needs utils/latebind
\ -----------------------------------------------------------------
@@ -65,7 +66,7 @@ true var, run-test
date? if d:= ;then
\ otherwise fall back to 'lazy evaluation'
l: =
G:l: =
;
: eps_eq? \ n x x -- T

View File

@@ -1,4 +1,5 @@
needs console/loaded
needs utils/latebind
\ -----------------------------------------------------------------
@@ -65,7 +66,7 @@ true var, run-test
date? if d:= ;then
\ otherwise fall back to 'lazy evaluation'
l: =
G:l: =
;
: eps_eq? \ n x x -- T

View File

@@ -1,4 +1,5 @@
needs console/loaded
needs utils/latebind
\ -----------------------------------------------------------------
@@ -65,7 +66,7 @@ true var, run-test
date? if d:= ;then
\ otherwise fall back to 'lazy evaluation'
l: =
G:l: =
;
: eps_eq? \ n x x -- T

View File

@@ -1,4 +1,5 @@
needs console/loaded
needs utils/latebind
\ -----------------------------------------------------------------
@@ -65,7 +66,7 @@ true var, run-test
date? if d:= ;then
\ otherwise fall back to 'lazy evaluation'
l: =
G:l: =
;
: eps_eq? \ n x x -- T

View File

@@ -1,4 +1,5 @@
needs console/loaded
needs utils/latebind
\ -----------------------------------------------------------------
@@ -65,7 +66,7 @@ true var, run-test
date? if d:= ;then
\ otherwise fall back to 'lazy evaluation'
l: =
G:l: =
;
: eps_eq? \ n x x -- T

View File

@@ -1,4 +1,5 @@
needs console/loaded
needs utils/latebind
\ -----------------------------------------------------------------
@@ -65,7 +66,7 @@ true var, run-test
date? if d:= ;then
\ otherwise fall back to 'lazy evaluation'
l: =
G:l: =
;
: eps_eq? \ n x x -- T

View File

@@ -1,4 +1,5 @@
needs console/loaded
needs utils/latebind
\ -----------------------------------------------------------------
@@ -65,7 +66,7 @@ true var, run-test
date? if d:= ;then
\ otherwise fall back to 'lazy evaluation'
l: =
G:l: =
;
: eps_eq? \ n x x -- T

View File

@@ -1,4 +1,5 @@
needs console/loaded
needs utils/latebind
\ -----------------------------------------------------------------
@@ -65,7 +66,7 @@ true var, run-test
date? if d:= ;then
\ otherwise fall back to 'lazy evaluation'
l: =
G:l: =
;
: eps_eq? \ n x x -- T

View File

@@ -1,4 +1,5 @@
needs console/loaded
needs utils/latebind
\ -----------------------------------------------------------------
@@ -65,7 +66,7 @@ true var, run-test
date? if d:= ;then
\ otherwise fall back to 'lazy evaluation'
l: =
G:l: =
;
: eps_eq? \ n x x -- T

View File

@@ -1,4 +1,5 @@
needs console/loaded
needs utils/latebind
\ -----------------------------------------------------------------
@@ -65,7 +66,7 @@ true var, run-test
date? if d:= ;then
\ otherwise fall back to 'lazy evaluation'
l: =
G:l: =
;
: eps_eq? \ n x x -- T

View File

@@ -1,4 +1,5 @@
needs console/loaded
needs utils/latebind
\ -----------------------------------------------------------------
@@ -65,7 +66,7 @@ true var, run-test
date? if d:= ;then
\ otherwise fall back to 'lazy evaluation'
l: =
G:l: =
;
: eps_eq? \ n x x -- T

View File

@@ -1,4 +1,5 @@
needs console/loaded
needs utils/latebind
\ -----------------------------------------------------------------
@@ -65,7 +66,7 @@ true var, run-test
date? if d:= ;then
\ otherwise fall back to 'lazy evaluation'
l: =
G:l: =
;
: eps_eq? \ n x x -- T

View File

@@ -1,4 +1,5 @@
needs console/loaded
needs utils/latebind
\ -----------------------------------------------------------------
@@ -65,7 +66,7 @@ true var, run-test
date? if d:= ;then
\ otherwise fall back to 'lazy evaluation'
l: =
G:l: =
;
: eps_eq? \ n x x -- T

View File

@@ -1,4 +1,5 @@
needs console/loaded
needs utils/latebind
\ -----------------------------------------------------------------
@@ -65,7 +66,7 @@ true var, run-test
date? if d:= ;then
\ otherwise fall back to 'lazy evaluation'
l: =
G:l: =
;
: eps_eq? \ n x x -- T

View File

@@ -1,4 +1,5 @@
needs console/loaded
needs utils/latebind
\ -----------------------------------------------------------------
@@ -65,7 +66,7 @@ true var, run-test
date? if d:= ;then
\ otherwise fall back to 'lazy evaluation'
l: =
G:l: =
;
: eps_eq? \ n x x -- T

View File

@@ -1,4 +1,5 @@
needs console/loaded
needs utils/latebind
\ -----------------------------------------------------------------
@@ -65,7 +66,7 @@ true var, run-test
date? if d:= ;then
\ otherwise fall back to 'lazy evaluation'
l: =
G:l: =
;
: eps_eq? \ n x x -- T

View File

@@ -1,4 +1,5 @@
needs console/loaded
needs utils/latebind
\ -----------------------------------------------------------------
@@ -65,7 +66,7 @@ true var, run-test
date? if d:= ;then
\ otherwise fall back to 'lazy evaluation'
l: =
G:l: =
;
: eps_eq? \ n x x -- T

View File

@@ -1,4 +1,5 @@
needs console/loaded
needs utils/latebind
\ -----------------------------------------------------------------
@@ -65,7 +66,7 @@ true var, run-test
date? if d:= ;then
\ otherwise fall back to 'lazy evaluation'
l: =
G:l: =
;
: eps_eq? \ n x x -- T

View File

@@ -1,4 +1,5 @@
needs console/loaded
needs utils/latebind
\ -----------------------------------------------------------------
@@ -65,7 +66,7 @@ true var, run-test
date? if d:= ;then
\ otherwise fall back to 'lazy evaluation'
l: =
G:l: =
;
: eps_eq? \ n x x -- T

View File

@@ -1,4 +1,5 @@
needs console/loaded
needs utils/latebind
\ -----------------------------------------------------------------
@@ -65,7 +66,7 @@ true var, run-test
date? if d:= ;then
\ otherwise fall back to 'lazy evaluation'
l: =
G:l: =
;
: eps_eq? \ n x x -- T

View File

@@ -1,4 +1,5 @@
needs console/loaded
needs utils/latebind
\ -----------------------------------------------------------------
@@ -65,7 +66,7 @@ true var, run-test
date? if d:= ;then
\ otherwise fall back to 'lazy evaluation'
l: =
G:l: =
;
: eps_eq? \ n x x -- T

View File

@@ -1,4 +1,5 @@
needs console/loaded
needs utils/latebind
\ -----------------------------------------------------------------
@@ -65,7 +66,7 @@ true var, run-test
date? if d:= ;then
\ otherwise fall back to 'lazy evaluation'
l: =
G:l: =
;
: eps_eq? \ n x x -- T

View File

@@ -1,4 +1,5 @@
needs console/loaded
needs utils/latebind
\ -----------------------------------------------------------------
@@ -65,7 +66,7 @@ true var, run-test
date? if d:= ;then
\ otherwise fall back to 'lazy evaluation'
l: =
G:l: =
;
: eps_eq? \ n x x -- T

View File

@@ -1,4 +1,5 @@
needs console/loaded
needs utils/latebind
\ -----------------------------------------------------------------
@@ -65,7 +66,7 @@ true var, run-test
date? if d:= ;then
\ otherwise fall back to 'lazy evaluation'
l: =
G:l: =
;
: eps_eq? \ n x x -- T

View File

@@ -1,4 +1,5 @@
needs console/loaded
needs utils/latebind
\ -----------------------------------------------------------------
@@ -65,7 +66,7 @@ true var, run-test
date? if d:= ;then
\ otherwise fall back to 'lazy evaluation'
l: =
G:l: =
;
: eps_eq? \ n x x -- T

View File

@@ -1,4 +1,5 @@
needs console/loaded
needs utils/latebind
\ -----------------------------------------------------------------
@@ -65,7 +66,7 @@ true var, run-test
date? if d:= ;then
\ otherwise fall back to 'lazy evaluation'
l: =
G:l: =
;
: eps_eq? \ n x x -- T

View File

@@ -1,4 +1,5 @@
needs console/loaded
needs utils/latebind
\ -----------------------------------------------------------------
@@ -65,7 +66,7 @@ true var, run-test
date? if d:= ;then
\ otherwise fall back to 'lazy evaluation'
l: =
G:l: =
;
: eps_eq? \ n x x -- T

View File

@@ -1,4 +1,5 @@
needs console/loaded
needs utils/latebind
\ -----------------------------------------------------------------
@@ -65,7 +66,7 @@ true var, run-test
date? if d:= ;then
\ otherwise fall back to 'lazy evaluation'
l: =
G:l: =
;
: eps_eq? \ n x x -- T
@@ -117,7 +118,7 @@ true var, run-test
eq? if test-passed else test-failed then
;
: approx_eaqual? \ s x w n -- | s w x n --
: approx_equal? \ s x w n -- | s w x n --
run-test? !if 3drop test-skipped ;; then
-rot isword? !if swap then
w:exec

View File

@@ -1,4 +1,5 @@
needs console/loaded
needs utils/latebind
\ -----------------------------------------------------------------
@@ -65,7 +66,7 @@ true var, run-test
date? if d:= ;then
\ otherwise fall back to 'lazy evaluation'
l: =
G:l: =
;
: eps_eq? \ n x x -- T
@@ -117,7 +118,7 @@ true var, run-test
eq? if test-passed else test-failed then
;
: approx_eaqual? \ s x w n -- | s w x n --
: approx_equal? \ s x w n -- | s w x n --
run-test? !if 3drop test-skipped ;; then
-rot isword? !if swap then
w:exec

View File

@@ -1,4 +1,5 @@
needs console/loaded
needs utils/latebind
\ -----------------------------------------------------------------
@@ -65,7 +66,7 @@ true var, run-test
date? if d:= ;then
\ otherwise fall back to 'lazy evaluation'
l: =
G:l: =
;
: eps_eq? \ n x x -- T

View File

@@ -1,4 +1,5 @@
needs console/loaded
needs utils/latebind
\ -----------------------------------------------------------------
@@ -65,7 +66,7 @@ true var, run-test
date? if d:= ;then
\ otherwise fall back to 'lazy evaluation'
l: =
G:l: =
;
: eps_eq? \ n x x -- T

View File

@@ -1,4 +1,5 @@
needs console/loaded
needs utils/latebind
\ -----------------------------------------------------------------
@@ -65,7 +66,7 @@ true var, run-test
date? if d:= ;then
\ otherwise fall back to 'lazy evaluation'
l: =
G:l: =
;
: eps_eq? \ n x x -- T

View File

@@ -1,4 +1,5 @@
needs console/loaded
needs utils/latebind
\ -----------------------------------------------------------------
@@ -65,7 +66,7 @@ true var, run-test
date? if d:= ;then
\ otherwise fall back to 'lazy evaluation'
l: =
G:l: =
;
: eps_eq? \ n x x -- T

View File

@@ -1,4 +1,5 @@
needs console/loaded
needs utils/latebind
\ -----------------------------------------------------------------
@@ -65,7 +66,7 @@ true var, run-test
date? if d:= ;then
\ otherwise fall back to 'lazy evaluation'
l: =
G:l: =
;
: eps_eq? \ n x x -- T

View File

@@ -1,4 +1,5 @@
needs console/loaded
needs utils/latebind
\ -----------------------------------------------------------------
@@ -65,7 +66,7 @@ true var, run-test
date? if d:= ;then
\ otherwise fall back to 'lazy evaluation'
l: =
G:l: =
;
: eps_eq? \ n x x -- T

View File

@@ -1,4 +1,5 @@
needs console/loaded
needs utils/latebind
\ -----------------------------------------------------------------
@@ -65,7 +66,7 @@ true var, run-test
date? if d:= ;then
\ otherwise fall back to 'lazy evaluation'
l: =
G:l: =
;
: eps_eq? \ n x x -- T