blob: 800babccd25279d001d285b80c6cfbe41556b544 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
|
# # ## ### ##### ######## ############# ####################
## -*- tcl -*-
## (C) 2011 Andreas Kupries, BSD licensed.
# Two convenience commands to make the writing of anonymous
# procedures, i.e. lambdas more proc-like. Instead of, for example, to
# write
#
# set f {::apply {{x} { .... }}}
#
# with its deep nesting of braces, or (if we wish to curry (*))
#
# set f [list ::apply {{x y} { .... }} $valueforx]
#
# with a list command to insert the arguments, just write
#
# set f [lambda {x} { .... }]
# and
# set f [lambda {x y} { .... } $valueforx]
#
# (*) Pre-supply arguments to the anon proc, making the lambda a
# partial application.
# # ## ### ##### ######## ############# ####################
## Requisites
package require Tcl 8.5
# # ## ### ##### ######## ############# #####################
## Public API implementation
proc lambda {arguments body args} {
return [list ::apply [list $arguments $body] {*}$args]
}
proc lambda@ {ns arguments body args} {
return [list ::apply [list $arguments $body $ns] {*}$args]
}
# # ## ### ##### ######## ############# ####################
## Ready
package provide lambda 1
|
