Skip to content

Instantly share code, notes, and snippets.

X::Undeclaredpos => <unknown>, symbol => <unknown>, suggestions => <unknown>, filename => <unknown>, post => <unknown>, pre => <unknown>, what => <unknown>, line => <unknown>,
at src/Raku/ast/compunit.rakumod:905 (/home/dan/Source/raku/rakudo/blib/Perl6/BOOTSTRAP/v6c.moarvm:throw)
from src/Raku/ast/resolver.rakumod:1286 (/home/dan/Source/raku/rakudo/blib/Perl6/BOOTSTRAP/v6c.moarvm:panic)
from src/Raku/Grammar.nqp:578 (/home/dan/Source/raku/rakudo/blib/Raku/Grammar.moarvm:typed-panic)
from src/Raku/Grammar.nqp:4936 (/home/dan/Source/raku/rakudo/blib/Raku/Grammar.moarvm:typo-typename)
from src/Raku/Grammar.nqp:4977 (/home/dan/Source/raku/rakudo/blib/Raku/Grammar.moarvm:signature)
from src/Raku/Grammar.nqp:4207 (/home/dan/Source/raku/rakudo/blib/Raku/Grammar.moarvm:method-def)
from src/Raku/Grammar.nqp:895 (/home/dan/Source/raku/rakudo/blib/Raku/Grammar.moarvm:key-origin)
from <unknown>:1 (/home/dan/Source/raku/rakudo/blib/Raku/Grammar.moarvm:routine-declarator:sym<method>)
from NQP::src/QReg
at NQP::src/QAST/Children.nqp:11 (/home/dan/r/install/share/nqp/lib/QASTNode.moarvm:shallow_clone)
from src/Raku/ast/code.rakumod:329 (/home/dan/Source/raku/rakudo/blib/Perl6/BOOTSTRAP/v6c.moarvm:)
from src/Raku/ast/code.rakumod:264 (/home/dan/Source/raku/rakudo/blib/Perl6/BOOTSTRAP/v6c.moarvm:)
from <unknown>:1 (/home/dan/Source/raku/rakudo/blib/Perl6/BOOTSTRAP/v6c.moarvm:IMPL-FIXUP-DYNAMICALLY-COMPILED-BLOCK)
from src/Raku/ast/code.rakumod:431 (/home/dan/Source/raku/rakudo/blib/Perl6/BOOTSTRAP/v6c.moarvm:IMPL-COMPILE-DYNAMICALLY)
from <unknown>:1 (/home/dan/Source/raku/rakudo/blib/Perl6/BOOTSTRAP/v6c.moarvm:)
from src/Raku/ast/code.rakumod:155 (/home/dan/Source/raku/rakudo/blib/Perl6/BOOTSTRAP/v6c.moarvm:)
from <unknown>:1 (/home/dan/Source/raku/rakudo/blib/Perl6/BOOTSTRAP/v6c.moarvm:build-exception)
from src/Raku/ast/code.rakumod:345 (/home/dan/Source/raku/rakudo/blib/Perl6/BOOTSTRAP/v6c.moarvm:)
from src/Raku/ast/code.rakumod:355 (/home/dan/Source/raku/rakudo/blib/Perl6/BOOTSTRAP/v6c
Test Summary Report
-------------------
t/spec/6.c/S04-declarations/my-6c.rakudo.moar (Wstat: 0 Tests: 112 Failed: 0)
TODO passed: 61
t/spec/APPENDICES/A02-some-day-maybe/misc.rakudo.moar (Wstat: 0 Tests: 6 Failed: 0)
TODO passed: 1
t/spec/S02-literals/adverbs.rakudo.moar (Wstat: 0 Tests: 35 Failed: 0)
TODO passed: 27-28
t/spec/S02-literals/pairs.rakudo.moar (Wstat: 0 Tests: 84 Failed: 0)
diff --git 6.c/S04-declarations/my-6c.t 6.c/S04-declarations/my-6c.t
index 301c7f9d8..e13fc0108 100644
--- 6.c/S04-declarations/my-6c.t
+++ 6.c/S04-declarations/my-6c.t
@@ -285,7 +285,7 @@ throws-like 'my $z = $z', X::Syntax::Variable::Initializer, name => '$z';
eval-lives-ok 'my (%h?) #OK', 'my (%h?) lives';
# https://github.com/Raku/old-issue-tracker/issues/734
-eval-lives-ok 'my $x = 3; class A { has $.y = $x; }; A.new.y.gist',
+eval-lives-ok 'my $x = 3; class A734 { has $.y = $x; }.new.y.gist',
diff --git src/Raku/ast/package.rakumod src/Raku/ast/package.rakumod
index 610fdf7b0..5a86a3937 100644
--- src/Raku/ast/package.rakumod
+++ src/Raku/ast/package.rakumod
@@ -267,7 +267,7 @@ method install-extra-declarations(RakuAST::Resolver $resolver) {
# Need to install the package somewhere
method install-in-scope(RakuAST::Resolver $resolver, str $scope, RakuAST::Name $name, RakuAST::Name $full-name) {
self.IMPL-INSTALL-PACKAGE(
- $resolver, $scope, $name, $resolver.current-package, :meta-object(Mu)
+ $resolver, $scope, $full-name, $resolver.current-package, :meta-object(Mu)
diff --git src/Raku/ast/package.rakumod src/Raku/ast/package.rakumod
index ab16d21d4..2baf0a6a7 100644
--- src/Raku/ast/package.rakumod
+++ src/Raku/ast/package.rakumod
@@ -267,7 +267,7 @@ method install-extra-declarations(RakuAST::Resolver $resolver) {
# Need to install the package somewhere
method install-in-scope(RakuAST::Resolver $resolver, str $scope, RakuAST::Name $name, RakuAST::Name $full-name) {
self.IMPL-INSTALL-PACKAGE(
- $resolver, $scope, $name, $resolver.current-package, :meta-object(Mu)
+ $resolver, $scope, $full-name, $resolver.current-package, :meta-object(Mu)
dan@athena:~/Source/raku/rakudo$ RAKUDO_RAKUAST=1 ./rakudo-m -e 'class A { has $.b is built(True) }'
callee.is-resolved = True nqp::istype(callee.resolution, RakuAST::CompileTimeValue) = 1 args.IMPL-CAN-INTERPRET = False
callee: Var::Lexical::Constant 【&trait_mod:<is>】
callee origin:
args: ArgList
Declaration::ResolvedConstant
ColonPair::Value
Circumfix::Parentheses ⎡(True)⎤
SemiList ⎡True⎤
diff --git lib/Test.rakumod lib/Test.rakumod
index 23520d83c..fd62c3983 100644
--- lib/Test.rakumod
+++ lib/Test.rakumod
@@ -1,5 +1,12 @@
use MONKEY-GUTS; # Allow NQP ops.
+sub eval_exception($code) {
+ try {
+ EVAL ($code);
dan@athena:~/Source/raku/rakudo$ sudo gdb -p 188744
[sudo] password for dan:
GNU gdb (Ubuntu 15.1-1ubuntu2) 15.1
Copyright (C) 2024 Free Software Foundation, Inc.
License GPLv3+: GNU GPL version 3 or later <http://gnu.org/licenses/gpl.html>
This is free software: you are free to change and redistribute it.
There is NO WARRANTY, to the extent permitted by law.
Type "show copying" and "show warranty" for details.
This GDB was configured as "aarch64-linux-gnu".
Type "show configuration" for configuration details.
use v6;
use nqp;
unit module Text::Diff::Sift4;
sub sift4(Str:D() $s1, Str:D() $s2, Int $maxOffset = 100, Int $maxDistance = 100 --> Int) is export {
my int $l1 = nqp::chars($s1);
my int $l2 = nqp::chars($s2);
return $l2 unless $l1;