Cleanup

the-carlisle-group · May 7, 2023 · a0e70ee · a0e70ee
1 parent 54c6470
commit a0e70ee
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 5 deletions.
diff --git a/APLSource/Main/AssembleData.aplf b/APLSource/Main/AssembleData.aplf
@@ -7,7 +7,5 @@
      p.UniqueColumns←u
      p.AllColumns←a
      d←p AssembleColumn¨u
-     o:d
-     e←1,u∊⍨⍳1+⌈/u
-     1↓e\d,⍨⊂0/⊃d
+     1↓(1,a∊u)\d,⍨⊂0/⊃d
  }
diff --git a/APLSource/Main/AssembleHeader.aplf b/APLSource/Main/AssembleHeader.aplf
@@ -2,6 +2,5 @@
      p←⍵
      ⍬≡p.Header:⍬
      c←p.AllColumns
-     h←0 1↓(1,c∊⊃p.Columns)\(⊂''),p.Header
-     h
+     0 1↓(1,c∊⊃p.Columns)\(⊂''),p.Header
  }