Fix compile-time references to OUTER etc

sorear · Oct 26, 2011 · 878afab · 878afab
1 parent 05b5bb6
commit 878afab
Showing 1 changed file with 8 additions and 8 deletions.
diff --git a/src/niecza b/src/niecza
@@ -98,11 +98,11 @@ method is_name($longname, $curlex = $*CURLEX) {
             $pkg = $*unit.abs_pkg(shift @parts);
             goto "packagey";
         }
-        when 'MY'      { $sub = $curlex<!sub>;                 goto "lexy"; }
-        when 'OUTER'   { $sub = $curlex<!sub>.?outer;          goto "lexy"; }
-        when 'UNIT'    { $sub = $curlex<!sub>.?to_unit;        goto "lexy"; }
-        when 'CORE'    { $sub = $curlex<!sub>.?true_setting;   goto "lexy"; }
-        when 'SETTING' { $sub = $curlex<!sub>.?to_unit.?outer; goto "lexy"; }
+        when 'MY'      { $sub = $curlex<!sub>;               goto "lexy"; }
+        when 'OUTER'   { $sub = $curlex<!sub>.outer;         goto "lexy"; }
+        when 'UNIT'    { $sub = $curlex<!sub>.to_unit;       goto "lexy"; }
+        when 'CORE'    { $sub = $curlex<!sub>.true_setting;  goto "lexy"; }
+        when 'SETTING' { $sub = $curlex<!sub>.to_unit.outer; goto "lexy"; }
 
         when 'COMPILING' | 'DYNAMIC' | 'CALLER' | 'CLR' { return True }
 
@@ -128,9 +128,9 @@ lexy:
     return False unless $sub;
     return True unless @parts;
     given @parts[0] {
-        when 'OUTER'   { $sub = $sub.?outer;          goto "lexy"; }
-        when 'UNIT'    { $sub = $sub.?to_unit;        goto "lexy"; }
-        when 'SETTING' { $sub = $sub.?to_unit.?outer; goto "lexy"; }
+        when 'OUTER'   { $sub = $sub.outer;         goto "lexy"; }
+        when 'UNIT'    { $sub = $sub.to_unit;       goto "lexy"; }
+        when 'SETTING' { $sub = $sub.to_unit.outer; goto "lexy"; }
         when 'CALLER'  { return True; }
     }