angs mandatory

diff --git a/layout/layout b/layout/layout
index 76f96978cc11ab9205d3ce7edf4dca734d6dfbc3..c2107e8d04c6b93610dc24c576b3a21f742c8081 100755 (executable)
--- a/layout/layout
+++ b/layout/layout
@@ -8,7 +8,7 @@ use POSIX;
 #  $ctx->{LocsMade}[]= $id
 #  $ctx->{Loc}{$id}{X}
 #  $ctx->{Loc}{$id}{Y}
-#  $ctx->{Loc}{$id}{A}  may be undef
+#  $ctx->{Loc}{$id}{A}
 #  $ctx->{Trans}{X0}                  } transformation
 #  $ctx->{Trans}{Y0}                  }  matrix
 #  $ctx->{Trans}{XY}                  }
@@ -100,7 +100,7 @@ sub cmd_abs {
     $x= can(\&cva_len);
     $y= can(\&cva_len);
     ($nl->{X}, $nl->{Y})= input_abscoords($x,$y);
-    $nl->{A}= cano(\&cva_absang, undef);
+    $nl->{A}= can(\&cva_absang);
 }
 
 sub cmd_rel {
@@ -291,7 +291,6 @@ sub cmd_extend {
     $from= can(\&cva_idex);
     $to= can(\&cva_idnew);
     printf DEBUG "from $from->{X} $from->{Y} $from->{A}\n";
-    die "no ang" unless defined $from->{A};
     $how= can(cvam_enum(qw(len upto ang uptoang parallel)));
     if ($how eq 'len') { $len= can(\&cva_len); }
     elsif ($how =~ m/ang$/) { $ang= can(\&cva_ang); }