mes.c: add new macro type, junk *macro* hack.
[mes.git] / closure.mes
1
2 ;; guile:
3 ;; closure path=(3 2 1)
4 ;; closure path=()
5 ;; mapit path=(3 2 1)
6 ;; closure path=(2 1)
7
8 ;; mes:
9 ;; closure path=(3 2 1)
10 ;; closure path=()
11 ;; mapit path=()
12 ;; ()
13
14
15 (define (closure start? path mapit)
16   (display "closure path=") (display path) (newline)
17   (cond (start?
18          (closure #f '() ;;path
19                   (lambda (x)
20                     (display "mapit path=") (display path) (newline)
21                     (cond ((null? path) path)
22                           (#t
23                            
24                            (closure #f (cdr path) mapit)
25                            )))))
26         (#t (mapit path))))
27
28 (closure #t '(3 2 1) (lambda (x) (display "dun") (newline)))