Author: pmichaud
Date: Fri Jan 9 16:23:55 2009
New Revision: 35325
Removed:
trunk/languages/perl6/src/classes/UnderConstructionProto.pir
Modified:
trunk/languages/perl6/config/makefiles/root.in
trunk/languages/perl6/src/parser/methods.pir
Log:
[rakudo]: Revert r35323 -- we're going to take a different approach.
Modified: trunk/languages/perl6/config/makefiles/root.in
==============================================================================
--- trunk/languages/perl6/config/makefiles/root.in (original)
+++ trunk/languages/perl6/config/makefiles/root.in Fri Jan 9 16:23:55 2009
@@ -54,7 +54,6 @@
src/classes/Associative.pir \
src/classes/Callable.pir \
src/classes/Any.pir \
- src/classes/UnderConstructionProto.pir \
src/classes/Bool.pir \
src/classes/Str.pir \
src/classes/Num.pir \
Modified: trunk/languages/perl6/src/parser/methods.pir
==============================================================================
--- trunk/languages/perl6/src/parser/methods.pir (original)
+++ trunk/languages/perl6/src/parser/methods.pir Fri Jan 9 16:23:55 2009
@@ -19,19 +19,7 @@
.namespace [ "Perl6";"Grammar" ]
.sub "add_type" :method
.param string name
-
- # Parse name.
- .local pmc ns
- $P0 = compreg 'Perl6'
- ns = $P0.'parse_name'(name)
- name = pop ns
-
- # Create UnderConstructionProto and insert into the namespace.
- .local pmc proto
- $P0 = get_hll_global ['Perl6';'Compiler'], 'UnderConstructionProto'
- proto = $P0.'new'('ns'=>ns, 'short_name'=>name)
- # XXX Uncomment this to see breakage.
- # set_hll_global ns, name, proto
+ # XXX TODO
.end
