* A bit more bracketification for (prog []) on rxwork.pl and setting.

sorear · Jul 20, 2010 · 29b9da5 · 29b9da5
1 parent 6fd3e0b
commit 29b9da5
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 6 deletions.
diff --git a/rxwork.pl b/rxwork.pl
@@ -19,9 +19,9 @@ ($cs, $sub)
             # XXX horrible. we're making the value act @-ish, maybe
             Q:CgOp {
                 (prog
-                  (setindex value (getfield slots (cast DynObject (@ (l self))))
-                    (subcall (@ (l $f)) (l $bv)))
-                  (null Variable))
+                  [setindex value (getfield slots (cast DynObject (@ (l self))))
+                    (subcall (@ (l $f)) (l $bv))]
+                  [null Variable])
             };
             $!next = LazyIterator.RAWCREATE("valid", 0, "next", Any,
                 "value", Any, "back", $nb, "fun", $!fun);

diff --git a/setting b/setting
@@ -483,10 +483,10 @@ my class List is Cool {
             if $l.fill($i+1) {
                 Q:CgOp {
                     (prog
-                      (setindex value (getfield slots
+                      [setindex value (getfield slots
                           (cast DynObject (@ (l self))))
-                        (methodcall (l $l) at-pos (l $i)))
-                      (null Variable))
+                        (methodcall (l $l) at-pos (l $i))]
+                      [null Variable])
                 };
             } else {
                 $!value = EMPTY;