Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Documentation

  • Loading branch information...
commit 98154d540361eb877851034cd59120e6bc8505e3 1 parent 82190fd
Jeffrey Kegler authored
Showing with 5 additions and 6 deletions.
  1. +1 −1  r2/pod/Semantics/Null.pod
  2. +4 −5 r2/t/null_example.t
View
2  r2/pod/Semantics/Null.pod
@@ -196,7 +196,7 @@ Here is the output:
name: Null Value Example Output
normalize-whitespace: 1
- S(L(null A;null B;x);null R)
+ S(L(null A;null B;X(x));null R)
=for Marpa::R2::Display::End
View
9 r2/t/null_example.t
@@ -54,8 +54,7 @@ sub L {
}
sub R {
- shift;
- return 'R(' . ( join q{;}, map { $_ // '[ERROR!]' } @_ ) . ')';
+ return 'R(): I will never be called';
}
sub S {
@@ -63,8 +62,8 @@ sub S {
return 'S(' . ( join q{;}, map { $_ // '[ERROR!]' } @_ ) . ')';
}
-sub X { return $_[1]; }
-sub Y { return $_[1]; }
+sub X { return 'X(' . $_[1] . ')'; }
+sub Y { return 'Y(' . $_[1] . ')'; }
our $null_A = 'null A';
our $null_B = 'null B';
@@ -108,7 +107,7 @@ $recce->read( 'x', 'x' );
# end-before-line: '^END_OF_OUTPUT$'
chomp( my $expected = <<'END_OF_OUTPUT');
-S(L(null A;null B;x);null R)
+S(L(null A;null B;X(x));null R)
END_OF_OUTPUT
# Marpa::R2::Display::End
Please sign in to comment.
Something went wrong with that request. Please try again.