X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDX%2FState.pm;h=9f4bf6b382a069d78b2d05d744af543a6432c570;hb=0de441cd75f703bd987450fb0d90c3f57bbfdaf1;hp=7ef08c7c82f5bb6beb5aa0267b451faea6f57aba;hpb=71217e421021100f3b07945357bd2fdaac638c4b;p=scpubgit%2FDKit.git

diff --git a/lib/DX/State.pm b/lib/DX/State.pm
index 7ef08c7..9f4bf6b 100644
--- a/lib/DX/State.pm
+++ b/lib/DX/State.pm
@@ -57,12 +57,11 @@ sub assign_vars {
   );
 }
 
-sub bind_var_then {
-  my ($self, $var, $value, $then) = @_;
+sub bind_value {
+  my ($self, $var, $value) = @_;
   my $bound = $var->with_value($value);
   $self->but(
     by_id => { %{$self->by_id}, $var->id => $bound },
-    next_op => $then
   );
 }