From 23c90e37ff48707c4aabdb8b1460df382a600d7a Mon Sep 17 00:00:00 2001 From: Robin Haberkorn Date: Sun, 24 Nov 2024 04:38:16 +0300 Subject: added special Q-Register ":" for accessing dot * We cannot call it "." since that introduces a local register and we don't want to add an unnecessary syntactic exception. * Allows the idiom [: ... ]: to temporarily move around. Also, you can now write ^E\: without having to store dot in a register first. * In the future we might add an ^E register as well for byte offsets. However, there are much fewer useful applications. * Of course, you can now also write nU: instead of nJ, Q: instead of "." and n%: instead of "nC.". However it's all not really useful. --- tests/testsuite.at | 1 + 1 file changed, 1 insertion(+) (limited to 'tests') diff --git a/tests/testsuite.at b/tests/testsuite.at index 31ce257..59b1041 100644 --- a/tests/testsuite.at +++ b/tests/testsuite.at @@ -94,6 +94,7 @@ AT_SETUP([Q-Register stack]) AT_CHECK([$SCITECO -e "[[a 23Ub ]]b Qb\"N(0/0)'"], 0, ignore, ignore) # FG will temporarily change the working directory to tests/testsuite.dir. AT_CHECK([$SCITECO -e "[[\$ @FG'..' ]]\$ :Q\$-1Q\$-^^r\"=(0/0)'"], 0, ignore, ignore) +AT_CHECK([$SCITECO -e "[[: @I/XXX/ ]]: .\"N(0/0)'"], 0, ignore, ignore) AT_CLEANUP AT_SETUP([Searches]) -- cgit v1.2.3