From 68c008cf5237e955cfc63785e92508f6f4e71f49 Mon Sep 17 00:00:00 2001
From: Joel Martin <github@martintribe.org>
Date: Tue, 15 Apr 2014 20:54:18 -0500
Subject: PS: fix concat with no args and conj.

---
 docs/TODO  | 1 -
 ps/core.ps | 4 ++--
 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
-- 
cgit v1.2.3