beat-structure function errors

[Dan Eble]

Input:

```
\version "2.24.0"

%% This is the documentation of the beat-structure function in 2.24.4:
%%
%%     (beat-structure base-length time-signature
%%                     time-signature-settings)
%%
%%     Get beatStructure value in base-length units for time-signature
%%     from time-signature-settings.

{
  #(display "\n")

  %% Case 1: The time signature is found in the settings.
  %% Failure mode: the base-length argument is ignored.
  #(display (beat-structure 1/8 '(8 . 8)
             default-time-signature-settings))
  #(display "\n")
  #(display (beat-structure 1/16 '(8 . 8)
             default-time-signature-settings))
  #(display "\n")

  %% Case 2: The time signature is not found in the settings.
  %% Failure mode: The base-length argument doesn't merely
  %% rescale the elements of the returned beat structure; it
  %% changes the beat structure.
  #(display (beat-structure 1/4 '(4 . 4)
             default-time-signature-settings))
  #(display "\n")
  #(display (beat-structure 1/8 '(4 . 4)
             default-time-signature-settings))
  #(display "\n")

  s
}
```

Actual output (excerpt) from 2.24.4:

    (3 3 2)
    (3 3 2)
    (1 1 1 1)
    (1 1 1 1 1 1 1 1)

Expected output:

    (3 3 2)
    (6 6 4)
    (1 1 1 1)
    (2 2 2 2)

Does anyone disagree?

Thanks,
--
Dan