fix(objectionary#3057): freed

eo-runtime/src/main/eo/org/eolang/cage.eo

@@ -38,10 +38,9 @@
   # Object encaged by locator.
   [locator] > encaged
     $ > self
-    it > @
 
     # Retrieved encaged object by locator.
-    [] > it /?
+    [] > @ /?
 
     # Encage new object by locator.
     [object] > encage /true

eo-runtime/src/main/eo/org/eolang/memory.eo

@@ -63,11 +63,5 @@
     [] > free
       ^.pointer.free > @
 
-    # Free memory and return data.
-    [] > freed
-      (cage bytes).new > data
-      seq > @
-        *
-          data.encage ^.pointer.read
-          ^.free
-          data.freed
+    # Free memory and return the data.
+    [] > freed /bytes

eo-runtime/src/main/java/EOorg/EOeolang/EOcage$EOencaged$EOit.java → eo-runtime/src/main/java/EOorg/EOeolang/EOcage$EOencaged$EOφ.java

@@ -37,17 +37,17 @@
 import org.eolang.XmirObject;
 
 /**
- * Cage.encaged.it object.
+ * Cage.encaged.φ object.
  * @since 0.36.0
  */
 @Versionized
-@XmirObject(oname = "cage.encaged.it")
-final class EOcage$EOencaged$EOit extends PhDefault implements Atom {
+@XmirObject(oname = "cage.encaged.@")
+final class EOcage$EOencaged$EOφ extends PhDefault implements Atom {
     /**
      * Ctor.
      * @param sigma Sigma
      */
-    EOcage$EOencaged$EOit(final Phi sigma) {
+    EOcage$EOencaged$EOφ(final Phi sigma) {
         super(sigma);
     }
 
@@ -56,8 +56,9 @@ public Phi lambda() throws Exception {
         final int locator = Math.toIntExact(
             new Param(this.take(Attr.RHO), "locator").strong(Long.class)
         );
+        final Phi obj = Cages.INSTANCE.get(locator);
         return new PhTracedLocator(
-            Cages.INSTANCE.get(locator),
+            obj,
             locator
         );
     }

eo-runtime/src/main/java/EOorg/EOeolang/EOmemory$EOallocated$EOfreed.java

@@ -0,0 +1,64 @@
+/*
+ * The MIT License (MIT)
+ *
+ * Copyright (c) 2016-2024 Objectionary.com
+ *
+ * Permission is hereby granted, free of charge, to any person obtaining a copy
+ * of this software and associated documentation files (the "Software"), to deal
+ * in the Software without restriction, including without limitation the rights
+ * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+ * copies of the Software, and to permit persons to whom the Software is
+ * furnished to do so, subject to the following conditions:
+ *
+ * The above copyright notice and this permission notice shall be included
+ * in all copies or substantial portions of the Software.
+ *
+ * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+ * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+ * FITNESS FOR A PARTICULAR PURPOSE AND NON-INFRINGEMENT. IN NO EVENT SHALL THE
+ * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+ * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+ * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+ * SOFTWARE.
+ */
+
+/*
+ * @checkstyle PackageNameCheck (4 lines)
+ */
+package EOorg.EOeolang;
+
+import org.eolang.Atom;
+import org.eolang.Attr;
+import org.eolang.Data;
+import org.eolang.Dataized;
+import org.eolang.Param;
+import org.eolang.PhDefault;
+import org.eolang.Phi;
+import org.eolang.Versionized;
+import org.eolang.XmirObject;
+
+/**
+ * Memory.allocated.freed object.
+ * @since 0.36.0
+ * @checkstyle TypeNameCheck (5 lines)
+ */
+@Versionized
+@XmirObject(oname = "memory.allocated.freed")
+final class EOmemory$EOallocated$EOfreed extends PhDefault implements Atom {
+    /**
+     * Ctor.
+     * @param sigma Sigma
+     */
+    EOmemory$EOallocated$EOfreed(final Phi sigma) {
+        super(sigma);
+    }
+
+    @Override
+    public Phi lambda() throws Exception {
+        final Phi data = new Data.ToPhi(
+            new Param(this).strong(byte[].class)
+        );
+        new Dataized(this.take(Attr.RHO).take("free")).take();
+        return data;
+    }
+}

eo-runtime/src/test/eo/org/eolang/cage-tests.eo

@@ -44,7 +44,7 @@
   seq > @
     *
       x.encage 42
-      copy.freed.eq 42
+      42.eq copy.freed
 
 # Test.
 [] > dataizes-encaged-object-not-lazily-first
@@ -176,7 +176,7 @@
         [e]
           cge.encage 10 > @
         nop
-      cge.freed.eq 10
+      10.eq cge.freed
 
 # Check that cage stack leads to error. Just prints the error
 # message if passes.
@@ -199,12 +199,14 @@
 
 # Test.
 [] > applies-after-retrieval
-  # Func.
-  [x] > func
-    2.plus x > @
-  (cage func).new > c
+  new. > c
+    cage
+      []
+        # Func.
+        [x] > func
+          2.plus x > @
   and. > @
     eq.
-      c.it 5
+      c.func 5
       7
     c.free

eo-runtime/src/test/eo/org/eolang/const-tests.eo

@@ -36,12 +36,10 @@
   seq > @
     *
       cached.as-int
-      cached.as-bytes
-      cached.as-bool
-      1.eq m.freed
+      TRUE
 
 # Test.
-[] > const-behaves-as-exclamationed
+[] > const-behaves-as-exclamation
   # Func.
   [] > func
     (memory 0).alloc > m

eo-runtime/src/test/eo/org/eolang/memory-tests.eo

@@ -97,11 +97,7 @@
     *
       a.write 10
       b.write 20
-      and.
-        a.eq 10
-        and.
-          b.free
-          a.free
+      a.eq 10
 
 # Test.
 [] > memory-is-strictly-typed-bool-error-overflow
@@ -159,7 +155,7 @@
 [] > memory-is-strictly-typed-string
   (memory "HellX").alloc > m
   and. > @
-    eq. > @
+    eq.
       try
         []
           m.write "Prot" > @

eo-runtime/src/test/eo/org/eolang/while-tests.eo

@@ -39,7 +39,7 @@
   while > res!
     condition
     [i] (condition.write FALSE > @)
-  and.
+  and. > @
     (bool res).not
     condition.free