From 54d5bfe751d8489ae727eec1cb8d4a9a2279a5e5 Mon Sep 17 00:00:00 2001 From: Irene Knapp Date: Wed, 20 May 2026 22:12:57 -0700 Subject: tidied away core-plus.e it's merged into core now. that just made the most sense... a couple of its combinators are too useful to not use once you know about them Force-Push: yes Change-Id: I3857f353a8603960bebbf34f24572e3d5815f0de --- transform.e | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) (limited to 'transform.e') diff --git a/transform.e b/transform.e index 2d75f9f..22c4ecf 100644 --- a/transform.e +++ b/transform.e @@ -385,6 +385,8 @@ allocate-transform-state s" transform-state" variable dup s" -" stringcmp 0 = { drop -1 exit } if dup s" *" stringcmp 0 = { drop -1 exit } if dup s" /%" stringcmp 0 = { drop 0 exit } if + dup s" 1+" stringcmp 0 = { drop 0 exit } if + dup s" 1-" stringcmp 0 = { drop 0 exit } if dup s" =" stringcmp 0 = { drop -1 exit } if dup s" !=" stringcmp 0 = { drop -1 exit } if dup s" >" stringcmp 0 = { drop -1 exit } if @@ -443,10 +445,6 @@ allocate-transform-state s" transform-state" variable dup s" align-size" stringcmp 0 = { drop -1 exit } if dup s" unpackalign" stringcmp 0 = { drop -1 exit } if dup s" crash" stringcmp 0 = { drop 0 exit } if - - ~ From core-plus.e. - dup s" 1-" stringcmp 0 = { drop 0 exit } if - dup s" 1+" stringcmp 0 = { drop 0 exit } if dup s" max" stringcmp 0 = { drop -1 exit } if dup s" min" stringcmp 0 = { drop -1 exit } if dup s" over" stringcmp 0 = { drop 1 exit } if -- cgit 1.4.1