Skip to content

Instantly share code, notes, and snippets.

@FROGGS
Created September 7, 2015 21:35
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save FROGGS/a6aee767b154a611f4ee to your computer and use it in GitHub Desktop.
Save FROGGS/a6aee767b154a611f4ee to your computer and use it in GitHub Desktop.
diff --git a/src/core/Inc.pm b/src/core/Inc.pm
index c1f9f15..0d37da2 100644
--- a/src/core/Inc.pm
+++ b/src/core/Inc.pm
@@ -23,7 +23,7 @@ RAKUDO_MODULE_DEBUG("Init @INC with {specs}")
}
}
else {
- @INC.push: PARSE-INCLUDE-SPECS($I);
+ @INC.push: PARSE-INCLUDE-SPECS(nqp::p6box_s($I));
}
}
diff --git a/src/core/Str.pm b/src/core/Str.pm
index 32d2bfc..a9fa1b8 100644
--- a/src/core/Str.pm
+++ b/src/core/Str.pm
@@ -952,6 +952,7 @@ my class Str does Stringy { # declared in BOOTSTRAP
if ($all) {
my $elems = +matches;
map {
+ next if nqp::istype($_, List);
my $value = substr(self,$prev-pos, .from - $prev-pos);
$prev-pos = .to;
# we don't want the dummy object
@@ -961,6 +962,7 @@ my class Str does Stringy { # declared in BOOTSTRAP
}
else {
map {
+ next if nqp::istype($_, List);
my $value = substr(self, $prev-pos, .from - $prev-pos);
$prev-pos = .to;
$value;
diff --git a/src/core/traits.pm b/src/core/traits.pm
index cc5cc0d..f21607c 100644
--- a/src/core/traits.pm
+++ b/src/core/traits.pm
@@ -255,6 +255,7 @@ sub EXPORT_SYMBOL(\exp_name, @tags, Mu \sym) {
}
@export_packages.push: .WHO<EXPORT>;
}
+ nqp::say('traits:258 ' ~ @tags.perl);
for @export_packages -> $p {
for @tags -> $tag {
my $install_in;
@@ -264,6 +265,7 @@ sub EXPORT_SYMBOL(\exp_name, @tags, Mu \sym) {
else {
$install_in := Metamodel::PackageHOW.new_type(:name($tag));
$install_in.^compose;
+ nqp::say('traits:267 ' ~ $tag.perl);
$p.WHO{$tag} := $install_in;
}
if $install_in.WHO.EXISTS-KEY(exp_name) {
./perl6-j --target=jar --output=lib/NativeCall.pm.jar -Ilib lib/NativeCall.pm
traits:258 ["ALL", ("types", "DEFAULT")]
traits:267 "ALL"
traits:267 $("types", "DEFAULT")
===SORRY!===
Cannot bind to Stash slice
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment