Create a two-dimensional array at runtime: Difference between revisions

Content added Content deleted

Inline

@@ Line 2,288: / Line 2,288: @@
   [ dip dup
       witheach [ peek dup ]
-    drop ]                  is unpack        (   { p --> *     )
+    drop ]                  is depack        (   { p --> *     )
   [ reverse
@@ Line 2,296: / Line 2,296: @@
   [ dup dip
       [ rot dip
-        [ unpack drop ] ]
+        [ depack drop ] ]
     repack ]                is {poke}        ( x { p --> {     )