From 7a82a13f104d49b99ff436d3bee86032b661fcc5 Mon Sep 17 00:00:00 2001 From: mgcaret Date: Tue, 7 Jan 2020 18:13:05 -0800 Subject: [PATCH] word existence test future-proofing --- test/7.3.4.fs | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/test/7.3.4.fs b/test/7.3.4.fs index e5dfbb3..db2a302 100644 --- a/test/7.3.4.fs +++ b/test/7.3.4.fs @@ -12,11 +12,11 @@ t{ bl word test count swap 0> -> 4 true }t testing 7.3.4.2 Console input t{ \ -> supercalafrag }t \ since 't{}' is a nop this should be fine -t{ ' key? 0> -> true }t -t{ ' key 0> -> true }t -t{ ' expect 0> -> true }t -t{ ' span 0> -> true }t -t{ ' accept 0> -> true }t +t{ ' key? 0= -> false }t +t{ ' key 0= -> false }t +t{ ' expect 0= -> false }t +t{ ' span 0= -> false }t +t{ ' accept 0= -> false }t testing 7.3.4.3 ASCII constants