blob: fdee9019e52dc9dde30364bbbcb4a46b7a2f6aa3 (
about) (
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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
|
(let ((z #f))
(begin
(values)
(set! y x)
(set! z 1)
(return193 (+ y x))))
(let () (begin (return194 y y)))
return193
ret
(let ((z #f))
(begin
(values)
(set! y x)
(set! z 1)
(return193 (+ y x))))
return194
ret
(let () (begin (return194 y y)))
return193
return193
return193
return193
ret
(let ((z #f))
(begin
(values)
(set! y x)
(set! z 1)
(return193 (+ y x))))
return194
return194
return194
return194
ret
(let () (begin (return194 y y)))
return193
return193
return193
return193
return193
(let ((z #f))
(begin (values) (set! y x) (set! z 1) (+ y x)))
return194
return194
return194
return194
return194
(let () (begin (values y y)))
(let/ec
return193
let
((z #f))
(begin
(define (h q)
((@@ (language python compile) with-return)
return194
(let () (begin (return194 (+ q y z))))))
(values)
(set! y x)
(set! z 1)
(+ y x)))
(let ((z #f))
(begin
(define (h q)
((@@ (language python compile) with-return)
return194
(let () (begin (return194 (+ q y z))))))
(values)
(set! y x)
(set! z 1)
(+ y x)))
(let () (begin (+ q y z)))
(let () (begin (values y y)))
|
