From 6f551d4c9d8f680b48fa4106d873f960d21141d9 Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Sat, 13 Jul 2013 12:53:42 -0400 Subject: [PATCH] scheme -> racket --- lang-slide/main.rkt | 5 +++-- lang-slide/mk-img.rkt | 4 ++-- 2 files changed, 5 insertions(+), 4 deletions(-) diff --git a/lang-slide/main.rkt b/lang-slide/main.rkt index af9ed5d..31a6a5e 100644 --- a/lang-slide/main.rkt +++ b/lang-slide/main.rkt @@ -4,9 +4,9 @@ langs-with-colors) (require "draw-plain.ss" "orig-colors.rkt" - slideshow slideshow/code + racket/draw slideshow/code scheme/runtime-path - racket/gui/base) + slideshow) (define-runtime-path lang-colors.rktd "lang-colors.rktd") (define (color->name c) @@ -99,5 +99,6 @@ (inset (lang-pict 550 color?) 14 10 -10 10)) (module+ main + (require slideshow) (slide (langs-pict #f)) (slide (langs-pict #t))) diff --git a/lang-slide/mk-img.rkt b/lang-slide/mk-img.rkt index 5cfc9fe..42f37a4 100644 --- a/lang-slide/mk-img.rkt +++ b/lang-slide/mk-img.rkt @@ -1,5 +1,5 @@ -#lang scheme/gui -(require "main.rkt" slideshow) +#lang racket/base +(require "main.rkt" racket/draw slideshow/pict racket/class) (define the-margin 32)