WIPHEADmaster

1 files changed, 2 insertions, 0 deletions

diff --git a/SC/Acc.hs b/SC/Acc.hs
index 5ae2532..a0ef6b4 100644
--- a/SC/Acc.hs
+++ b/SC/Acc.hs
@@ -88,6 +88,8 @@ compilePAcc' aenv destnames = \case
               usedA = map (\(TypedAName _ n) -> n) (itupList arrnames)
           return [CChunk [] sts usedA]
 
+    A.Anil -> return []
+
     A.Apair a b
       | ANPair destnames1 destnames2 <- destnames -> do
           res1 <- compileAcc' aenv destnames1 a