objflip fixed

diff --git a/TODO b/TODO
index 23ec3e21edc7c31b7e34e46f18556eafb512aa93..6bedf871f92547ba475dfa6ff8494f20145f7e87 100644 (file)
--- a/TODO
+++ b/TODO
@@ -1,3 +1,2 @@
 other joins
 quiet bits
-objflip broken ? only when on objs ?

diff --git a/layout/layout b/layout/layout
index d2da8c44e93e1c687c1952b829f109dc0cd76208..950d78b8551df67fc5f70ed08e9475d502946fec 100755 (executable)
--- a/layout/layout
+++ b/layout/layout
@@ -727,6 +727,7 @@ sub cmd__obj ($) {
     die "unknown formal $formal_id" unless $formal;
     $ctx_save= $ctx;
     newctx();
+    $how *= $ctx_save->{Trans}{R};
     $ctx->{Trans}{R}= $how;
     $ctx->{Trans}{A}= $actual->{A} - $formal->{A}/$how;
     $formcv= ev_compose({}, $ctx->{Trans},$formal);