riffraff / shakespeare-parrot / changeset / 027d2fa8c216

@@ -92,14 +92,8 @@ method value($/, $key) {
   make $( $/{$key} );
+}
 method question($/, $k) {
   my $res;
   if $k eq 'eq' {
     $res := mkcall0( 'equal' );
+  }
   else {
     $res := $($<comparison>);
+  }
 method question($/) {
   my  $res := $($<comparison>);
   for $<value> {
     $res.push( $( $_ ));
+  }

@@ -88,17 +88,17 @@ rule branch {
+}
 rule question {
   | <be> <value> <comparison> 'than' <value>{*} #= diseq
   | <be> <value> 'as' <adjective> 'as' <value>{*} #= eq
   <be> <value> <comparison> <value>{*}
+}
 rule comparison {
   | ['more' <negative_adjective>
     |'less' <positive_adjective>
-    |<negative_comparative>] {*} #= worse
+    |<negative_comparative>] 'than' {*} #= worse
   | ['more' <positive_adjective>
     |'less' <negative_adjective>
-    |<positive_comparative>] {*} #= better
+    |<positive_comparative>] 'than' {*} #= better
   | 'as' <adjective> 'as' {*} #= equal
+}
 rule test {
   | 'if so,' <sentence>  {*} #= if