Author: jonathan
Date: Wed Jan 7 10:29:59 2009
New Revision: 35162
Modified:
branches/rvar2/languages/perl6/src/builtins/guts.pir
Log:
[rakudo] Remove now-unused twigil handling code - it's done in actions.pm now.
Modified: branches/rvar2/languages/perl6/src/builtins/guts.pir
==============================================================================
--- branches/rvar2/languages/perl6/src/builtins/guts.pir (original)
+++ branches/rvar2/languages/perl6/src/builtins/guts.pir Wed Jan 7
10:29:59 2009
@@ -491,17 +491,6 @@
.param int has_itype :opt_flag
.param pmc attr :slurpy :named
- # twigil handling
- .local string twigil
- twigil = substr name, 1, 1
- if twigil == '.' goto twigil_public
- if twigil == '!' goto twigil_done
- substr name, 1, 0, '!'
- goto twigil_done
- twigil_public:
- substr name, 1, 1, '!'
- twigil_done:
-
$P0 = metaclass.'attributes'()
$I0 = exists $P0[name]
if $I0 goto attr_exists
