diff options
Diffstat (limited to 'src/callint.c')
| -rw-r--r-- | src/callint.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/callint.c b/src/callint.c index 3a595b57d77..43566acfbe9 100644 --- a/src/callint.c +++ b/src/callint.c | |||
| @@ -509,8 +509,9 @@ invoke it. If KEYS is omitted or nil, the return value of | |||
| 509 | visargs = args + nargs; | 509 | visargs = args + nargs; |
| 510 | varies = (signed char *) (visargs + nargs); | 510 | varies = (signed char *) (visargs + nargs); |
| 511 | 511 | ||
| 512 | verify (NIL_IS_ZERO); | ||
| 513 | memset (args, 0, nargs * (2 * word_size + 1)); | 512 | memset (args, 0, nargs * (2 * word_size + 1)); |
| 513 | if (NIL_IS_NONZERO) | ||
| 514 | memsetnil (args, nargs * 2); | ||
| 514 | 515 | ||
| 515 | GCPRO5 (prefix_arg, function, *args, *visargs, up_event); | 516 | GCPRO5 (prefix_arg, function, *args, *visargs, up_event); |
| 516 | gcpro3.nvars = nargs; | 517 | gcpro3.nvars = nargs; |