From 4464f2bf19331c384c90ac71e91a233ea34a4e4f Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 19 Nov 2011 19:14:51 -0700 Subject: [PATCH] fix `get-slides-as-picts' most-recent-slide implementation --- collects/slideshow/slides-to-picts.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/slideshow/slides-to-picts.rkt b/collects/slideshow/slides-to-picts.rkt index 8ac29afb03..780aa8e7eb 100644 --- a/collects/slideshow/slides-to-picts.rkt +++ b/collects/slideshow/slides-to-picts.rkt @@ -52,7 +52,7 @@ (define (retract-talk-slide!) (set! slides (cdr slides))) (define (most-recent-talk-slide) - (and (pair? slides) (car slides))) + (and (pair? slides) (caar slides))) (define display-progress void) (define set-init-page! void) (define set-use-background-frame! void)