Permalink
Browse files

[cardinal]: Un-break regexes from the NameSpace updates from a while …

…back.

git-svn-id: https://svn.parrot.org/parrot/trunk/languages/cardinal@32760 d31e2699-5ff4-0310-a27c-f18f2fbe73fe
  • Loading branch information...
1 parent 85e236d commit ecd9ee5afe99486c9ff3b1eb85e6594a44306032 @tene tene committed Nov 17, 2008
Showing with 3 additions and 8 deletions.
  1. +1 −6 cardinal.pir
  2. +2 −2 src/parser/quote_expression.pir
View
@@ -30,12 +30,7 @@ object.
$P0 = subclass 'ResizablePMCArray', 'List'
.end
-.namespace [ 'List' ]
-
-
-
-
-.namespace [ 'cardinal::Compiler' ]
+.namespace [ 'cardinal';'Compiler' ]
#no caridinal_group found on my machine
#.loadlib 'cardinal_group'
@@ -3,7 +3,7 @@
.include 'cclass.pasm'
-.namespace ['cardinal::Grammar']
+.namespace ['cardinal';'Grammar']
.sub 'peek_brackets' :method
.param string target
@@ -89,7 +89,7 @@
$I0 = options['regex']
unless $I0 goto word_start
regex_start:
- p6regex = get_root_global ['parrot';'PGE::Perl6Regex'], 'regex'
+ p6regex = get_root_global ['parrot';'PGE';'Perl6Regex'], 'regex'
mob.'to'(pos)
quote_regex = p6regex(mob, options :flat :named)
unless quote_regex goto fail

0 comments on commit ecd9ee5

Please sign in to comment.