Search:
Login
Preferences
Help/Guide
About Trac
Wiki
Timeline
Roadmap
Browse Source
View Tickets
Search
Context Navigation
Back to Ticket #948
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
Download in other formats:
Original Format