Snippets for scheme48 1.9.3 from Nix x86_64-linux

Sourced from https://hydra.nixos.org/log/pqb40vzscg1nwmq2639lk6lc79vpbbhj-scheme48-1.9.3.drv.

c/free.c:134:6: warning: old-style function definition [-Wold-style-definition]
  134 | void mul10(x) Bignum *x; {
      |      ^~~~~

c/free.c:145:6: warning: old-style function definition [-Wold-style-definition]
  145 | void big_short_mul(x, y, z) Bignum *x, *z; Bigit y; {
      |      ^~~~~~~~~~~~~

c/free.c:175:6: warning: old-style function definition [-Wold-style-definition]
  175 | void print_big(x) Bignum *x; {
      |      ^~~~~~~~~

c/free.c:188:5: warning: old-style function definition [-Wold-style-definition]
  188 | int estimate(n) int n; {
      |     ^~~~~~~~

c/free.c:195:6: warning: old-style function definition [-Wold-style-definition]
  195 | void one_shift_left(y, z) int y; Bignum *z; {
      |      ^~~~~~~~~~~~~~

c/free.c:207:6: warning: old-style function definition [-Wold-style-definition]
  207 | void short_shift_left(x, y, z) Bigit x; int y; Bignum *z; {
      |      ^~~~~~~~~~~~~~~~

c/free.c:227:6: warning: old-style function definition [-Wold-style-definition]
  227 | void big_shift_left(x, y, z) Bignum *x, *z; int y; {
      |      ^~~~~~~~~~~~~~

c/free.c:250:5: warning: old-style function definition [-Wold-style-definition]
  250 | int big_comp(x, y) Bignum *x, *y; {
      |     ^~~~~~~~

c/free.c:270:5: warning: old-style function definition [-Wold-style-definition]
  270 | int sub_big(x, y, z) Bignum *x, *y, *z; {
      |     ^~~~~~~

c/free.c:297:6: warning: old-style function definition [-Wold-style-definition]
  297 | void add_big(x, y, z) Bignum *x, *y, *z; {
      |      ^~~~~~~

c/free.c:392:5: warning: old-style function definition [-Wold-style-definition]
  392 | int s48_dragon(buf, v) char *buf; double v; {
      |     ^~~~~~~~~~