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

Content added Content deleted

Inline

@@ Line 230: / Line 230: @@
    cells malloc >r
    dup cells >r
-   [ r> r> r> 2dup >r >r swap malloc swap i swap put-element >r ] iterate
+   [ r> r> r> 2dup >r >r swap malloc swap i swap array.put >r ] iterate
  r> r> nip
  ] is 2D-array
  [ ( a b address -- value )
-   get-element get-element
+   array.get array.get
  ] is 2D-get-element
  [ ( value a b address -- )
-   get-element put-element
+   array.get array.put
  ] is 2D-put-element