Browse files

Add take-rw and return-rw

They are currently synonymous with the undecorated forms, but this won't
last forever.
  • Loading branch information...
1 parent 1252cdb commit efda20854e3b73ad0630b4409afed8e73b6c5521 @sorear committed Mar 24, 2012
Showing with 4 additions and 0 deletions.
  1. +4 −0 lib/CORE.setting
View
4 lib/CORE.setting
@@ -72,6 +72,9 @@ sub redo ($x?) { _lexotic(3, $x, ()) }
sub return(\|@pcl) is return-pass { Q:CgOp {
(control 4 (null frame) (int -1) (null str) {@pcl.unwrap-single})
} }
+sub return-rw(\|@pcl) is return-pass { Q:CgOp {
+ (control 4 (null frame) (int -1) (null str) {@pcl.unwrap-single})
+} }
sub succeed(\|@pcl) {
Q:CgOp { (control 6 (null frame) (int -1) (null str) {@pcl.unwrap-single}) }
}
@@ -81,6 +84,7 @@ sub term:<proceed>() {
}
sub take(\|@pcl) { Q:CgOp { (take {@pcl.unwrap-single}) } }
+sub take-rw(\|@pcl) { Q:CgOp { (take {@pcl.unwrap-single}) } }
sub infix:<&> is pure is Niecza::absprec<q= list> is iffy
(\|$p) { Junction.from-parcel(0, $p) }

0 comments on commit efda208

Please sign in to comment.