| 408 | } |
| 409 | |
| 410 | extern int insert_s(struct SN_env * z, int bra, int ket, int s_size, const symbol * s) { |
| 411 | int adjustment; |
| 412 | if (replace_s(z, bra, ket, s_size, s, &adjustment)) |
| 413 | return -1; |
| 414 | if (bra <= z->bra) z->bra += adjustment; |
| 415 | if (bra <= z->ket) z->ket += adjustment; |
| 416 | return 0; |
| 417 | } |
| 418 | |
| 419 | extern int insert_v(struct SN_env * z, int bra, int ket, const symbol * p) { |
| 420 | int adjustment; |