PS: fix concat with no args and conj.

2 files changed, 2 insertions, 3 deletions

diff --git a/docs/TODO b/docs/TODO
index 05c0820..76ae3cf 100644
--- a/docs/TODO
+++ b/docs/TODO
@@ -46,7 +46,6 @@ PHP:
 
 Postscript:
     - negative numbers
-    - self-hosting issues in steps 8,A
 
 Python:
 
diff --git a/ps/core.ps b/ps/core.ps
index bdb3408..34e846e 100644
--- a/ps/core.ps
+++ b/ps/core.ps
@@ -92,7 +92,7 @@ end } def
 % [listA listB] -> concat -> [listA... listB...]
 /concat { % replaces matric concat
     dup _count 0 eq { %if just concat
-        0 _list
+        pop 0 _list
     }{ dup _count 1 eq { %elseif concat of single item
         0 _nth % noop
     }{ % else
@@ -129,7 +129,7 @@ end } def
         } for
         new_arr _list_from_array
     }{ %else vector
-        src_arr new_arr copy
+        src_arr new_arr copy pop
         1 1 args _count 1 sub {
             /idx exch def
             new_arr   src_arr length idx add 1 sub   args idx _nth   put