bind_var_then -> bind_value

[scpubgit/DKit.git] / lib / DX / State.pm

diff --git a/lib/DX/State.pm b/lib/DX/State.pm
index 7ef08c7..9f4bf6b 100644 (file)
--- 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
   );
 }