Artifact
077adf479c737140a618ae7f8a6c650a7812ded9:
0000: 3b 3b 20 43 6f 70 79 72 69 67 68 74 20 32 30 30 ;; Copyright 200
0010: 37 2d 32 30 30 38 2c 20 4d 61 74 74 68 65 77 20 7-2008, Matthew
0020: 57 65 6c 6c 61 6e 64 2e 20 4b 69 61 74 6f 61 2e Welland. Kiatoa.
0030: 63 6f 6d 20 41 6c 6c 20 72 69 67 68 74 73 20 72 com All rights r
0040: 65 73 65 72 76 65 64 2e 0a 3b 3b 20 0a 3b 3b 20 eserved..;; .;;
0050: 6c 65 66 74 6e 61 76 2f 63 6f 6e 74 72 6f 6c 2e leftnav/control.
0060: 73 63 6d 20 0a 0a 3b 3b 20 6e 6f 74 68 69 6e 67 scm ..;; nothing
0070: 20 6e 65 65 64 65 64 20 68 65 72 65 20 79 65 74 needed here yet
0080: 21 0a 0a 28 64 65 66 69 6e 65 20 28 6c 65 66 74 !..(define (left
0090: 6e 61 76 2d 61 63 74 69 6f 6e 20 61 63 74 69 6f nav-action actio
00a0: 6e 29 0a 20 20 28 63 61 73 65 20 61 63 74 69 6f n). (case actio
00b0: 6e 0a 20 20 20 20 28 27 6c 6f 67 6f 75 74 0a 20 n. ('logout.
00c0: 20 20 20 20 28 73 3a 6c 6f 67 6f 75 74 29 29 29 (s:logout)))
00d0: 29 0a 0a )..