fix condense-mode slide counting in `with-steps'

2012-08-25 07:38:17 -06:00 · 2012-08-25 07:38:17 -06:00 · 2504eec834
commit 2504eec834
parent a523270025
1 changed files with 8 additions and 4 deletions
--- a/collects/slideshow/step.rkt
+++ b/collects/slideshow/step.rkt
@ -105,9 +105,13 @@
 			(and (after?/p p1) (not (after?/p p2))))
 		      (let () expr0 expr ...))
 		    (if (and condensing condense?)
-			(last-pair steps)
+                        (begin
+                          (skip-slides (sub1 (length steps)))
+                          (last-pair steps))
 			(if condense?
-			    (filter (lambda (id)
-				      (not (regexp-match #rx"~$" (symbol->string id))))
-				    steps)
+                            (let ([l (filter (lambda (id)
+                                               (not (regexp-match #rx"~$" (symbol->string id))))
+                                             steps)])
+                              (skip-slides (- (length steps) (length l)))
+                              l)
 			    steps))))))])))