blob: bae76688dd4e548fa181743e0d3c71ded6f81d67 (
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
|
;; Send out what comes in.
(pd-bind 'in
(lambda (arg)
(pd-send 'out arg)))
#!
;; This one does the same and is faster, but requires some more typing:
(let ((s-out (pd-get-symbol 'out)))
(pd-bind 'in
(lambda (arg)
(pd-send s-out arg))))
!#
#!
;; And the following example will (most probably) lead to a segmentation fault:
;; This is also the only way I can think of right now that will make pd segfault using the pd- interface.
(pd-send 5 arg)
!#
|
