viewer.ss: (define given-talk-slide-list null) viewer.ss: (define given-slide-count 0) viewer.ss: (define (given->main!) viewer.ss: (set! talk-slide-list (make-quad given-talk-slide-list)) viewer.ss: (set! talk-slide-list given-talk-slide-list) viewer.ss: (set! slide-count given-slide-count)))) viewer.ss: (set! given-talk-slide-list p) viewer.ss: (set! given-slide-count (add1 given-slide-count)) viewer.ss: (given->main!) viewer.ss: (set! given-talk-slide-list null) viewer.ss: (set! given-slide-count (sub1 given-slide-count)) viewer.ss: (given->main!) viewer.ss~: (define given-talk-slide-list null) viewer.ss~: (define given-slide-count 0) viewer.ss~: (define (given->main!) viewer.ss~: (set! talk-slide-list (make-quad given-talk-slide-list)) viewer.ss~: (set! talk-slide-list given-talk-slide-list) viewer.ss~: (set! slide-count given-slide-count)))) viewer.ss~: (set! given-talk-slide-list p) viewer.ss~: (set! given-slide-count (add1 given-slide-count)) viewer.ss~: (given->main!) viewer.ss~: (set! given-talk-slide-list null) viewer.ss~: (set! given-slide-count (sub1 given-slide-count)) viewer.ss~: (given->main!)