From 0e9f8ae0eeeb10a55d48054454e2f2bafab1dad9 Mon Sep 17 00:00:00 2001 From: Laria Carolin Chabowski Date: Wed, 29 Mar 2023 22:36:38 +0200 Subject: [PATCH] Implement global ++/-- functions --- src/globals.apfl | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/src/globals.apfl b/src/globals.apfl index b8642aa..8130192 100644 --- a/src/globals.apfl +++ b/src/globals.apfl @@ -108,6 +108,9 @@ is := -named 'is (partial has identity) + ++ := { x -> + x 1 } + -- := { x -> - x 1 } + -raw-substring := builtins.substring substr := { start s -> @@ -136,7 +139,7 @@ sep-len := len sep parts := [] loop { - if (maxlen-reached (+ 1 (len parts))) { + if (maxlen-reached (++ (len parts))) { parts = [~parts s] false } { @@ -239,6 +242,8 @@ '!< -> !< '!>= -> !>= '!<= -> !<= + '++ -> ++ + '-- -> -- 'keach -> keach 'each -> each 'get-optional -> get-optional