update calling convention of other traits too

FROGGS · May 12, 2012 · a78f01d · a78f01d
1 parent d419ffa
commit a78f01d
Showing 1 changed file with 6 additions and 6 deletions.
diff --git a/lib/NativeCall.pm6 b/lib/NativeCall.pm6
@@ -212,16 +212,16 @@ multi trait_mod:<is>(Routine $r, :$native!) is export {
 }
 
 # Specifies the calling convention to use for a native call.
-multi trait_mod:<is>(Routine $r, $name, :$nativeconv!) is export {
-    $r does NativeCallingConvention[$name];
+multi trait_mod:<is>(Routine $r, :$nativeconv!) is export {
+    $r does NativeCallingConvention[$nativeconv];
 }
 
 # Ways to specify how to marshall strings.
-multi trait_mod:<is>(Parameter $p, $name, :$encoded!) is export {
-    $p does NativeCallEncoded[$name];
+multi trait_mod:<is>(Parameter $p, :$encoded!) is export {
+    $p does NativeCallEncoded[$encoded];
 }
-multi trait_mod:<is>(Routine $p, $name, :$encoded!) is export {
-    $p does NativeCallEncoded[$name];
+multi trait_mod:<is>(Routine $p, :$encoded!) is export {
+    $p does NativeCallEncoded[$encoded];
 }
 
 class CStr is repr('CStr') {