Turning to #lang when possible

svn: r15257
2009-06-24 19:46:24 +00:00 · 2009-06-24 19:46:24 +00:00 · 02404e553a
commit 02404e553a
parent 3141c3736f
7 changed files with 7 additions and 0 deletions
--- a/collects/frtime/demos/ball-on-string.ss
+++ b/collects/frtime/demos/ball-on-string.ss
@ -1,3 +1,4 @@
+#lang frtime
 (require frtime/animation)

 (define-values (pos vel)
--- a/collects/frtime/demos/mouse.ss
+++ b/collects/frtime/demos/mouse.ss
@ -1,3 +1,4 @@
+#lang frtime
 (require frtime/animation)

 (display-shapes
--- a/collects/frtime/demos/piston.ss
+++ b/collects/frtime/demos/piston.ss
@ -1,3 +1,4 @@
+#lang frtime
 (require
 frtime/animation
 frtime/gui
--- a/collects/frtime/demos/pong.ss
+++ b/collects/frtime/demos/pong.ss
@ -1,3 +1,4 @@
+#lang frtime
 (require
 frtime/animation
 frtime/gui
--- a/collects/frtime/demos/push-pull-ball.ss
+++ b/collects/frtime/demos/push-pull-ball.ss
@ -1,3 +1,4 @@
+#lang frtime
 (require frtime/etc
         frtime/animation)

--- a/collects/frtime/demos/rotation.ss
+++ b/collects/frtime/demos/rotation.ss
@ -1,3 +1,4 @@
+#lang frtime
 (require
 frtime/animation
 frtime/gui)
--- a/collects/frtime/demos/ufo.ss
+++ b/collects/frtime/demos/ufo.ss
@ -1,3 +1,4 @@
+#lang frtime
 (require frtime/animation)

 (define ufo-x