bduggan · August 25, 2016 11:48
diff --git a/dog.p6 b/dog.p6
 use lib '.';
 use Dogdo;

 dog { say "woof" }
diff --git a/Dogdo.pm6 b/Dogdo.pm6
 use nqp;
 use QAST:from<NQP>;

 # Slang to make "dog" a synonym for "do"

 role Dogdo::Grammar {
    token statement_prefix:sym<dog> { <sym><.kok> <blorst> }
 }

 role Dogdo::Actions {
    method statement_prefix:sym<dog>(Mu $/) {
        say $/.dump;
        make QAST::Op.new( :op('call'), $<blorst>.ast );
    }
 }

 sub EXPORT {
    nqp::bindkey(%*LANG, 'MAIN',         %*LANG<MAIN>.HOW.mixin(%*LANG<MAIN>,                 Dogdo::Grammar));
    nqp::bindkey(%*LANG, 'MAIN-actions', %*LANG<MAIN-actions>.HOW.mixin(%*LANG<MAIN-actions>, Dogdo::Actions));
    {}
 }
diff --git a/stderr b/stderr
 ===SORRY!===
 X::Multi::NoMatch exception produced no message
diff --git a/stdout b/stdout
 - sym: dog
 - blorst: { say "woof" }
  - block: { say "woof" }
    - blockoid: { say "woof" }
      - statementlist:  say "woof" 
        - statement: 1 matches
          - EXPR: say "woof" 
            - longname: say
              - name: say
                - identifier: say
            - args:  "woof" 
              - arglist: "woof" 
                - EXPR: "woof"
                  - value: "woof"
                    - quote: "woof"
                      - nibble: woof
	use nqp;
	use QAST:from<NQP>;

	# Slang to make "dog" a synonym for "do"

	role Dogdo::Grammar {
	token statement_prefix:sym<dog> { <sym><.kok> <blorst> }
	}

	role Dogdo::Actions {
	method statement_prefix:sym<dog>(Mu $/) {
	say $/.dump;
	make QAST::Op.new( :op('call'), $<blorst>.ast );
	}
	}

	sub EXPORT {
	nqp::bindkey(%LANG, 'MAIN', %LANG<MAIN>.HOW.mixin(%*LANG<MAIN>, Dogdo::Grammar));
	nqp::bindkey(%LANG, 'MAIN-actions', %LANG<MAIN-actions>.HOW.mixin(%*LANG<MAIN-actions>, Dogdo::Actions));
	{}
	}