From 211d5b3f8aaed4b314662930b71d345da16c5426 Mon Sep 17 00:00:00 2001
From: jnthn <jnthn@jnthn.net>
Date: Sun, 2 Sep 2012 17:38:27 +0200
Subject: [PATCH] Eliminate a couple of mentions of PAST from HLL::Compiler.

---
 src/HLL/Compiler.pm | 12 +++---------
 1 file changed, 3 insertions(+), 9 deletions(-)

diff --git a/src/HLL/Compiler.pm b/src/HLL/Compiler.pm
index 65a7fab6b4..f020c2c8c8 100644
--- a/src/HLL/Compiler.pm
+++ b/src/HLL/Compiler.pm
@@ -428,20 +428,14 @@ class HLL::Compiler {
     method past($source, *%adverbs) {
         my $ast := $source.ast();
         self.panic("Unable to obtain ast from " ~ pir::typeof__SP($source))
-            unless $ast ~~ PAST::Node || $ast ~~ QAST::Node;
+            unless $ast ~~ QAST::Node;
         $ast;
     }
 
     method post($source, *%adverbs) {
         my $*PASTCOMPILER := pir::compreg__Ps('PAST');
-        if $source ~~ PAST::Node {
-            my $*PIRT := 0;
-            $*PASTCOMPILER.to_post($source, |%adverbs)
-        }
-        else {
-            my $*PIRT := 1;
-            QAST::Compiler.as_post($source)
-        }
+        my $*PIRT := 1;
+        QAST::Compiler.as_post($source)
     }
 
     method pirbegin() {