Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
rename s/readline/get/g, and remove prefix:<=>
That's not fully correct, .get() still does unwanted context dwimmery, but
it does make three of the four failing spectests pass again.
  • Loading branch information
moritz committed Apr 20, 2009
1 parent 5919b0c commit 2703c20
Show file tree
Hide file tree
Showing 2 changed files with 3 additions and 22 deletions.
24 changes: 3 additions & 21 deletions src/classes/IO.pir
Expand Up @@ -19,7 +19,7 @@ This file implements the IO file handle class.
p6meta.'new_class'('IOIterator', 'parent'=>'Perl6Object', 'attr'=>'$!IO')

$P0 = get_hll_namespace ['IO']
'!EXPORT'('readline', 'from'=>$P0)
'!EXPORT'('get', 'from'=>$P0)
.end

=head2 Methods
Expand All @@ -28,37 +28,19 @@ This file implements the IO file handle class.

.namespace ['IO']

=item readline
=item get

Reads a line from the file handle.

=cut

.sub 'readline' :method
.sub 'get' :method
$P0 = get_hll_global 'IOIterator'
$P0 = $P0.'new'('IO' => self)
.return ($P0)
.end


=back

=head2 Functions

=over 4

=item C<prefix:=(IO $io)>

Gets the iterator for the IO object.

=cut

.namespace []
.sub 'prefix:=' :multi('IO')
.param pmc io
.tailcall io.'readline'()
.end

=back

=head1 IOIterator
Expand Down
1 change: 0 additions & 1 deletion src/parser/grammar-oper.pg
Expand Up @@ -20,7 +20,6 @@ proto prefix:<!> is equiv(prefix:<+>) { ... }
proto prefix:<+^> is equiv(prefix:<+>)
is pirop('bnot')
{ ... }
proto prefix:<=> is equiv(prefix:<+>) { ... }
proto prefix:<^> is equiv(prefix:<+>) { ... }
proto prefix:<\> is equiv(prefix:<+>) { ... }
proto prefix:<|> is equiv(prefix:<+>) { ... }
Expand Down

0 comments on commit 2703c20

Please sign in to comment.