Skip to content

Commit

Permalink
Reformat
Browse files Browse the repository at this point in the history
  • Loading branch information
nomennescio committed Oct 27, 2023
1 parent 49256e2 commit 59d1222
Showing 1 changed file with 3 additions and 3 deletions.
6 changes: 3 additions & 3 deletions testest.4th
Original file line number Diff line number Diff line change
Expand Up @@ -19,8 +19,8 @@ decimal
\ reporting helpers

variable lf
: failed# ( -- ) cr lf 0! ." <FAILED::>" ;
: passed# ( -- ) cr lf 0! ." <PASSED::>" ;
: failed# ( -- ) cr ." <FAILED::>" lf 0! ;
: passed# ( -- ) cr ." <PASSED::>" lf 0! ;
: ?lf# ( -- ) lf @ if ." <:LF:>" then lf 0! ;

\ generic arrays
Expand Down Expand Up @@ -99,7 +99,7 @@ variable ^#results.f$ ' #results.f$ ^#results.f$ !
#r #rf + #f #ff + + if failed# #r ^#results$ ?@^ #rf ^#results.f$ ?@^ #f ^different$ ?@^ #ff ^different.f$ ?@^
else #p 2 = if passed# ^passed$ @ ^ then then reset-stacks ;

\ utility words
\ testest utility words

3037000493 constant #m \ prime number < sqrt (2^63-1)
53 constant #p \ prime number
Expand Down

0 comments on commit 59d1222

Please sign in to comment.