scheme code for aksak-meters, problem with 2.14.1

[Stefan Thomas]

Dear community,
in version 2.12.3 I used this code (I think written by Graham) for so called aksak-meters like 7/8 (2+2+3) etc.:

%%% example for aksak:
\version "2.12.0" 
aksak = #(define-music-function
  (parser layout timesig compound) (list? list?)
  #{
    % measure length + beaming
    \set Timing.timeSignatureFraction = #(cons (car $timesig) (cadr $timesig))
    \set Timing.beatLength = #(ly:make-moment 1 (cadr $timesig) 0 1)
    \set Timing.beatGrouping = $compound
    \set Timing.measureLength = #(ly:make-moment (car $timesig) (cadr $timesig) 0 1)
  #})

\new Staff \relative { \aksak #'(5 16 ) #'(3 2 ) c16 d e f d }
% end of example
Unfortunately this code doesn't work in version 2.14.1.
I tried to update it, with convert.ly and by hand, but without sucess.
Could someone give me a hint?