Merge branch 'nom' into newio

rakudo · Nov 21, 2014 · e90a169 · e90a169
2 parents 0459930 + 96b9a86
commit e90a169
Show file tree

Hide file tree

Showing 5 changed files with 17 additions and 5 deletions.
diff --git a/docs/ChangeLog b/docs/ChangeLog
@@ -1,3 +1,6 @@
+New in 2014.12
++ Increase/Decrease removed, were deprecated 1+ year
+
 New in 2014.11
 + using a constant negative subscript now dies at compile time
 + better wording for runtime negative index failure

diff --git a/src/Perl6/Actions.nqp b/src/Perl6/Actions.nqp
@@ -4475,6 +4475,18 @@ class Perl6::Actions is HLL::Actions does STDActions {
                 # it's a sigilless param or variable
                 $past := make_variable_from_parts($/, @name, '', '', @name[0]);
             }
+            elsif +@name && @name[0] eq 'EXPORT' {
+                my int $i := 1;
+                my int $m := +@name;
+                $past     := QAST::Var.new( :name<EXPORT>, :scope<lexical> );
+                while $i < $m {
+                    $past := QAST::Op.new( :op<callmethod>, :name<package_at_key>,
+                        QAST::Op.new( :op<who>, $past ),
+                        QAST::SVal.new(:value(@name[$i]))
+                    );
+                    $i := $i + 1
+                }
+            }
             else {
                 $past := instantiated_type(@name, $/);
             }

diff --git a/src/core/CompUnit.pm b/src/core/CompUnit.pm
@@ -37,7 +37,7 @@ class CompUnit {
         return Nil unless $has-source or $has-precomp;
 
         $global.protect( { %instances{$path} //= self.bless(
-          :path($path.path),
+          :path(IO::Path.new-from-absolute-path($path)),
           :lock(Lock.new),
           :$name,
           :$extension,

diff --git a/src/core/Order.pm b/src/core/Order.pm
@@ -1,9 +1,6 @@
 ## Order enumeration, for cmp and <=>
 my enum Order (:Less(-1), :Same(0), :More(1));
 
-only Increase () { DEPRECATED("Less", |<2013.11 2014.11>); Less }
-only Decrease  (){ DEPRECATED("More", |<2013.11 2014.11>); More }
-
 sub ORDER(int $i) {
     $i == 0 ?? Same !! $i <  0 ?? Less !! More
 }

diff --git a/tools/build/NQP_REVISION b/tools/build/NQP_REVISION
@@ -1 +1 @@
-2014.11
+2014.11-2-gc885c04