Home Explore Help
Sign In
txlyre
/
jk
1
0
Fork 0
Files Issues 0 Pull Requests 0 Wiki
Browse Source

fix

txlyre 6 hours ago
parent
8af7bcee1f
commit
d95e666baf
1 changed files with 2 additions and 2 deletions
Split View Show Diff Stats
  1. 2 2
      jk.c

+ 2 - 2
jk.c
View File 

@@ -1795,7 +1795,7 @@ value_t *_fork_monad(interpreter_t *state, verb_t *self, value_t *x)
 
   verb_t *h = list_index(self->bonds, 2);
 
 
   value_t *l = each_rank(state, f, x, 0, f->rank[0]);
 
-  value_t *r = each_rank(state, h, x, 0, f->rank[0]);
 
+  value_t *r = each_rank(state, h, x, 0, h->rank[0]);
 
 
   return together(state, g, l, r, 0, 0, g->rank[1], g->rank[2]);
 
 }
 
@@ -1808,7 +1808,7 @@ value_t *_fork_dyad(interpreter_t *state, verb_t *self, value_t *x,
 
   verb_t *h = list_index(self->bonds, 2);
 
 
   value_t *l = each_rank(state, f, x, 0, f->rank[0]);
 
-  value_t *r = each_rank(state, h, y, 0, f->rank[0]);
 
+  value_t *r = each_rank(state, h, y, 0, h->rank[0]);
 
 
   return together(state, g, l, r, 0, 0, g->rank[1], g->rank[2]);
 
 }