From 59d122229ba53badc3e42dec09d43d4b1c826d5e Mon Sep 17 00:00:00 2001 From: nomennescio Date: Fri, 27 Oct 2023 23:58:09 +0200 Subject: [PATCH] Reformat --- testest.4th | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/testest.4th b/testest.4th index eb22752..6914282 100644 --- a/testest.4th +++ b/testest.4th @@ -19,8 +19,8 @@ decimal \ reporting helpers variable lf -: failed# ( -- ) cr lf 0! ." " ; -: passed# ( -- ) cr lf 0! ." " ; +: failed# ( -- ) cr ." " lf 0! ; +: passed# ( -- ) cr ." " lf 0! ; : ?lf# ( -- ) lf @ if ." <:LF:>" then lf 0! ; \ generic arrays @@ -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