remove submodules that use slideshow

Author: mflatt

blog/_src/posts/racket-on-chez-status-feb2020/alog.rkt

@@ -234,7 +234,3 @@
                 cc-superimpose cc-superimpose
                 12 12)
          0.6))
-
-(module+ main
-  (require slideshow)
-  (for-each (lambda (p) (slide (scale p 2))) (plots)))

blog/_src/posts/racket-on-chez-status-feb2020/better.rkt

@@ -450,28 +450,3 @@
                    r-jit-recompile)))
       (* 2 scale-amt))
      (ghost compile-key))))
-
-(module+ main
-  (require slideshow/base
-           "better.rkt")
-
-  (define (fit p)
-    (define w (pict-width p))
-    (define h (pict-height p))
-    (scale p (min 1 (/ (pict-width titleless-page) w) (/ (pict-height titleless-page) h))))
-  
-  (define (benchmark-slides)
-    (slide
-     #:title (title/better "Traditional Scheme Benchmarks" #:shorter-better? #t)
-     #:name "Traditional Scheme Benchmarks"
-     #:layout 'tall
-     (fit
-      (traditional-benchmarks #:t t #:tt tt #:gap-size gap-size)))
-
-    (slide
-     #:title "Shootout Benchmarks"
-     #:layout 'tall
-     (fit
-      (shootout-benchmarks #:t t #:tt tt #:gap-size gap-size))))
-
-  (benchmark-slides))

blog/_src/posts/racket-on-chez-status-feb2020/bm-jan19.rkt

@@ -38,34 +38,6 @@
 
 (include "bm-x.rktl")
 
-(module+ slide
-  (require "bm.rkt")
-  (provide october-benchmark-slides)
-
-  (define traditional-cs (get-times log-cs-txt))
-  (define traditional-r/cs (get-times log-rcs-txt))
-  (define traditional-r (get-times log-r-txt))
-  (define shootout-r/cs (get-times sho-rcs-txt))
-  (define shootout-r (get-times sho-r-txt))
-
-  (define (october-benchmark-slides)
-    (benchmark-slides #:traditional-cs traditional-cs
-                      #:traditional-r/cs traditional-r/cs
-                      #:traditional-r traditional-r
-                      #:shootout-r/cs shootout-r/cs
-                      #:shootout-r shootout-r
-                      #:racket-cs-label "Racket on Chez Scheme")))
-(module+ main
-  (slide
-   (vl-append
-    (* 2 gap-size)
-    (traditional-benchmarks #:t t #:bt bt #:tt tt #:gap-size gap-size
-                            #:width 500
-                            #:label (t "Traditional Scheme benchmarks")
-                            #:alt-cs? #f)
-    (shootout-benchmarks #:t t #:bt bt #:tt tt #:gap-size gap-size
-                         #:width 500
-                         #:label (t "Shootout Racket benchmarks")))))
 (module+ pict
   (provide traditional-benchmarks-table*
            shootout-benchmarks-table*

blog/_src/posts/racket-on-chez-status-feb2020/bm-jan20.rkt

@@ -303,24 +303,3 @@
                800 600)
            0.25)))
 
-(module+ main
-  (require slideshow
-           (submod ".." pict))
-  (slide (scale all-paper-benchmarks 2))
-  (slide
-   (scale (traditional-benchmarks #:t t #:bt bt #:tt tt #:gap-size gap-size #:mean? #f) 0.5))
-  (slide
-   (scale (shootout-benchmarks #:t t #:bt bt #:tt tt #:gap-size gap-size #:mean? #f) 0.5))
-  (slide
-   (scale (traditional-benchmarks #:t t #:bt bt #:tt tt #:gap-size gap-size
-                                  #:width 500
-                                  #:label (t "Scheme benchmarks, geometric mean"))
-          0.5)
-   (scale (traditional-benchmarks #:t t #:bt bt #:tt tt #:gap-size gap-size #:keep? r5rs?
-                                  #:width 500
-                                  #:label (t "Mutable-pair benchmarks, geometric mean"))
-          0.5)
-   (scale (shootout-benchmarks #:t t #:bt bt #:tt tt #:gap-size gap-size
-                               #:width 500
-                               #:label (t "Shootout benchmarks, geometric mean"))
-          0.5)))