1 files changed, 2 insertions, 0 deletions
diff --git a/AStack.icl b/AStack.icl
index e6dc312..0a91ecd 100644
--- a/AStack.icl
+++ b/AStack.icl
@@ -7,6 +7,8 @@ import ABC.Misc
 
 :: AStack :== [NodeId]
 
+instance toString AStack where toString xs = "[" <++ (",", xs) <+ "]"
+
 as_get    :: ASrc AStack -> NodeId
 as_get _ []    = abortn "as_get: index too large"
 as_get 0 [n:_] = n