Handle cloning/setting braids between NQPCursor and Perl6 Cursor

Raku · Mar 26, 2017 · 383e75b · 383e75b
1 parent c247728
commit 383e75b
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/QRegex/Cursor.nqp b/src/QRegex/Cursor.nqp
@@ -190,10 +190,10 @@ role NQPCursorRole is export {
         nqp::existskey(nqp::getattr($!braid, Braid, '$!slangs'),"H:$name");
     }
 
-    method set_braid_from($other) { nqp::bindattr(self, $?CLASS, '$!braid', nqp::getattr($other, $?CLASS, '$!braid')); self }
-    method clone_braid_from($other) { nqp::bindattr(self, $?CLASS, '$!braid', nqp::getattr($other, $?CLASS, '$!braid')."!clone"()); self }
-
     method braid() { $!braid }
+    method set_braid_from($other) { nqp::bindattr(self, $?CLASS, '$!braid', $other.braid); self }
+    method clone_braid_from($other) { nqp::bindattr(self, $?CLASS, '$!braid', $other.braid."!clone"()); self }
+
     method snapshot_braid() { $!braid."!clone"() }
     method set_braid($braid) { nqp::bindattr(self, $?CLASS, '$!braid', $braid); self }