Ticket #948: apply1-list.scm

File apply1-list.scm, 178 bytes (added by felix winkelmann, 12 years ago)
Line 
1(: apply1 (forall ((a number) b) (procedure ((procedure (#!rest a) b) (list-of a)) b)))
2
3(define (apply1 f args)
4  (apply f args))
5
6(apply1 + (list 'a 2 3)) ; <- no type warning