bug#18604: master srfi-26 cute compile error

[Daniel Llorens]

stable-2.0 with either cut or cute works. The compiler in master works for cut 
but not for cute.

scheme@(guile-user)> (import (srfi srfi-26))
scheme@(guile-user)> (cute < 1 <> 2)
While compiling expression:
ERROR: Wrong number of arguments to #<procedure 10b5a4380 at 
language/cps/types.scm:724:0 (in succ a b)>

Thanks,

        Daniel