Move prefix:<~> into setting.

rakudo · Aug 28, 2009 · 586076e · 586076e
1 parent d0b88cf
commit 586076e
Show file tree

Hide file tree

Showing 5 changed files with 19 additions and 16 deletions.
diff --git a/build/gen_whatever_pir.pl b/build/gen_whatever_pir.pl
@@ -9,7 +9,7 @@
   infix:% infix:div infix:mod
   infix:== infix:!= infix:<  infix:>  infix:<= infix:>= infix:<=>
   infix:.. infix:^.. infix:..^ infix:^..^
-  prefix:+ prefix:~ prefix:? prefix:! prefix:^
+  prefix:+ prefix:? prefix:! prefix:^
 );
 
 for (@ops) {

diff --git a/src/builtins/op.pir b/src/builtins/op.pir
@@ -122,14 +122,6 @@ src/builtins/op.pir - Perl 6 builtin operators
 .end
 
 
-.sub 'prefix:~' :multi(_)
-    .param string a
-    $P0 = new ['Str']
-    $P0 = a
-    .return ($P0)
-.end
-
-
 .sub 'prefix:?' :multi(_)
     .param pmc a
     if a goto a_true

diff --git a/src/classes/Multi.pir b/src/classes/Multi.pir
@@ -36,13 +36,6 @@ Multi - Perl 6 multi-dispatch routine
 .end
 
 
-.namespace []
-
-.sub 'prefix:~' :multi('MultiSub')
-    .param pmc multi
-    .tailcall multi.'name'()
-.end
-
 =back
 
 =cut

diff --git a/src/setting/Operators.pm b/src/setting/Operators.pm
@@ -222,4 +222,17 @@ multi sub prefix:<->(Int $a) {
     }
 }
 
+
+multi sub prefix:<~>(Object $a) {
+    Q:PIR {
+        $P0 = find_lex '$a'
+        $S0 = $P0
+        %r = new ['Str']
+        assign %r, $S0
+    }
+}
+
+
+multi sub prefix:<~>(Multi $a) { $a.name }
+
 # vim: ft=perl6
diff --git a/src/setting/Whatever.pm b/src/setting/Whatever.pm
@@ -67,4 +67,9 @@ multi sub prefix:<->(Whatever $a)
 multi sub prefix:<->(WhateverCode $a)
     { WhateverCodeX('prefix:-', $a) }
 
+multi sub prefix:<~>(Whatever $a)
+    { WhateverCodeX('prefix:~', $a) }
+multi sub prefix:<~>(WhateverCode $a)
+    { WhateverCodeX('prefix:~', $a) }
+
 # vim: ft=perl6