Skip to content
Permalink
Browse files

Add some missing commas discoverd while hacking on colon lists

  Nothing is wrong with them, just they were not intended that way
  • Loading branch information...
skids committed May 22, 2018
1 parent d1d31fd commit 76e5ee1b3995cfe8f179565f9e45003466760e98
@@ -573,7 +573,7 @@ our role Native[Routine $r, $libname where Str|Callable|List|IO::Path|Distributi
if nqp::elems($args) != $!arity {
X::TypeCheck::Argument.new(
:objname($.name),
:arguments(args.list.map(*.^name))
:arguments(args.list.map(*.^name)),
:signature(try $r.signature.gist),
).throw
}
@@ -1032,7 +1032,7 @@ Did you mean to add a stub (\{...\}) or did you mean to .classify?"
Failure.new(X::Adverb.new( # multiple adverbs ??
:$what,
:source(try { self.VAR.name } // self.WHAT.perl),
:nogo(%a.keys.grep: /k|v|p/)
:nogo(%a.keys.grep: /k|v|p/),
:unexpected(%a.keys.grep: { !.match(/k|v|p/) } )))
),
value # no adverb
@@ -1107,7 +1107,7 @@ Did you mean to add a stub (\{...\}) or did you mean to .classify?"
X::Adverb.new(
:what<grep>,
:source(try { self.VAR.name } // self.WHAT.perl),
:nogo(%_.keys.grep: /k|v|kv|p/)
:nogo(%_.keys.grep: /k|v|kv|p/),
:unexpected(%_.keys.grep: { !.match(/k|v|kv|p/) } )
).throw
}
@@ -466,7 +466,7 @@ sub MAIN(:$name is copy, :$auth, :$ver, *@, *%) {
method Str() { self!dist.Str }
}.new(
:$dist-id,
:read-dist(-> { self!read-dist($dist-id) })
:read-dist(-> { self!read-dist($dist-id) }),
:$.prefix,
)
}
@@ -23,7 +23,7 @@ class CompUnit::Repository::Spec {
self.new(
:$short-id,
:options(%($<option-name>>>.Str Z=> $<option-value>>>.Str)),
:$path
:$path,
:Str($short-id ~ $<options> ~ '#' ~ $path)
);
}

0 comments on commit 76e5ee1

Please sign in to comment.
You can’t perform that action at this time.