Fix version numbers.

Set the reporting port to the error port by default

README.md

@@ -0,0 +1,46 @@
+Whalesong
+=========
+
+Important
+---------
+
+Whalesong needs Racket 6.2.
+As is Whalesong doesn't work on version 6.3 or greater.
+See https://github.com/soegaard/whalesong/issues/48
+
+Installation
+------------
+
+raco pkg install -j 1 --force --deps search-auto --scope installation whalesong
+
+Important: Use -j 1 to build Whalesong (this turns off parallel builds)
+           This also means, that you can't install Whalesong from the DrRacket package manager.
+
+This fork of Whalesong differs from dyoo/whalesong in the following ways:
+
+  * Builds on latest release of Racket
+    (fixes the x undefined problem)
+  * Adds for
+    (require whalesong/lang/for)
+  * Adds match
+    (require whalesong/lang/match)
+  * Adds on-release
+    (as a complement to on-key)
+    Contributed by Darren Cruse
+  * Adds parameters
+    (require whalesong/lang/parameters)
+  * Extended whalesong/image and whalesong/images
+    (more functions, bug fixes, now matches WeScheme)
+    Contributed by Emmanuel Schanzer
+  * Adds play-sound
+    (assumes a browser with html5 audio support)
+    Contributed by Emmanuel Schanzer and Darren Cruse
+  * Bug fixes by Vishesh Yadav
+  * The flag --as-standalone-xhtml is now --as-standalone-html
+    and produces standalone html rather than xhtml.
+
+Note: The implementation of parameters works fine,
+      as long as you don't mix parameterize with non-local-exits
+      and reentries (i.e. call/cc and friends)
+      
+/soegaard

examples/alert.rkt

@@ -1,3 +0,0 @@
-#lang planet dyoo/whalesong
-(require (planet dyoo/whalesong/js))
-(alert "hello world")

examples/cs019/hello.rkt

@@ -1,2 +0,0 @@
-#lang planet dyoo/whalesong/cs019
-"hello world"

examples/hello.rkt

@@ -1,4 +0,0 @@
-#lang planet dyoo/whalesong
-
-(display "hello world")
-(newline)

examples/snip.rkt

@@ -1,599 +0,0 @@
-#reader(lib"read.ss""wxme")WXME0108 ## 
-#|
-   This file uses the GRacket editor format.
-   Open this file in DrRacket version 5.1.2 or later to read it.
-
-   Most likely, it was created by saving a program in DrRacket,
-   and it probably contains a program with non-text elements
-   (such as images or comment boxes).
-
-            http://racket-lang.org/
-|#
- 28 7 #"wxtext\0"
-3 1 6 #"wxtab\0"
-1 1 8 #"wximage\0"
-2 0 8 #"wxmedia\0"
-4 1 34 #"(lib \"syntax-browser.ss\" \"mrlib\")\0"
-1 0 16 #"drscheme:number\0"
-3 0 44 #"(lib \"number-snip.ss\" \"drscheme\" \"private\")\0"
-1 0 36 #"(lib \"comment-snip.ss\" \"framework\")\0"
-1 0 43 #"(lib \"collapsed-snipclass.ss\" \"framework\")\0"
-0 0 19 #"drscheme:sexp-snip\0"
-0 0 36 #"(lib \"cache-image-snip.ss\" \"mrlib\")\0"
-1 0 68
-(
- #"((lib \"image-core.ss\" \"mrlib\") (lib \"image-core-wxme.rkt\" \"mr"
- #"lib\"))\0"
-) 1 0 33 #"(lib \"bullet-snip.ss\" \"browser\")\0"
-0 0 29 #"drscheme:bindings-snipclass%\0"
-1 0 25 #"(lib \"matrix.ss\" \"htdp\")\0"
-1 0 22 #"drscheme:lambda-snip%\0"
-1 0 57
-#"(lib \"hrule-snip.rkt\" \"macro-debugger\" \"syntax-browser\")\0"
-1 0 45 #"(lib \"image-snipr.ss\" \"slideshow\" \"private\")\0"
-1 0 26 #"drscheme:pict-value-snip%\0"
-0 0 38 #"(lib \"pict-snipclass.ss\" \"slideshow\")\0"
-2 0 55 #"(lib \"vertical-separator-snip.ss\" \"stepper\" \"private\")\0"
-1 0 18 #"drscheme:xml-snip\0"
-1 0 31 #"(lib \"xml-snipclass.ss\" \"xml\")\0"
-1 0 21 #"drscheme:scheme-snip\0"
-2 0 34 #"(lib \"scheme-snipclass.ss\" \"xml\")\0"
-1 0 10 #"text-box%\0"
-1 0 32 #"(lib \"text-snipclass.ss\" \"xml\")\0"
-1 0 15 #"test-case-box%\0"
-2 0 1 6 #"wxloc\0"
-          0 0 57 0 1 #"\0"
-0 75 1 #"\0"
-0 12 90 -1 90 -1 3 -1 0 1 0 1 0 0 0 0 0 0 0 0 0 0 0 255 255 255 1 -1 0 9
-#"Standard\0"
-0 75 10 #"Monospace\0"
-0 13 90 -1 90 -1 3 -1 0 1 0 1 0 0 0 0 0 0 0 0 0 0 0 255 255 255 1 -1 2 1
-#"\0"
-0 -1 1 #"\0"
-1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 1 1 1 1 1 1 0 0 0 0 0 0 -1 -1 2 24
-#"framework:default-color\0"
-0 -1 1 #"\0"
-1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 -1 -1 2 1
-#"\0"
-0 -1 1 #"\0"
-1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 150 0 150 0 0 0 -1 -1 2 15
-#"text:ports out\0"
-0 -1 1 #"\0"
-1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 150 0 150 0 0 0 -1 -1 2 1
-#"\0"
-0 -1 1 #"\0"
-1.0 0 -1 -1 93 -1 -1 -1 0 0 0 0 0 0 0 0 0 1.0 1.0 1.0 255 0 0 0 0 0 -1
--1 2 15 #"text:ports err\0"
-0 -1 1 #"\0"
-1.0 0 -1 -1 93 -1 -1 -1 0 0 0 0 0 0 0 0 0 1.0 1.0 1.0 255 0 0 0 0 0 -1
--1 2 1 #"\0"
-0 -1 1 #"\0"
-1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 0 0 175 0 0 0 -1 -1 2 17
-#"text:ports value\0"
-0 -1 1 #"\0"
-1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 0 0 175 0 0 0 -1 -1 2 1
-#"\0"
-0 -1 1 #"\0"
-1.0 0 92 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1.0 1.0 1.0 34 139 34 0 0 0 -1
--1 2 27 #"Matching Parenthesis Style\0"
-0 -1 1 #"\0"
-1.0 0 92 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1.0 1.0 1.0 34 139 34 0 0 0 -1
--1 2 1 #"\0"
-0 -1 1 #"\0"
-1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 38 38 128 0 0 0 -1 -1 2 37
-#"framework:syntax-color:scheme:symbol\0"
-0 -1 1 #"\0"
-1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 38 38 128 0 0 0 -1 -1 2 38
-#"framework:syntax-color:scheme:keyword\0"
-0 -1 1 #"\0"
-1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 38 38 128 0 0 0 -1 -1 2 1
-#"\0"
-0 -1 1 #"\0"
-1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 194 116 31 0 0 0 -1 -1 2
-38 #"framework:syntax-color:scheme:comment\0"
-0 -1 1 #"\0"
-1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 194 116 31 0 0 0 -1 -1 2 1
-#"\0"
-0 -1 1 #"\0"
-1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 41 128 38 0 0 0 -1 -1 2 37
-#"framework:syntax-color:scheme:string\0"
-0 -1 1 #"\0"
-1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 41 128 38 0 0 0 -1 -1 2 39
-#"framework:syntax-color:scheme:constant\0"
-0 -1 1 #"\0"
-1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 41 128 38 0 0 0 -1 -1 2 1
-#"\0"
-0 -1 1 #"\0"
-1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 132 60 36 0 0 0 -1 -1 2 42
-#"framework:syntax-color:scheme:parenthesis\0"
-0 -1 1 #"\0"
-1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 132 60 36 0 0 0 -1 -1 2 1
-#"\0"
-0 -1 1 #"\0"
-1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 255 0 0 0 0 0 -1 -1 2 36
-#"framework:syntax-color:scheme:error\0"
-0 -1 1 #"\0"
-1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 255 0 0 0 0 0 -1 -1 2 1
-#"\0"
-0 -1 1 #"\0"
-1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 -1 -1 2 36
-#"framework:syntax-color:scheme:other\0"
-0 -1 1 #"\0"
-1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 -1 -1 2 1
-#"\0"
-0 -1 1 #"\0"
-1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 81 112 203 0 0 0 -1 -1 2
-38 #"drracket:check-syntax:lexically-bound\0"
-0 -1 1 #"\0"
-1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 81 112 203 0 0 0 -1 -1 2 1
-#"\0"
-0 -1 1 #"\0"
-1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 178 34 34 0 0 0 -1 -1 2 28
-#"drracket:check-syntax:set!d\0"
-0 -1 1 #"\0"
-1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 178 34 34 0 0 0 -1 -1 2 1
-#"\0"
-0 -1 1 #"\0"
-1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 68 0 203 0 0 0 -1 -1 2 31
-#"drracket:check-syntax:imported\0"
-0 -1 1 #"\0"
-1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 68 0 203 0 0 0 -1 -1 2 47
-#"drracket:check-syntax:my-obligation-style-pref\0"
-0 -1 1 #"\0"
-1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 178 34 34 0 0 0 -1 -1 2 1
-#"\0"
-0 -1 1 #"\0"
-1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 0 116 0 0 0 0 -1 -1 2 50
-#"drracket:check-syntax:their-obligation-style-pref\0"
-0 -1 1 #"\0"
-1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 0 116 0 0 0 0 -1 -1 2 48
-#"drracket:check-syntax:unk-obligation-style-pref\0"
-0 -1 1 #"\0"
-1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 -1 -1 2 1
-#"\0"
-0 -1 1 #"\0"
-1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 139 142 28 0 0 0 -1 -1 2
-49 #"drracket:check-syntax:both-obligation-style-pref\0"
-0 -1 1 #"\0"
-1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 139 142 28 0 0 0 -1 -1 2
-26 #"plt:htdp:test-coverage-on\0"
-0 -1 1 #"\0"
-1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 -1 -1 2 1
-#"\0"
-0 -1 1 #"\0"
-1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 0 0 0 255 165 0 0 0 0 -1 -1 2 27
-#"plt:htdp:test-coverage-off\0"
-0 -1 1 #"\0"
-1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 0 0 0 255 165 0 0 0 0 -1 -1 4 1
-#"\0"
-0 70 1 #"\0"
-1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 1.0 1.0 1.0 1.0 1.0 1.0 0 0 0 0 0 0
--1 -1 4 4 #"XML\0"
-0 70 1 #"\0"
-1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 1.0 1.0 1.0 1.0 1.0 1.0 0 0 0 0 0 0
--1 -1 2 1 #"\0"
-0 -1 1 #"\0"
-1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 34 139 34 0 0 0 -1 -1 2 37
-#"plt:module-language:test-coverage-on\0"
-0 -1 1 #"\0"
-1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 34 139 34 0 0 0 -1 -1 2 1
-#"\0"
-0 -1 1 #"\0"
-1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 176 48 96 0 0 0 -1 -1 2 38
-#"plt:module-language:test-coverage-off\0"
-0 -1 1 #"\0"
-1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 176 48 96 0 0 0 -1 -1 4 1
-#"\0"
-0 71 1 #"\0"
-1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 1.0 1.0 1.0 1.0 1.0 1.0 0 0 0 0 0 0
--1 -1 4 1 #"\0"
-0 -1 1 #"\0"
-1.0 0 -1 -1 -1 -1 -1 -1 1 0 0 0 0 0 0 0 0 1.0 1.0 1.0 0 0 255 0 0 0 -1
--1 4 1 #"\0"
-0 71 1 #"\0"
-1.0 0 -1 -1 -1 -1 -1 -1 1 0 0 0 0 0 0 0 0 1.0 1.0 1.0 0 0 255 0 0 0 -1
--1 4 1 #"\0"
-0 71 1 #"\0"
-1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1.0 1.0 1.0 0 100 0 0 0 0 -1
--1 0 1 #"\0"
-0 75 10 #"Monospace\0"
-0.0 13 90 -1 90 -1 3 -1 0 1 0 1 0 0 0.0 0.0 0.0 0.0 0.0 0.0 0 0 0 255
-255 255 1 -1 4 1 #"\0"
-0 -1 1 #"\0"
-1.0 0 92 -1 -1 -1 -1 -1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 255 255 0 -1 -1 0
-1 #"\0"
-0 -1 1 #"\0"
-1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 200 0 0 0 0 0 -1 -1 0 1
-#"\0"
-0 -1 1 #"\0"
-0 10 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 1.0 1.0 1.0 1.0 1.0 1.0 0 0 0 0 0 0
--1 -1 2 1 #"\0"
-0 -1 1 #"\0"
-0 10 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 1.0 1.0 1.0 1.0 1.0 1.0 0 0 0 0 0 0
--1 -1           0 35 0 26 3 12 #"#lang planet"
-0 0 26 3 15 #" dyoo/whalesong"
-0 0 4 29 1 #"\n"
-0 0 22 3 1 #"("
-0 0 14 3 7 #"require"
-0 0 17 3 1 #" "
-0 0 22 3 1 #"("
-0 0 14 3 6 #"planet"
-0 0 17 3 1 #" "
-0 0 14 3 20 #"dyoo/whalesong/image"
-0 0 22 3 2 #"))"
-0 0 4 29 1 #"\n"
-0 0 24 29 1 #"\n"
-0 0 22 3 1 #"("
-0 0 15 3 6 #"define"
-0 0 24 3 1 #" "
-0 0 14 3 6 #"a-snip"
-0 0 24 3 1 #" "
-0 2          35 4 1 #"\0"
-2 -1.0 -1.0 0.0 0.0 0          12 500
-(
- #"\211PNG\r\n\32\n\0\0\0\rIHDR\0\0\0X\0\0\0U\b"
- #"\6\0\0\0\315\v#\352\0\0\0\6bKGD\0\377\0\377\0\377\240\275\247"
- #"\223\0\0\25\355IDATx\234\355"
- #"\234Y\254\34\305\271\200\277\252\236\231\263"
- #"y7\266\317\361n\360\2\266\3\16\306\vf7\216\223\\ \21I\20\302\271\220"
- #"D\212\24\244D\21\nW\271I$\256P\224\227(/\311KP\36\22\31\t\2"
- #"\17(\4\"\24\226k.\4\204\314*\300\6cb\233\v\266\217}\354\30\373\370"
- #",\263tW\325}\250\251\236\232\236\356Y\354c@W\374R\251{z\252{\252"
- #"\276\371\373\257\277\376Z\4`\370LH"
- #"\16\350\5\246\0\223\200n\244\314c\214"
- #" \b\24RV\20\242H\30\236\306\230Q\240\4h\314g\244\364Y\"\370\224\0"
- #"O\236<\203\201\201\305,^\274\224y"
- #"\363\26\323\337\337O>?\235R\251\207#Gr\274\367^\300\256]\206R\311\0"
- #"\32!\24P\301\230q`\24)?F\210#\b\361\21B\374/Qt\4\30\377"
- #"\314\1\377D\1\367\317[\304\232\265\353"
- #"\270l\375:\226-[\312\254i\323\350)\4H\t\306h\300T\217\2320\324\34"
- #"8\240y\350!\315\363\317k@\1\272Z\\\355\235G\3008\360/\204\330\207\20"
- #"\273\201\177b\314\360g\2\3669\a\334=e\n\3536ld\363\225W\261f\356"
- #"\\f\227K\344N\17C>\217\276\350"
- #"B\30\230\213\bCL\225\206\326\272\232"
- #"\24Bh\224R\334\177\277b\373v\205"
- #"\205\234\226\34p\2002B\34C\312\335\300kh\375A\374\354OC\316\31\340I"
- #"\347\235\307\346u\353\270i\351RV\236"
- #"\32\246g\317\273\210\375\373\221'O\22"
- #"\0\1 \346\314\201{\357\305|\365\253\230\361q\2141(\245\352\222"
- #"\326\nc\"~\363\233\210G\37\215\260\32\353\222\362\216>lU-\305"
-) 500
-(
- #"(\260\27)_\4\366\242\265\342\223\226"
- #"\t\a\234\v\2\256\17\2\266\255X\301\3120\244g\377~raH\36\310c\233"
- #"2\a\30\300L\232\204\371\323\237\320["
- #"\267\242\307\307QJ\21E\21a\30\306G\255#FFB\356\2743\344\335wC"
- #",\324\260\232\34d\22745\350\316\214"
- #"\24\221\362=\204\370\37\264\336\377\211\232"
- #"\216\211\3,\4\253\244\344\373\300\225Z\323g\f]X\277\240\e(`\341\n@"
- #"V\217N\314\300\0\321\263\317\22.YB8>N\30\206T*\225\272\243\224!"
- #";vD\334uW\5\255\35d?\371\327\2346\373\347\32\30A\210\327\201\3470"
- #"\346\324\204T\273\225\4\300\275g\373\220"
- #"B\20\360\357R\3623\245Xk\fS\201\31\300t\254\323\325\203\5\3544\327\1"
- #"vI\216\216\22\f\16\222\273\3556d\20 \204\250K\0J\t\346\3177\354\334"
- #"i8z\324\375rR7\4\351b\252)\a,\0\226\"\345\bp\354l\253\336"
- #"R\316\32\360\202|\236\377\22\202mQ"
- #"\304\0\26\354L\240\17k\22\222\332\232%b\357^\344e\227\21\254\\I %"
- #"R\312:\300\0]] \4\354\330\341"
- #"\337i\22\347\315~\315\201\356\303\230\345"
- #"\4A7p\220\232\315\236x9+\300\353s9~\245\24W(\305L,\330I"
- #"\325\207:\333\343\252\233Uu\207G\0"
- #"\346\360a\304\355\267\23\344\363\4A\200"
- #"\224\262>\257\201\376~\303\323O\303\360"
- #"p\22\254\361\236\226f\365\222\337I\214"
- #"\231\17\364c!\227\332\253t\207rf"
- #"\200\205\340+A\300\275J\261\22\230\205"
- #"5\ay\352!f\235\223\270\356\276\23"
- #"\207\16\301\365\327\303\242EH)c\310\316\3152\6&O6\34?\16\257\276\n"
- #"\265F\314\207\353\334\265,\310&q>\23k6\216\0#mT\2763"
- #"\351\34\260\224|+\b\370\231R,\1fc\315A\253\27\323IS\2156"
-) 500
-(
- #"\6\272\273\341\206\el^!bSa\277\266P\246L1\374\345/\20E\256\323"
- #"\221\246\301\311\224U\"S\255\301B\244"
- #"\34\302\230\341\246\325\357Td\353,\236"
- #"\b\301\267\202\200\377\210\"\26b\341v{_\247U+\r\256;O{\241\3153"
- #"\317`\306\306\354\2711H)\351\352\352"
- #"\242\273\273\233\256\256.\244,\260jU"
- #"\201\265ks\330F\313\245\254&4\231dF\232\211\3267\20\4\363;B\322J"
- #":\2\374oRrw\30\262\0\v\267\340}\3474\322\177\345I|NBO\263"
- #"\323|\360\1\274\365V|\335A.\24\ntuu\221\317\27\350\353\313s\323M"
- #"i\236u\328\341\375\232\179\r\366L\224\372j\265v\23#m\3^/%"
- #"\377\251T\254\271\371\304\367\311\327=\v"
- #"t\332\365\272<J!^z\311^\367\274\210 \bb\310B\24\270\376\372<3"
- #"g&\265\327O\355h\262\17\331\3353\v\330\212\20S\332E\323T\332\2\2740"
- #"\227\343\347\306\260\b8\257Z\245s*;w\246^\316\345r\24\n\5\202 \317"
- #"\222%y\266nm\246\305I\r\365%"
- #"\313\\\270\373\347b\314\265\b\221T\243\316\245%\340\236 \340ncXi\f3"
- #"\2517\v\347Lv\357\206\361\361\206\313"
- #"B\b\362\371<\371\274\205|\353\255yr\271,;\354\203N{w \333&\a"
- #"\300\5\300ZD\362\226\16\2459`!\330&\4\327V\375\334IM\2626\363<"
- #"\233Ij\236\217>\262)E\244\224\344r9\214\311\261~}\216\215\e;\201\333"
- #"\314P\371Z\35\0y\214\271\4!\26\265Q\213li\n\370\vB\360\355(b"
- #"\0060\255\305\203\322\376\350\266zpi"
- #"\27\213E\370\360\303\364\374B\20\4\1"
- #"A\220\243\247'\340\333\337N\263\275I3Q\347mg\224B\244\334"
- #"\327\207\326\e\260\235\3753\223L\300\5!\370\276\326\314\303v\177\203"
-) 500
-(
- #"\254\214g mE\227j\1\207\6\261"
- #"\200\3\224\222l\331\"Y\261\"\315\216"
- #"\266c\"|\361\363\372\317\231\3\254n\247\304\231OM\225/K\311F`2g"
- #"\363\377\245K[fMf\277\\N\213\205\b\230>=`\333\266,\367,M{"
- #"\333\321d\227\334[q!\266\307\327\271"
- #"\244\326bj\20p\213\326L\6\246R\363W\323:\20YQ\200\254NG\333i"
- #"`\300\36\215\211\23\20\37]7:\212$_\373\232d\336\274\206\30]\n0'"
- #"\315\376\3424wn2\260\272.\360\324"
- #"\256\244\2\336\n\254\250\206\35\375\236Z"
- #"\332\377\237,~\332\365\216\323\244I\210"
- #"%K\354y\"l\351\316]\254\2$\375\375\222[n\311\202\332\252qKJ\22"
- #"\2563\27\v\261Njg\322\0x\262"
- #"\20\334\240\24\223\260\261\334\316\372\322\331"
- #"\322N|+\226\345\313a\341\302\372\274"
- #"\211a\b\a\331j\261\340\e\337\220\314"
- #"\234\331\nr\273\222\346U\364a\314\212"
- #"\16\236a\245\201\337\345\300Rj#\21I\311\n\233\264j\270|3\223&uf"
- #"\346\252\2530\371|\235i\250\313kL\235fk-Y\270Pp\323M\376\257\245"
- #"\275[\315 \247EM\222\232<\37k4\333\227:\300\201\224l\26\202n,`"
- #"\337s\310*f\263&#)\315\356\255C\261uk\235y\240z\336\360\274\0302"
- #"h\r\337\374\246\240\257/\313\307\315\372"
- #"\334\254\264\376Q\2\275\b\2610#\177"
- #"\272\324\1^\"%\27iM\36\253\275"
- #"\235\233\364\t\220\205\va\323\246\246Y"
- #"\322\354r\24\t\226-\23l\336\234z\307Y\24\250\336T\0303\217\306HL\266"
- #"\324\1^\217\r\234\27314h\35ame\32Z\231\204\206t\343\215\230i\323"
- #"jy\306\3060\17?\2149q\242vo\325l$\207\224\214\201\233o"
- #"\206\\\333\301\222\264Q\21'i\346E\2\323\20bz\273?P\3\234\3"
-) 500
-(
- #"\326x\332\353\227\261\35\210\355\346q)"
- #"U\247\202\0\261m[\3557\225\202;"
- #"\357\204\333n\203\273\356\302\37oO\263"
- #"\315Q\4_\370\2\254Y\223\374e\262"
- #"~1\221'\2536\276\231\350\302\0163\265'1\340~!X\24259j\203\225"
- #"\311\3077sv\262\212/\0\223\30%"
- #"\26B\200\20\215\317\331\260\1\326\257\257"
- #"]\373\363\237\341\201\al\276\a\37\204"
- #"\307\37\267\371\274\21\16\37\264\326\206B"
- #"\1n\2741Y\212$\264\266\372\222\244"
- #"kq\2001\347\321\256\177\25\347Z\212"
- #"u\247\375~P\326hD\326\365\3642\212\354<B\324\353\327\17~\0yk\337"
- #"\304\3600\342W\277\212\3575\306\300\275"
- #"\367\3328\205\177\215z\320\225\212a\303"
- #"\6\303\300@\253\341\242,\343\227V\313"
- #"\270\300\325\343d\254\e\320Z\244\253\350"
- #"r)\353\302%\311\"5\353\261e\25\307\1lj\277\2356._\216\271\371\346"
- #"Z\236\207\36\302\274\377~}\3767\337"
- #"\204\307\36k\350\341\371Ik\230>\335"
- #"p\355\265\311\32\264+\255\f\236\300\232"
- #"\211\366\3345\t \205`\00153\236\366b4\353\261\371\307\264\342dy\243u"
- #"&\342G?BL\236l?\27\213\210\373\356kx\6\0\277\375-\224\313 D"
- #"<Q\260\36\260&\212\f\327]g(\24Z5\315\355^O\326(\300jqk"
- #"\221\0\223\204`\246R\251\0Z\375\237"
- #"\231\337\245\371\255i\367\32\3\313\226!"
- #"\356\270\243\326\0>\372(\274\375v\303"
- #"=\2\340\345\227\21O>\211\366\0'!G\221\341\374\363\r_\374b;\357^"
- #"\262&Y5J\226\244\3\300S\215a\n\3557`\255z\363\235\212\270\373n\230"
- #":\325\376V\245\2\277\373]\363g\377"
- #"\376\367\3500\254\3\354\203\326\332 \245"
- #"a\353\3264\357\240\231\321J\346K-m5\3654+a"
- #",\26\260\326\24\252\217t\223?\233\275\\\355\372\303-\253"
-) 500
-(
- #"c\ff\315\32\314\355\267\327\236\363\364"
- #"\323\230W_mn\273\237{\16\365\362\313\250 \310\204\\.k\326\2541,Y"
- #"\322\256\211h\347{'\316\16\267v\270-`!\2204\2\316\322hR\276k\370"
- #"/\215ii\307\21\2\356\271\az{"
- #"\3555c\340\276\373\20\325{\263\356\323"
- #"\225\n\352\301\aQ)f\242\366\331\320"
- #"\323\243\371\322\227\222\23S\232ih+"
- #"\225\361\363H\332\6\334\27\4\30\352'"
- #"}\352D\30635\5\231\367\31\203\370"
- #"\362\227\341\353_\257]{\353-\304\263"
- #"\317\266|\246\6\324\343\217\243>\372\b"
- #"\225\230\264\355C\256T\f\e7\32f\315j\69\353\35\245E^I;]f"
- #"\t\220S\252N{\335,\333\263\226\254"
- #"\231\316\306@o/\346\227\277\204\300\v"
- #")m\337\16\245\346\223\360\f\325\231\300"
- #"\203\203\250g\236A\5Au&|\243\231\210\"\303\264i\326\243h\17p\253\306"
- #"0i&\332\264\3019h\0\0346\271\251#m\316\202\374\275\357!\326\255\253="
- #"\353\304\tx\344\221\226\217\363\25@="
- #"\362\bQ\261\230j\207-dM\245\242\271\342\n;\237\255V\313f\r\\\362\330"
- #"\354\17h\23\260\277vGa\341\226\231"
- #"\300Y\263\306\324\247y\363\340\27\277\210"
- #"\277\26\0\177\373\e\34>\334\3741\324"
- #"\346\261+ z\3555\324\356\335()"
- #"\23\353:j\220\243\310\232\210+\257\364W&ub*\332\371#\262E\2\204\306"
- #"\304\366\327\301-\323\\\213\317J\356\271"
- #"\a\346\316\255}\326\32\356\277\277\345m\21P\241\266:#*\225PO<a\201"
- #"\247\230\t\247\305ah\270\352*Co"
- #"\357\331\300Mj\277\246m\300%\352\227"
- #"\225\224\253\327\312m=\242C\271\372j"
- #"\370\356w\353\257\275\366\32\274\364R\323"
- #"\333\3542\304Z\31\343\2450O=\205\32\32BiM\24"
- #"Eu\240k=;\315\2349\232\r\e:\321\342f\220\225"
-) 500
-(
- #"W\202\346\"\1F\202\0\177\355N\5"
- #"\vw\234\t\326\342\356n\370\365\257\355Z\0_\266o\207J%\3636]-S"
- #"\235\366V\217\352\320!\324\213/\22U"
- #"}\342\306e`:\206|\3155\232\236"
- #"\236\264\305\214i\266\31\32\301\372\311\255"
- #"pj.\22\340t\265\360I\300\245j"
- #"\2320-\276\343\16\330\270\261\376\332\261"
- #"c\360\327\277f\336\342\354\256\178\271\246(z\352)T\251\224\351MhmW"
- #"\216\316\236\255Y\2736\253\241\313j\340"
- #"\322\362*\332m\245$\300\2601\214SS|\337L\214U+\346W8\t<\355"
- #"sC\261g\315\202\237\377\334\236\273\270"
- #"\1`\36}\24\216\34\311\254\252+\213"
- #"\203\353C\216\275\2117\337D\355\337\217"
- #"\22\242\1\262\377Y)\303\25W\30\272"
- #"\272\222\320\374e\ai6W\247\234;\303\332\6\340\21c8Em\t_\245z"
- #"{\21k&\306\250\375W\255b\23~"
- #"\236\272\236\336\217\177\f\213\27\333s\27"
- #"x\17C\304\366\355\251\367$\341\372\32"
- #"\334\0\271TB=\367\234]\r\227\200\352\2470\324\f\fh.\271\244\35-N"
- #"3!~jo\321\214m\344\214\341\30\265\206\304\1v\220G\253G\377\205H\276"
- #"H\376yC\272\340\2\314\17\177X\313W\325^^x\1\363\312+\r\325s6"
- #"\3275\264>\344\6\355u\351\205\27P\247N\241\22P\e\3356\315\246M\332\v"
- #"e\266j\364\222`\235\201jo\301L\34[?(D\235\e\344\354\260\323b\267"
- #"CCX\375\331d\f\302]K\215_\334}7L\237^\37\203\0\314\37\376`"
- #"]4\357Y\356O\316\202\233l\350b"
- #"\320\207\16\241\337z\253\251O\354\0\17"
- #"\f\30V\257n\267As6\327\a\354\324\256\3\300\37R\363}]\205\212^\32"
- #"\253\246qj\326\307\25-\253\323(\0\261z5\334"
- #"qGc\b\364\335w\21O<Qg\22|\323T\246"
-) 500
-(
- #"\21p&\\\227\376\361\17T\24\241\32l\257\362\2\3626]~\271&\237\317Z"
- #"\6\226f\177\265\367\213\356\235\356\0\360"
- #"a)9A\255\241s\25r\356\332h\25\260\323h\a:\244\361%\303?\376\364"
- #"\247\230\276\276\372\241\35\300\374\361\217\230"
- #"\261\261\330\341qo\213\323\\wL\203"
- #"\233\265*9\332\265\vu\370p\323\0\2201\246j\213\r\253V\2455fI\250"
- #"*q\36b\375\256\366\24251\340\323"
- #"Z\363\241\224\261\375\363+\355\240\216T"
- #"\217\3765\367\271L-\n\27\267\311\227"
- #"]\6\267\334R\367\203F\b\364\321\243"
- #"\250\207\36\"\244\246\261\16\256K\345D"
- #"J\323\334\6-\36\eC\275\361F\34"
- #"\306L\203\353\17-\255_o\310\347\333"
- #"\361y}\r\256\0\355\257\245\213\3\232"
- #"\306\30\366\n\301%\325\317\25\262\27C9\255K[\343\23\337#\4\342'?A"
- #"tu\305\0212\2555\246\273\e\375\360\303\350#Gb\235HnH\340\373\271\255"
- #"\216\r\240_~\31u\305\25\261\211\310"
- #"\262\305\306\330\221\347\213.2\274\375v"
- #"\26\\\177\245\276o\36Nw\16\30\340"
- #"}c8\201\235\244\351\0\247\5\334\r"
- #"\215k{\32\346\225o\334\210\330\262\5"
- #"q\362$.\242\246\0013<\214\331\276\275\341\5Ln\257\221\266IAS\260."
- #"}\370!\352\203\17\320\213\0265hn"
- #"\332\260\322\272u\206={\254\331\310\326"
- #"\\\337p\236\302\276Sg\0\370TU\213g\30C\205\332\242\356\244g`\260\263"
- #"\177\222p]~)%\342\316;\355\310\304\350\250\35\2767\6\272\2720;v\240"
- #"w\355\252\353\325'59\rtS\323\340\237+\205~\375u\364\242E\231\376p"
- #"-^\254\351\3577\254X\241\331\275;\253D~\0w\f8\3366\334\6\300\0"
- #"o\0\27c\207\364\222\246\301\301u?\357\366\200\250\203"
- #"\v\210M\233\220\e7Z\355\365\304\204!<\360\200\255"
-) 500
-(
- #"$\365\16\220\177L\3\227\4\236\266\345"
- #"F\374B\357\332\205\332\274\31](d\216<\373Z|\351\245\206={\2549i"
- #",\215\337\f\177L'\346!\25\360A!\330'\4+\265\216\315\204\3\234f\376"
- #"s$VE\344r\210\357|\a\21Ev\2048\376\245\34\354\331\203y\341\205\206"
- #"6;Y\235\210t\330Y@\ev\3549q\2\375\376\373\230\213/\306$F\237"
- #"\223\220\303\320F\332\26/V\354\337\237\324\\\277a\263;[5\16\246u\bX"
- #"i\315+A\300\22jf\300\327\336\344"
- #"\213\324E\302\366^}5\342\342\213\355"
- #"\324'\177nDw7\346\261\307\354\346"
- #"Gd7)\311\246\245\31\314\264}\247\342\3637\337D\257Z\25\367\354|;\234"
- #"\264\311B(V\257\326\348\2400&\371d\247\275'\261\366\2673I\35\26\335"
- #"\247\24\373\244d\245\326\2619o\346z"
- #"\27\34\334\356n\304\255\267\"\312e\253"
- #"\301\16\260\224p\342\4\346\311'\e\\"
- #"\372\3443\223\260\322^\332\264\353\376w"
- #"\6\320\373\366\241\217\37GO\235\332\0"
- #"\326\377l=\r\315\334\271\212\331\263\25CCip\213X\355\355<x\233\nX"
- #"\3/\32\303\2\354N\n\255\0GTgd^w\35\342\202\v\20\325\355\bb"
- #"\300]]\360\374\363\230\243G\e\302)"
- #"\255\334\373V\300\323\376\30\3\250R\t"
- #"\275g\17f\323&tu_\266\344\320"
- #"\276\337\31\221R\261l\231\178\242\326"
- #"\3459Q\5\334\271d\16\354\0374\2067\204\340rcj\35\a\32\315D\256z"
- #"\f{{\311\337x#\262X\4\245jp\205\260\301\364\277\377\275\341\31YA\301"
- #"V\16S\22\256\237|\233n\336y\a\275vmK\270.\315\237\257\350\356V\224"
- #"J~D\344\0240H\247\266\267%`\200\235B\260\320\30\6R\0'"
- #"\e\236\334\225W\22\315\236Mn|\274n\257\35\221\317c\336y\a\366"
-) 500
-(
- #"\354\211\237\341\216~\27;\t\331\375F\226\371H\206`\322B4zp\02034"
- #"\204\2313\247)\\7\324\324\335\255\230"
- #"7O\261\177\277\203;\212\335\231\2523"
- #"\317\301\227\246\263\210G\265\346\205\\."
- #"\36:\362\343\1~\214\240\334\327G\371\232k(\216\215Q,\26)\225J\204a"
- #"h\367=\213\"\302\35;\b\225\252\213"
- #"\210\245\216\257Q\337\241H\372\301i\336"
- #"D\232\231\210\377\260(B\357\335\eO\24L\323Z\a7\212\"\242H1o\236"
- #"\263\273\343X\323pv[\177\265\234\246"
- #"\375O\245xU\312\272\20\246\e^r\237\303\r\e(\317\234Iyl\214R\251"
- #"\24\247\212R\204\207\16\21\276\362J\3\320$\314,\310ip\323LD\362Z\f"
- #"y\357^t\261\330\0004\rr\245\22"
- #"\322\327W\246\267\267\204\365\32\216P?"
- #"\236\323\271\264\236\\e\f;\261\v\302W$*\221\3to/z\303\6\202b"
- #"\21\5\361\342@Y\235\320-w\356D\216\216\3061\fh\36\240O6|Y\346"
- #"#\353\330\220\377\370q\324\340 \252\277"
- #"\37\355\305%|\315UJ\21\206!\245R\211(*2y\3620\343\343\23\263\v"
- #"U[\353q\"cx\26\353\27\317\247\36r\260f\rz\3324T\251T\aW"
- #"J\211\254T\220\325\355a\222\35\26h"
- #"\16\270\35\350iP\el\266\326\250\3"
- #"\a\320s\346\304\200\223\232\353\340\26\213"
- #"E\206\207\207\211\242A\316\324kHJ"
- #"\333\v\236F\201\377\6\276\202\335\263G"
- #"\3\272\273\233\374\245\227\242\313eDu"
- #"\363\2428\25\n\210}\373\220\207\16\305"
- #"q\214d\360\250\325\230B\26\364$\334\264^a\235\3718p\0\275fM\34\210"
- #"\367\223\17\367\324\251S\f\r\rq\362d\366V\n\235JG\333\357|\f<#"
- #"%[\264f\26\240/\274\20=e\n\271R\251\272"
- #"\275@u\2373)\221B _\177\35\241u\313e\b"
-) 500
-(
- #"\220\256\315\355hr\263\360x\234N\234"
- #"@\35;\206\2321\303\216xxp\313"
- #"\345r\35\334\303\207\17\243\275a\254\263"
- #"\225\216\3677:\2565O\t\301\346\\"
- #"\216\376\213.B\25\213\344\204 \227\313"
- #"\305[\f\310 @\214\214 \337{\257%\330\344\347v4:\315g\316\362\243\25"
- #"X\323p\360 j\3324T\24\21E\21\225J\205J\245B\251Tbxx\230"
- #"\243G\2172888\241p\341\f7\220\372\330\30\236\221\222+\207\207Y0u"
- #"*Q.GNkr\371<\271|\36\31\4\310}\373\20\247O\327\201\365\355p"
- #"\226\230\224c\226\6\247\331\341,mV"
- #"\a\17\242\226/'\254\202-\227\313\24K%FN\237\346\310\341\303\f\35?>"
- #"\341p\241\276\315\351X\272\273\273Y\273"
- #"v-+\346\317'\37E\4\245\22\271\321Qr\243\243\4\a\16 N\236\314\236"
- #"\335N#\350\244\366\372\327:1\23\251"
- #"]\354|\236p\313\26*\205\2\245\361"
- #"q\306\306\307\31\376\370c\216\f\16r"
- #"rx\370\314!\264\220\263\2\f6\336"
- #"\260\274P\340\222J\205\311\306\20\320z"
- #"\243C\377\307}i\0057\313.\247v\223i\f\227W\226.\245\270`\1##"
- #"#\234\32\32\342\350\320\20\243M\346\304M\204\2345`'3\2005X7\316\355"
- #"\302\232\265\17_Z!H\24\244\35\310"
- #"iv\330\a\233\234\320X\4N\367\366"
- #"\362\257 \340\330\310\310\304\314\342o!"
- #"\23\6\30,\310\363\201\213\260\353 \375"
- #"\rY\342\215\361i\324\3464\260\376y"
- #"\26\3304{\254\251\357\35\272\250\3028\266ov\234s\261\211m\266L(`'"
- #"\275\300\5B\260\330\230x\303\346\206a%\322\375b\22\347\255:#\311ASg"
- #"\22|\260\247\261Q\205\223\347\242\262"
- #"-\344\234\0v\322\v,\22\202\371\325\r\226\234\351H"
- #"&\177\354/)\315\32\270d\360\307\245\nvx\3624\326"
-) 188
-(
- #"w\37\256\346\3714\344\234\2v\222\307"
- #"n\3576\200\335}\314\355G\2216\2432M\262\\3gg}s0\216\5z"
- #"\n\333\373\374\24456)\237\b`_"
- #"z\260\r\342\f\254\235\356\301\216\353\371"
- #"\235\20\2238\317r\301\\\3035\16\214\n\301(0Z]o\362Y\221O\34\260"
- #"/\201\20\364\30C/\325]\256\204\240`L\274!H@\343p~\b\224\205\240"
- #"dL<\335\252\302\247\257\251Y\362\251"
- #"\2\316\22Au\352\225\277\205\214\20\250"
- #"\2545w\237a\371L\2\376\377$\23"
- #"\265\261\337\347\222!\237\3>\307\3629\340s,\237\3>\307\362"
- #"\177z\314\306\205O<{Y\0\0\0\0IEND\256B`\202"
-) 0 0 22 3 1 #")"
-0 0 4 29 1 #"\n"
-0 0 22 3 1 #"("
-0 0 14 3 11 #"image-width"
-0 0 17 3 1 #" "
-0 0 14 3 6 #"a-snip"
-0 0 22 3 1 #")"
-0 0 4 29 1 #"\n"
-0 0 22 3 1 #"("
-0 0 14 3 12 #"image-height"
-0 0 17 3 1 #" "
-0 0 14 3 6 #"a-snip"
-0 0 22 3 1 #")"
-0 0 4 29 1 #"\n"
-0 0 14 3 6 #"a-snip"
-0 0 4 29 1 #"\n"
-0           0

image/main.rkt

@@ -1,7 +0,0 @@
-#lang s-exp "../lang/base.rkt"
-
-(require "private/main.rkt"
-         "private/color.rkt")
-
-(provide (all-from-out "private/main.rkt")
-         (all-from-out "private/color.rkt"))

image/private/racket-impl.rkt

@@ -1,105 +0,0 @@
-#lang s-exp "../../lang/base.rkt"
-
-(require 2htdp/image
-         (for-syntax racket/base))
-
-(provide text
-         text/font
-         overlay
-         overlay/xy
-         overlay/align
-         underlay
-         underlay/xy
-         underlay/align
-         beside
-         beside/align
-         above
-         above/align
-         empty-scene
-         place-image
-         place-image/align
-         rotate
-         scale
-         scale/xy
-         flip-horizontal
-         flip-vertical
-         frame
-         crop
-         line
-         add-line
-         scene+line
-         circle
-         square
-         rectangle
-         regular-polygon
-         ellipse
-         triangle
-         right-triangle
-         isosceles-triangle
-         star
-         radial-star
-         star-polygon
-         rhombus
-         image->color-list
-         color-list->image
-         image-width
-         image-height
-         image-baseline
-         image-color?
-         mode?
-         x-place?
-         y-place?
-         angle?
-         side-count?
-         image-color?
-
-
-         image?
-         ;; Something funky is happening on the Racket side of things with regards
-         ;; to step-count?  See:  http://bugs.racket-lang.org/query/?cmd=view&pr=12031
-         ;; step-count?
-
-         bitmap/url
-
-         name->color
-         )
-
-
-(provide (rename-out (my-color-list->bitmap color-list->bitmap)))
-
-(define (my-color-list->bitmap x w h)
-  (color-list->bitmap x w h))
-(set! my-color-list->bitmap my-color-list->bitmap)
-
-
-(define-syntax (define-stubs stx)
-  (syntax-case stx ()
-    [(_ f ...)
-     (syntax/loc stx
-       (begin
-         (define f (lambda args (error 'f))) ...))]))
-
-
-
-(define-stubs color-list->image)
-
-
-
-  
-
-(define (my-step-count? x)
-  (and (integer? x)
-       (>= x 1)))
-
-
-(define image-url (procedure-rename bitmap/url 'image-url))
-(define open-image-url (procedure-rename bitmap/url 'open-image-url))
-
-
-(define (name->color n)
-  (error 'name->color "not implemented yet"))
-
-
-(provide (rename-out [my-step-count? step-count?]
-                     [bitmap/url image-url]
-                     [bitmap/url open-image-url]))

info.rkt

@@ -1,29 +1,2 @@
 #lang setup/infotab
-
-(define name "Whalesong")
-(define blurb '("A Racket to JavaScript compiler"))
-(define release-notes '((p "The JavaScript FFI includes js-function->procedure and js-async-function->procedure to lift JavaScript functions to Racket.  New world event types can be introduced with make-world-event-handler.")))
-(define version "1.16")
-(define primary-file "make-launcher.rkt")
-(define categories '(devtools))
-(define repositories '("4.x"))
-(define required-core-version "5.1.1")
-
-;; I am disabling the automatic launchers: it's causing issues with
-;; file permissions.  The program "make-launcher.rkt" will build a
-;; whalesong launcher, so I need to revise the instructions to use it
-;; instead.
-;;
-;; (define racket-launcher-libraries '("whalesong.rkt"))
-;; (define racket-launcher-names '("whalesong"))
-;;
-
-(define homepage "http://hashcollision.org/whalesong")
-(define scribblings '(("scribblings/manual.scrbl")))
-(define compile-omit-paths '("tests"
-                             "sandbox"
-                             "examples"
-                             "experiments"
-                             "simulator"
-                             "tmp"))
-(define can-be-loaded-with 'all)
+(define collection 'multi)

js/world/test-geo.rkt

@@ -1,9 +0,0 @@
-#lang planet dyoo/whalesong
-
-(require (planet dyoo/whalesong/web-world)
-         "geo.rkt")
-
-
-(big-bang (list 'undefined 'undefined)
-          (on-geo (lambda (w v lat lng)
-                    (list lat lng))))

korean/lang/reader.rkt

@@ -1,5 +0,0 @@
-#lang s-exp syntax/module-reader
-#:language (lambda ()
-             `(planet ,(this-package-version-symbol lang/korean)))
-
-(require planet/version)

lang/kernel.rkt

@@ -1,551 +0,0 @@
-#lang racket/base
-(require (prefix-in racket: (only-in racket/math pi sinh cosh sqr
-                                     sgn conjugate))
-         (prefix-in racket: racket/base)
-         racket/provide
-	 racket/local
-	 (for-syntax racket/base)
-         racket/stxparam
-         
-         (only-in '#%paramz
-                  exception-handler-key
-                  parameterization-key
-                  break-enabled-key))
-
-(require (prefix-in kernel: '#%kernel))
-
-
-(provide exception-handler-key
-         parameterization-key
-         break-enabled-key)
-
-
-(provide define-syntax-parameter
-         syntax-parameterize)
-
-;; constants
-(define pi racket:pi)
-(define e (racket:exp 1))
-
-
-(define my-current-print-mode "write")
-(define current-print-mode
-  (case-lambda
-    [() my-current-print-mode]
-    [(v) (set! my-current-print-mode v)]))
-
-(provide current-print-mode)
-
-
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;; Primitive function stubs
-
-;; provide-stub-function
-(define-syntax (provide-stub-function stx)
-  (syntax-case stx ()
-    [(_ name-or-name-pair ...)
-     (with-syntax ([(provided-name ...)
-                    (map (lambda (name-or-pair)
-                           (syntax-case name-or-pair ()
-                             [x
-                              (identifier? #'x)
-                              #'x]
-                             [(x y)
-                              #'x]))
-                         (syntax->list #'(name-or-name-pair ...)))]
-                   [(impl-name ...) 
-                    (map (lambda (name)
-                           (syntax-case name ()
-                             [an-id
-                              (identifier? #'an-id)
-                              (datum->syntax name 
-                                             (string->symbol
-                                              (string-append "racket:"
-                                                             (symbol->string 
-                                                              (syntax-e name))))
-                                             name)]
-                             [(an-id an-impl-name)
-                              #'an-impl-name]))
-                         (syntax->list #'(name-or-name-pair ...)))])
-       (syntax/loc stx
-         (begin (begin (define (provided-name . args) 
-                         (racket:apply impl-name args))
-                       (provide provided-name))
-                ...)))]))
-
-
-
-
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;; Provides
-(provide pi
-         e
-         null
-         eof
-         #%plain-module-begin
-	 #%module-begin
-	 #%datum
-	 #%app
-         #%plain-app
-	 #%top-interaction
-	 #%top
-         module
-         define
-	 define-values
-         let-syntax
-	 let-values
-	 let*-values
-	 define-struct
-         struct
-         if
-	 cond
-	 else
-         =>
-	 case
-	 quote
-	 unquote
-	 unquote-splicing
-	 lambda
-	 case-lambda
-	 let
-	 let*
-	 letrec
-	 letrec-values
-	 local
-	 begin
-	 begin0
-	 set!
-	 and
-	 or
-	 when
-	 unless
-         do
-         require
-	 for-syntax
-         for-template
-	 define-for-syntax
-	 begin-for-syntax
-	 prefix-in
-	 only-in
-         rename-in
-         except-in
-	 provide
-	 planet
-	 all-defined-out
-	 all-from-out
-         prefix-out
-	 except-out
-	 rename-out
-	 struct-out
-         filtered-out
-         combine-in
-         protect-out
-         combine-out
-
-         
-         define-syntax-rule
-	 define-syntax
-	 define-syntaxes
-
-
-         let/cc
-	 with-continuation-mark
-
-         hash?
-         hash-equal?
-         hash-eq?
-         hash-eqv?
-         hash
-         hasheqv
-         hasheq
-         make-hash
-         make-hasheqv
-         make-hasheq
-         make-immutable-hash
-         make-immutable-hasheqv
-         make-immutable-hasheq
-         hash-copy
-         hash-ref
-         hash-set!
-         hash-set
-         hash-remove!
-         hash-remove
-         equal-hash-code
-         hash-count
-
-
-         ;; Kernel inlinable
-         *
-	 -
-	 +
-	 =
-	 /
-	 sub1
-	 add1
-	 <
-	 >
-	 <=
-	 >=
-         cons
-         car
-         cdr
-         list
-         list?
-         pair?
-         null?
-         not
-         eq?
-         values
-
-         ;; The version of apply in racket/base is doing some stuff that
-         ;; we are not handling yet.  So we expose the raw apply here instead.
-         (rename-out [kernel:apply apply])
-         call-with-values
-
-         gensym
-
-
-         srcloc
-         make-srcloc
-         srcloc?
-         srcloc-source
-         srcloc-line
-         srcloc-column
-         srcloc-position
-         srcloc-span
-
-
-         make-struct-type
-         make-struct-field-accessor
-         make-struct-field-mutator
-         struct-type?
-
-         exn:fail
-         struct:exn:fail
-         prop:exn:srclocs
-
-
-         current-inexact-milliseconds
-         current-seconds
-         
-
-         abort-current-continuation
-         
-         ;; needed for cs019-local
-         #%stratified-body
-         )
-
-
-(define (-identity x) x)
-
-(define (-undefined? x)
-  (letrec ([y y])
-    (eq? x y)))
-
-
-
-;; Many of these should be pushed upward rather than stubbed, so that
-;; Racket's compiler can optimize these.
-(provide-stub-function
-
- current-output-port
- current-print 
-
-
-
- write
- write-byte
- display
- newline
- displayln
-
- 
- current-continuation-marks
- continuation-mark-set->list
- 
-;;  continuation-mark-set?
-;;  continuation-mark-set->list
-
-;;  struct-constructor-procedure?
-;;  struct-predicate-procedure?
-;;  struct-accessor-procedure?
-;;  struct-mutator-procedure?
-
-;;  make-arity-at-least
-;;  arity-at-least?
-;;  arity-at-least-value
-
-
-;;  compose
-;;  current-inexact-milliseconds
-;;  current-seconds
-  void
-  random
-;;  sleep
-;;  (identity -identity)
-
-raise  
-error
-raise-type-error
-raise-mismatch-error
-
-make-exn
-make-exn:fail
-make-exn:fail:contract
-make-exn:fail:contract:arity
-make-exn:fail:contract:variable
-make-exn:fail:contract:divide-by-zero
-
-exn-message
-exn-continuation-marks
-
-
-;;  exn?
-;;  exn:fail?
-;;  exn:fail:contract?
-;;  exn:fail:contract:arity?
-;;  exn:fail:contract:variable?
-;;  exn:fail:contract:divide-by-zero?
-  abs
-  quotient
-  remainder
-  modulo
-  max
-  min
-  gcd
-  lcm
-  floor
-  ceiling
-  round
-  truncate
-  numerator
-  denominator
-  expt
-  exp
-  log
-  sin
-  sinh
-  cos
-  cosh
-  tan
-  asin
-  acos
-  atan
-  sqr
-  sqrt
-  integer-sqrt
-  sgn
-  make-rectangular
-  make-polar
-  real-part
-  imag-part
-  angle
-  magnitude
-  conjugate
-  inexact->exact
-  exact->inexact
-  number->string
-  string->number
-  procedure?
-  procedure-arity
-  procedure-arity-includes?
-  procedure-rename
-  ;;  (undefined? -undefined?)
-;;  immutable?
-void?
-symbol?
-string?
-char?
-boolean?
-vector?
-struct?
-;;  bytes?
-byte?
-number?
-complex?
-real?
-rational?
-integer?
-exact-integer?
-exact?
-exact-nonnegative-integer?
-inexact?
-odd?
-even?
-zero?
-positive?
-negative?
-box?
-;;  hash?
-
-  equal?
-  eqv?
-  
-  caar
-  cdar
-  cadr
-  cddr
-  caaar
-  cdaar
-  cadar
-  cddar
-  caadr
-  cdadr
-  caddr
-  cdddr
-  caaaar
-  cdaaar
-  cadaar
-  cddaar
-  caadar
-  cdadar
-  caddar
-  cdddar
-  caaadr
-  cdaadr
-  cadadr
-  cddadr
-  caaddr
-  cdaddr
-  cadddr
-  cddddr
-  
-  length
-  list*
-  list-ref
-;;  list-tail
-  append
-  reverse
-  for-each
-  map
-  andmap
-  ormap
-  memq
-  memv
-  member
-  memf
-  assq
-  assv
-  assoc
-;;  sort
-  box
-;;  box-immutable
-  unbox
-  set-box!
-;;  make-hash
-;;  make-hasheq
-;;  hash-set!
-;;  hash-ref
-;;  hash-remove!
-;;  hash-map
-;;  hash-for-each
-  make-string
-  string
-  string-length
-  string-ref
-  string=?
-  string<?
-  string>?
-  string<=?
-  string>=?
-  string-ci=?
-  string-ci<?
-  string-ci>?
-  string-ci<=?
-  string-ci>=?
-
-  string-copy
-  substring
-  string-append
-  string->list
-  list->string
-  string->symbol
-  symbol->string
-  
-  format
-  printf
-  fprintf
-;;  string->immutable-string
-  string-set!
-;;  string-fill!
-;;  make-bytes
-;;  bytes
-;;  bytes->immutable-bytes
-;;  bytes-length
-;;  bytes-ref
-;;  bytes-set!
-;;  subbytes
-;;  bytes-copy
-;;  bytes-fill!
-;;  bytes-append
-;;  bytes->list
-;;  list->bytes
-;;  bytes=?
-;;  bytes<?
-;;  bytes>?
-  make-vector
-  vector
-  vector-length
-  vector-ref
-  vector-set!
-  vector->list
-  list->vector
-  char=?
-  char<?
-  char>?
-  char<=?
-  char>=?
-  char-ci=?
-  char-ci<?
-  char-ci>?
-  char-ci<=?
-  char-ci>=?
-  char-alphabetic?
-  char-numeric?
-  char-whitespace?
-  char-upper-case?
-  char-lower-case?
-  char->integer
-  integer->char
-  char-upcase
-  char-downcase
-
-  
-  ;; these are defined in bootstrapped-primitives in Whalesong's compiler package
-  call-with-current-continuation
-  call/cc
-
-  ;;  call-with-continuation-prompt
-  ;;  abort-current-continuation
-  default-continuation-prompt-tag
-  make-continuation-prompt-tag
-  continuation-prompt-tag?
-
-  make-reader-graph
-  make-placeholder
-  placeholder-set!
-
-  eof-object?
-  read-byte
-
-
-  hash-has-key?
-  hash-keys
-  hash-values
-  )
-
-
-
-
-
-(provide set-car! set-cdr!)
-
-(define (set-car! x v)
-  (error 'set-car! "Not available outside JavaScript context."))
-
-(define (set-cdr! x v)
-  (error 'set-car! "Not available outside JavaScript context."))
-
-
-
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

parser/where-is-collects.rkt

@@ -1,18 +0,0 @@
-#lang typed/racket/base
-(require/typed racket/path
-               (normalize-path (Path -> Path)))
-(require/typed typed/racket/base
-               (relative-path? (Any -> Boolean))
-               (find-executable-path (Path Path -> Path)))
-
-(provide collects-path)
-
-(define collects-path
-  (normalize-path
-   (let ([p (find-system-path 'collects-dir)])
-     (cond
-      [(relative-path? p)
-       (find-executable-path (find-system-path 'exec-file)
-                             (find-system-path 'collects-dir))]
-      [else
-       p]))))

tests/more-tests/booleans-cs019.rkt~

@@ -1,23 +0,0 @@
-#lang planet dyoo/whalesong/base
-(require (planet dyoo/whalesong/lang/bool))
-
-(boolean? "t")
-(boolean? #t)
-(boolean? 0)
-(boolean? #\t)
-
-(char? "t")
-(char? #t)
-(char? 0)
-(char? #\t)
-
-(char=? #\a #\b)
-(char=? #\a #\a)
-(char=? #\a #\a #\b)
-(char=? #\a #\b #\a)
-(char=? #\a #\a #\a)
-
-true
-false
-(false? true)
-(false? false)

tests/more-tests/isolating-bug.expected

@@ -1,27 +0,0 @@
-#<struct-type:swf>
-#<procedure:make-swf>
-#<procedure:swf?>
-#<procedure:swf-f>
-#<procedure:set-swf-f!>
-in the result of call-with-values
-(#<struct-type:swf> #<procedure:make-swf> #<procedure:swf?> #<procedure:swf-f> #<procedure:set-swf-f!>)
----
-#<struct-type:swf>
-#<procedure:make-swf>
-#<procedure:swf?>
-#<procedure:swf-f>
-#<procedure:set-swf-f!>
-***
-#<struct-type:swf2>
-#<procedure:make-swf2>
-#<procedure:swf2?>
-#<procedure:swf2-f>
-#<procedure:set-swf2-f!>
-in the result of call-with-values
-(#<struct-type:swf2> #<procedure:make-swf2> #<procedure:swf2?> #<procedure:swf2-f> #<procedure:set-swf2-f!>)
----
-#<struct-type:swf2>
-#<procedure:make-swf2>
-#<procedure:swf2?>
-#<procedure:swf2-f>
-#<procedure:set-swf2-f!>

tests/more-tests/quasi.rkt

@@ -1,2 +0,0 @@
-#lang planet dyoo/whalesong
-`(0 ,@(list 1 2) 4)

web-world/examples/hello2/hello2.rkt

@@ -1,5 +0,0 @@
-#lang planet dyoo/whalesong
-
-(require (planet dyoo/whalesong/web-world))
-
-(big-bang 0 (initial-view "hello world"))

whalesong/Makefile

@@ -45,8 +45,8 @@ cs019-doc:
 
 setup:
 
-	raco setup --no-docs -P dyoo whalesong.plt 1 16
+	raco setup --no-docs -P dyoo whalesong.plt 1 19
 
 
 planet-link:
-	raco planet link dyoo whalesong.plt 1 16 .
+	raco planet link dyoo whalesong.plt 1 19 .

whalesong/README

@@ -1,7 +1,7 @@
 ======================================================================
 Whalesong: a compiler from Racket to JavaScript.
 
-Danny Yoo (dyoo@cs.wpi.edu)
+Danny Yoo (dyoo@hashcollision.org)
 
 
 ======================================================================
@@ -29,21 +29,30 @@ amount of time.
 Example usage
 
 
-
-Create a simple, standalong executable of your program.  At the
-moment, the program must be written in the base language of whalesong.
-(This restriction currently prevents arbitrary racket/base programs
-from compiling, and we'll be working to remove this restriction.)
+Create a simple, executable of your program.  At the moment, the program must
+be written in the base language of whalesong.  (This restriction currently
+prevents arbitrary racket/base programs from compiling, and we'll be working to
+remove this restriction.)
 
     $ cat hello.rkt 
-    #lang planet dyoo/whalesong
+    #lang whalesong
     (display "hello world")
     (newline)
 
     $ ./whalesong.rkt build hello.rkt
 
-    $ ls -l hello.xhtml
-    -rw-rw-r-- 1 dyoo nogroup 692213 Jun  7 18:00 hello.xhtml
+    $ ls -l hello.html
+    -rw-rw-r-- 1 dyoo nogroup 692213 Jun  7 18:00 hello.html
+
+To build standalone executable of your program, provide --as-standalone-html
+flag.
+
+    $ ./whalesong.rkt build --as-standalone-html hello.rkt
+
+    $ ls -l
+    -rw-rw-r-- 1 dyoo nogroup 692213 Jun  7 18:00 hello.html
+
+NOTE: Earlier versions had --as-standalone-xhtml flag, which is now removed.
 
 
 [FIXME: add more examples]
@@ -187,4 +196,4 @@ This uses code from the following projects:
    jquery (http://jquery.com/)
 
 
-   [FIXME: add more]
+   [FIXME: add more]

whalesong/bf/lang/reader.rkt

@@ -1,11 +1,9 @@
 #lang s-exp syntax/module-reader
-#:language (lambda ()
-             `(planet ,(this-package-version-symbol bf/language)))
+#:language (lambda () 'whalesong/bf/language)
 #:read my-read
 #:read-syntax my-read-syntax
 #:info my-get-info
-(require "../parser.rkt"
-         planet/version)
+(require "../parser.rkt")
 
 (define (my-read in)
   (syntax->datum (my-read-syntax #f in)))

whalesong/bf/language.rkt

@@ -1,4 +1,4 @@
-#lang planet dyoo/whalesong
+#lang whalesong
 
 (require "semantics.rkt"
          (for-syntax racket/base))
@@ -100,4 +100,4 @@
      (with-syntax ([current-data (datum->syntax stx 'current-data)]
                    [current-ptr (datum->syntax stx 'current-ptr)])
        (syntax/loc stx
-         (loop current-data current-ptr body ...)))]))
+         (loop current-data current-ptr body ...)))]))

whalesong/bf/semantics.rkt

@@ -1,4 +1,4 @@
-#lang planet dyoo/whalesong
+#lang whalesong
 
 ;; This is a second semantics for the language that tries to go for speed,
 ;; at the expense of making things a little more complicated.

whalesong/compiler/bootstrapped-primitives.rkt

@@ -14,7 +14,7 @@
 (require/typed "../parameters.rkt"
                (current-defined-name (Parameterof (U Symbol LamPositionalName))))
 (require/typed "../parser/parse-bytecode.rkt"
-               (parse-bytecode (Any -> Expression)))
+               (parse-bytecode (Compiled-Expression -> Expression)))
 
 
 

whalesong/compiler/compiler.rkt

@@ -25,7 +25,9 @@
                [get-provided-names (Expression -> (Listof ModuleProvide))])
 
 
-(provide (rename-out [-compile compile])
+(provide (rename-out [-compile compile]
+                     [compile raw-compile])
+         compile-for-repl
          compile-general-procedure-call)
 
 
@@ -68,8 +70,47 @@
          (make-AssignImmediate target (make-Reg 'val)))))))
 
 
-
-
+;; Compiles an expression for the REPL.
+;; The result of the repl evaluation will be a list in the var register.
+(: compile-for-repl (Expression -> (Listof Statement)))
+(define (compile-for-repl exp)
+  (define lambda-bodies (collect-all-lambdas-with-bodies exp))
+  (define after-lam-bodies: (make-label 'afterLamBodies))
+  (define bundle-values-into-list: (make-label 'bundleValuesIntoList))
+  (define abort-with-multiple-values: (make-label 'abortWithMultipleValues))
+  (define last: (make-label 'last))
+  (define-values (handle-multiple-return: handle-return:)
+    (new-linked-labels 'afterPopPrompt))
+  
+  (optimize-il
+   (statements
+    (append-instruction-sequences
+     ;; Layout the lambda bodies...
+     (make-Goto (make-Label after-lam-bodies:))
+     (compile-lambda-bodies lambda-bodies)
+     
+     after-lam-bodies:
+     
+     ;; Begin a prompted evaluation:
+     (make-PushControlFrame/Prompt default-continuation-prompt-tag
+                                   handle-return:)
+     (compile exp '() 'val return-linkage/nontail)
+      
+     handle-multiple-return:
+     ;; After coming back from the evaluation, rearrange the return
+     ;; values, to call the continuation with those as arguments.
+     (make-TestAndJump (make-TestZero (make-Reg 'argcount)) 
+                       bundle-values-into-list:)
+     handle-return:
+     (make-PushImmediateOntoEnvironment (make-Reg 'val) #f)     
+     bundle-values-into-list:
+     (make-Goto (make-Label last:))
+     
+     last:
+     ;; Finally, return to the success continuation on the stack.
+     (make-AssignImmediate 'proc (make-ControlStackLabel))
+     (make-PopControlFrame)
+     (make-Goto (make-Reg 'proc))))))
 
 
 
@@ -188,7 +229,7 @@
 
 (: compile-top (Top CompileTimeEnvironment Target Linkage -> InstructionSequence))
 ;; Generates code to write out the top prefix, evaluate the rest of the body,
-;; and then pop the top prefix off.
+;; and then pop the top prefix off afterwards.
 (define (compile-top top cenv target linkage)
   (let*: ([names : (Listof (U False Symbol GlobalBucket ModuleVariable)) (Prefix-names (Top-prefix top))])
     (end-with-linkage 
@@ -198,10 +239,11 @@
       (compile (Top-code top) 
                (cons (Top-prefix top) cenv)
                'val
-               next-linkage/drop-multiple)
+               next-linkage/keep-multiple-on-stack)
       (make-AssignImmediate target (make-Reg 'val))
       (make-PopEnvironment (make-Const 1) 
-                           (make-Const 0))))))
+                           (new-SubtractArg (make-Reg 'argcount)
+                                            (make-Const 1)))))))
 
 
 
@@ -249,7 +291,7 @@
          (make-PopControlFrame)
          
          ;; We sequester the prefix of the module with the record.
-         (make-Perform (make-FinalizeModuleInvokation! path))
+         (make-Perform (make-FinalizeModuleInvokation! path provides))
          (make-Goto (make-Reg 'proc))
          
          after-module-body)))]))
@@ -263,9 +305,10 @@
 
 
 (: compile-module-invoke (ModuleLocator -> InstructionSequence))
-;; Generates code that will invoke a module (if it hasn't been invoked yet)
-;; FIXME: assumes the module has already been linked.  We should error out
-;; if the module hasn't been linked yet.
+;; Generates code that will invoke a module (if it hasn't been invoked
+;; yet) FIXME: assumes the module has already been loaded/linked.  We
+;; should try to load the module, or error out if the module can't be
+;; found.
 (define (compile-module-invoke a-module-name)
   (cond
     [(kernel-module-name? a-module-name)
@@ -276,12 +319,14 @@
      (append-instruction-sequences
       (make-TestAndJump (make-TestTrue (make-ModulePredicate a-module-name 'linked?))
                         linked)
-      ;; TODO: raise an exception here that says that the module hasn't been
+      ;; TODO: try to link dynamically, using plt.runtime.currentModuleLoader.
+      (make-Perform (make-LinkModule! a-module-name linked))
+      ;; If that fails, finally raise an exception here that says that the module hasn't been
       ;; linked yet.
-      (make-DebugPrint (make-Const 
-                        (format "DEBUG: the module ~a hasn't been linked in!!!"
-                                (ModuleLocator-name a-module-name))))
-      (make-Goto (make-Label (LinkedLabel-label on-return)))
+      ;(make-DebugPrint (make-Const 
+      ;                    (format "DEBUG: the module ~a hasn't been linked in!!!"
+      ;                            (ModuleLocator-name a-module-name))))
+      ;(make-Goto (make-Label (LinkedLabel-label on-return)))
       linked
       (make-TestAndJump (make-TestTrue 
                          (make-ModulePredicate a-module-name 'invoked?))
@@ -391,15 +436,22 @@
                                  (make-AssignPrimOp target
                                                     (make-PrimitivesReference
                                                      (kernel-module-variable->primitive-name
-                                                      prefix-element)
-                                                     ))]
+                                                      prefix-element)))]
                                 [else
                                  (make-AssignImmediate
                                   target
                                   (make-EnvPrefixReference (ToplevelRef-depth exp)
                                                            (ToplevelRef-pos exp)
                                                            #t))])]
-                         [else
+                         [(GlobalBucket? prefix-element)
+                          (append-instruction-sequences
+                           (if (ToplevelRef-check-defined? exp)
+                               (make-Perform (make-CheckGlobalBound! (GlobalBucket-name prefix-element)))
+                               empty-instruction-sequence)
+                           (make-AssignPrimOp
+                            target
+                            (make-GlobalsReference (GlobalBucket-name prefix-element))))]
+                         [(or (eq? prefix-element #f) (symbol? prefix-element))
                           (append-instruction-sequences
                            (if (ToplevelRef-check-defined? exp)
                                (make-Perform (make-CheckToplevelBound!
@@ -427,22 +479,31 @@
 (define (compile-toplevel-set exp cenv target linkage)
   (define prefix (ensure-prefix (list-ref cenv (ToplevelSet-depth exp))))
   (define prefix-element (list-ref (Prefix-names prefix) (ToplevelSet-pos exp)))
+
+  (define top-target
+    (cond
+      [(ModuleVariable? prefix-element)
+       (make-EnvPrefixReference (ToplevelSet-depth exp)
+                                (ToplevelSet-pos exp)
+                                #t)]
+      [(GlobalBucket? prefix-element)
+       (make-GlobalsReference (GlobalBucket-name prefix-element))]
+      
+      [(or (eq? prefix-element #f)
+           (symbol? prefix-element))
+       (make-EnvPrefixReference (ToplevelSet-depth exp)
+                                (ToplevelSet-pos exp)
+                                #f)]))
   (let ([get-value-code
          (cond
-           [(ModuleVariable? prefix-element)
-            (compile (ToplevelSet-value exp)
-                     cenv
-                     (make-EnvPrefixReference (ToplevelSet-depth exp)
-                                              (ToplevelSet-pos exp)
-                                              #t)
-                     next-linkage/expects-single)]
+           ;; Special case: when set!-ing globals, see that they're defined first.
+           [(GlobalBucket? prefix-element)
+            (append-instruction-sequences
+             (compile (ToplevelSet-value exp) cenv 'val next-linkage/expects-single)
+             (make-Perform (make-CheckGlobalBound! (GlobalBucket-name prefix-element)))
+             (make-AssignImmediate top-target (make-Reg 'val)))]
            [else
-            (compile (ToplevelSet-value exp)
-                     cenv
-                     (make-EnvPrefixReference (ToplevelSet-depth exp)
-                                              (ToplevelSet-pos exp)
-                                              #f)
-                     next-linkage/expects-single)])]
+            (compile (ToplevelSet-value exp) cenv top-target next-linkage/expects-single)])]
         [singular-context-check (emit-singular-context linkage)])
     (end-with-linkage
      linkage
@@ -795,6 +856,7 @@
       
       (append-instruction-sequences      
        (Lam-entry-label exp)
+       (make-MarkEntryPoint (Lam-entry-label exp))
        (Comment (format "lambda body for ~a" (Lam-name exp)))
        maybe-unsplice-rest-argument
        maybe-install-closure-values
@@ -1273,8 +1335,13 @@
            [(ToplevelRef? e)
             (cond
               [(ModuleVariable? k)
-               (make-EnvPrefixReference (ToplevelRef-depth e) (ToplevelRef-pos e) #t)]
-              
+               (cond [(kernel-module-name? (ModuleVariable-module-name k))
+                      (make-PrimitiveKernelValue
+                       (kernel-module-variable->primitive-name k))]
+                     [else
+                      (make-EnvPrefixReference (ToplevelRef-depth e)
+                                               (ToplevelRef-pos e)
+                                               #t)])]
               [else
                (make-EnvPrefixReference (ToplevelRef-depth e) (ToplevelRef-pos e) #f)])]
            [(PrimitiveKernelValue? e)
@@ -1857,19 +1924,25 @@
             (end-with-linkage
              linkage
              cenv
-             (compile (InstallValue-body exp)
+             (append-instruction-sequences
+              (compile (InstallValue-body exp)
                       cenv
                       target
-                      (make-NextLinkage 0)))]
+                      (make-NextLinkage 0))
+              (make-AssignImmediate target (make-Const (void)))
+              (emit-singular-context linkage)))]
            [(= count 1)
             (append-instruction-sequences
              (end-with-linkage
               linkage
               cenv
-              (compile (InstallValue-body exp)
-                       cenv
-                       (make-EnvLexicalReference (InstallValue-depth exp) (InstallValue-box? exp))
-                       (make-NextLinkage 1))))]
+              (append-instruction-sequences
+               (compile (InstallValue-body exp)
+                        cenv
+                        (make-EnvLexicalReference (InstallValue-depth exp) (InstallValue-box? exp))
+                        (make-NextLinkage 1))
+               (make-AssignImmediate target (make-Const (void)))
+               (emit-singular-context linkage))))]
            [else
             (end-with-linkage
              linkage
@@ -1887,12 +1960,14 @@
                           (build-list count (lambda: ([i : Natural])
                                               (make-EnvLexicalReference (+ i 
                                                                            (InstallValue-depth exp)
-                                                                           (sub1 count))
+                                                                           (ensure-natural (sub1 count)))
                                                                         (InstallValue-box? exp))))
                           (cons (make-Reg 'val) 
                                 (build-list (sub1 count) (lambda: ([i : Natural])
                                                            (make-EnvLexicalReference i #f))))))
-              (make-PopEnvironment (make-Const (sub1 count)) (make-Const 0))))]))))
+              (make-PopEnvironment (make-Const (sub1 count)) (make-Const 0))
+              (make-AssignImmediate target (make-Const (void)))
+              (emit-singular-context linkage)))]))))
 
 
 
@@ -2015,31 +2090,44 @@
       ;; values are on the stack.
       (if (> n 0)
           (apply append-instruction-sequences
-                 (map (lambda: ([id : ToplevelRef]
-                                [from : OpArg])
-                        (make-AssignImmediate
-                         ;; Slightly subtle: the toplevelrefs were with respect to the
-                         ;; stack at the beginning of def-values, but at the moment,
-                         ;; there may be additional values that are currently there.
-                         (make-EnvPrefixReference (+ (ensure-natural (sub1 n))
-                                                     (ToplevelRef-depth id))
-                                                  (ToplevelRef-pos id)
-                                                  #f)
-                         from))
-                      ids
-                      (if (> n 0) 
-                          (cons (make-Reg 'val)
-                                (build-list (sub1 n)
-                                            (lambda: ([i : Natural])
-                                              (make-EnvLexicalReference i #f))))
-                          empty)))
+                   (map (lambda: ([id : ToplevelRef]
+                                  [from : OpArg])
+                          (define prefix 
+                            (ensure-prefix (list-ref cenv (ToplevelRef-depth id))))
+                          (define prefix-element (list-ref (Prefix-names prefix) (ToplevelRef-pos id)))  
+                          (cond
+                            [(GlobalBucket? prefix-element)
+                             (make-AssignImmediate (make-GlobalsReference (GlobalBucket-name prefix-element))
+                                                   from)]
+                            [else
+                             ;; Slightly subtle: the toplevelrefs were with respect to the
+                             ;; stack at the beginning of def-values, but at the moment,
+                             ;; there may be additional values that are currently there.
+                             (make-AssignImmediate
+                              (make-EnvPrefixReference (+ (ensure-natural (sub1 n))
+                                                          (ToplevelRef-depth id))
+                                                       (ToplevelRef-pos id)
+                                                       #f)
+                              from)]))
+                        ids
+                        (if (> n 0) 
+                            (cons (make-Reg 'val)
+                                  (build-list (sub1 n)
+                                              (lambda: ([i : Natural])
+                                                (make-EnvLexicalReference i #f))))
+                            empty)))
           empty-instruction-sequence)
       
-      ;; Finally, make sure any multiple values are off the stack.
+      ;; Make sure any multiple values are off the stack.
       (if (> (length ids) 1)
           (make-PopEnvironment (make-Const (sub1 (length ids)))
                                (make-Const 0))
-          empty-instruction-sequence)))))
+          empty-instruction-sequence)
+      
+      ;; Finally, set the target to void.
+      
+      (make-AssignImmediate target (make-Const (void)))
+      (emit-singular-context linkage)))))
 
 
 
@@ -2110,6 +2198,8 @@
                               (EnvPrefixReference-modvar? target))]
     [(PrimitivesReference? target)
      target]
+    [(GlobalsReference? target)
+     target]
     [(ControlFrameTemporary? target)
      target]
     [(ModulePrefixTarget? target)
@@ -2286,4 +2376,4 @@
       (ensure-toplevelref
        (adjust-expression-depth (VariableReference-toplevel exp) n skip)))]
     [(Require? exp)
-     exp]))
+     exp]))

whalesong/compiler/expression-structs.rkt

@@ -0,0 +1,186 @@
+#lang typed/racket/base
+(require "lexical-structs.rkt")
+
+
+(provide (all-defined-out))
+
+
+;; Expressions
+(define-type Expression (U
+                         Top
+                         Constant 
+                         ToplevelRef
+                         LocalRef
+                         ToplevelSet
+                         Branch 
+                         Lam 
+                         CaseLam
+                         EmptyClosureReference
+                         Seq 
+                         Splice 
+                         Begin0
+                         App
+                         Let1 
+                         LetVoid 
+                         LetRec
+                         InstallValue
+                         BoxEnv
+                         WithContMark
+                         ApplyValues
+                         DefValues
+                         PrimitiveKernelValue
+                         Module
+                         VariableReference
+                         Require))
+
+
+(define-struct: Module ([name : Symbol]
+                        [path : ModuleLocator]
+                        [prefix : Prefix]
+                        [requires : (Listof ModuleLocator)]
+                        [provides : (Listof ModuleProvide)]
+                        [code : Expression])
+  #:transparent)
+
+
+(define-struct: ModuleProvide ([internal-name : Symbol]
+                               [external-name : Symbol]
+                               [source : ModuleLocator])
+  #:transparent)
+
+
+
+(define-struct: Top ([prefix : Prefix]
+                     [code : Expression]) #:transparent)
+
+(define-struct: Constant ([v : Any]) #:transparent)
+
+(define-struct: ToplevelRef ([depth : Natural]
+                             [pos : Natural]
+                             [constant? : Boolean]
+                             [check-defined? : Boolean]) #:transparent)
+
+(define-struct: LocalRef ([depth : Natural]
+                          [unbox? : Boolean]) #:transparent)
+
+(define-struct: ToplevelSet ([depth : Natural]
+                             [pos : Natural]
+                             [value : Expression]) #:transparent)
+
+(define-struct: Branch ([predicate : Expression]
+                        [consequent : Expression]
+                        [alternative : Expression]) #:transparent)
+
+(define-struct: CaseLam ([name : (U Symbol LamPositionalName)]
+                         [clauses : (Listof (U Lam EmptyClosureReference))]
+                         [entry-label : Symbol]) #:transparent)
+
+(define-struct: Lam ([name : (U Symbol LamPositionalName)]
+                     [num-parameters : Natural]
+                     [rest? : Boolean]
+                     [body : Expression]
+                     [closure-map : (Listof Natural)]
+                     [entry-label : Symbol]) #:transparent)
+
+;; An EmptyClosureReference has enough information to create the lambda value,
+;; assuming that the lambda's body has already been compiled.  The entry-label needs
+;; to have been shared with an existing Lam, and the closure must be empty.
+(define-struct: EmptyClosureReference ([name : (U Symbol LamPositionalName)]
+                                       [num-parameters : Natural]
+                                       [rest? : Boolean]
+                                       [entry-label : Symbol]) #:transparent)
+
+
+
+;; We may have more information about the lambda's name.  This will show it.
+(define-struct: LamPositionalName ([name : Symbol] 
+                                   [path : String]    ;; the source of the name
+                                   [line : Natural] 
+                                   [column : Natural] 
+                                   [offset : Natural] 
+                                   [span : Natural]) #:transparent)
+
+
+
+(define-struct: Seq ([actions : (Listof Expression)]) #:transparent)
+(define-struct: Splice ([actions : (Listof Expression)]) #:transparent)
+(define-struct: Begin0 ([actions : (Listof Expression)]) #:transparent)
+(define-struct: App ([operator : Expression]
+                     [operands : (Listof Expression)]) #:transparent)
+
+(define-struct: Let1 ([rhs : Expression]
+                      [body : Expression])  #:transparent)
+
+(define-struct: LetVoid ([count : Natural]
+                         [body : Expression]
+                         [boxes? : Boolean]) #:transparent)
+
+
+;; During evaluation, the closures corresponding to procs are expected
+;; to be laid out so that stack position 0 corresponds to procs[0],
+;; stack position 1 to procs[1], and so on.
+(define-struct: LetRec ([procs : (Listof Lam)]
+                        [body : Expression]) #:transparent)
+
+(define-struct: InstallValue ([count : Natural] ;; how many values to install
+                              [depth : Natural] ;; how many slots to skip
+                              [body : Expression]
+                              [box? : Boolean])  #:transparent)
+
+
+(define-struct: BoxEnv ([depth : Natural]
+                        [body : Expression]) #:transparent)
+
+
+
+(define-struct: WithContMark ([key : Expression]
+                              [value : Expression]
+                              [body : Expression]) #:transparent)
+
+
+(define-struct: ApplyValues ([proc : Expression]
+                             [args-expr : Expression]) #:transparent)
+
+
+;; Multiple value definition
+(define-struct: DefValues ([ids : (Listof ToplevelRef)]
+                           [rhs : Expression]) #:transparent)
+
+
+
+(define-struct: PrimitiveKernelValue ([id : Symbol]) #:transparent)
+
+
+(define-struct: VariableReference ([toplevel : ToplevelRef]) #:transparent)
+
+
+(define-struct: Require ([path : ModuleLocator]) #:transparent)
+
+
+
+
+(: current-short-labels? (Parameterof Boolean))
+(define current-short-labels? (make-parameter #t))
+
+
+(define make-label-counter 0)
+
+(: reset-make-label-counter (-> Void))
+(define (reset-make-label-counter)
+  (set! make-label-counter 0))
+
+(: make-label (Symbol -> Symbol))
+#;(define make-label
+  (let ([n 0])
+    (lambda (l)
+      (set! n (add1 n))
+      (if (current-short-labels?)
+          (string->symbol (format "_~a" n))
+          (string->symbol (format "~a~a" l n))))))
+
+(define (make-label l)
+  (set! make-label-counter (+ make-label-counter 1))
+  (define n make-label-counter)
+  (if (current-short-labels?)
+      (string->symbol (format "_~a" n))
+      (string->symbol (format "~a~a" l n))))

whalesong/compiler/il-structs.rkt

@@ -45,7 +45,8 @@
 (define-type Target (U AtomicRegisterSymbol 
                        EnvLexicalReference
                        EnvPrefixReference
-                       PrimitivesReference                   
+                       PrimitivesReference
+                       GlobalsReference
                        ControlFrameTemporary
                        ModulePrefixTarget
                        ))
@@ -152,6 +153,10 @@
 (define-struct: PrimitivesReference ([name : Symbol])
   #:transparent)
 
+(define-struct: GlobalsReference ([name : Symbol])
+  #:transparent)
+
+
 ;; Produces the entry point of the module.
 (define-struct: ModuleEntry ([name : ModuleLocator])
   #:transparent)
@@ -167,6 +172,7 @@
 (define-type StraightLineStatement (U
                                     DebugPrint
                                     Comment
+                                    MarkEntryPoint
                                     
                                     AssignImmediate
                                     AssignPrimOp
@@ -259,12 +265,12 @@
 (define-struct: PushControlFrame/Call ([label : LinkedLabel]) 
   #:transparent)
 
-(define-struct: PushControlFrame/Prompt ([tag : (U OpArg DefaultContinuationPromptTag)]
-                                         [label : LinkedLabel]
-                                         ;; TODO: add handler and arguments
-                                         )
+(define-struct: PushControlFrame/Prompt
+  ([tag : (U OpArg DefaultContinuationPromptTag)]
+   [label : LinkedLabel])
   #:transparent)
 
+
 (define-struct: DefaultContinuationPromptTag ()
   #:transparent)
 (define default-continuation-prompt-tag 
@@ -293,6 +299,11 @@
   #:transparent)
 
 
+;; Marks the head of every lambda.
+(define-struct: MarkEntryPoint ([label : Symbol])
+  #:transparent)
+
+
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Primitive Operators
@@ -307,6 +318,7 @@
 
                                   ModuleVariable
                                   PrimitivesReference
+                                  GlobalsReference
                                   
                                   MakeBoxedEnvironmentValue
 
@@ -392,6 +404,12 @@
                                      [pos : Natural])
   #:transparent)
 
+;; Check that the global can be defined.
+;; If not, raise an error and stop evaluation.
+(define-struct: CheckGlobalBound! ([name : Symbol])
+  #:transparent)
+
+
 ;; Check the closure procedure value in 'proc and make sure it's a closure
 ;; that can accept the right arguments (stored as a number in the argcount register.).
 (define-struct: CheckClosureAndArity! ()
@@ -473,6 +491,12 @@
 (define-struct: InstallContinuationMarkEntry! () #:transparent)
 
 
+;; Use the dynamic module loader to link the module into the runtime.
+;; After successful linkage, jump into label.
+(define-struct: LinkModule! ([path : ModuleLocator]
+                             [label : Symbol]))
+
+
 ;; Installs a module record into the machine
 (define-struct: InstallModuleEntry! ([name : Symbol]
                                      [path : ModuleLocator]
@@ -492,13 +516,15 @@
 
 ;; Given the module locator, do any finalizing operations, like
 ;; setting up the module namespace.
-(define-struct: FinalizeModuleInvokation! ([path : ModuleLocator])
+(define-struct: FinalizeModuleInvokation! ([path : ModuleLocator]
+                                           [provides : (Listof ModuleProvide)])
   #:transparent)
 
 
 
 (define-type PrimitiveCommand (U                                
                                CheckToplevelBound!
+                               CheckGlobalBound!
                                CheckClosureAndArity!
                                CheckPrimitiveArity!
 
@@ -520,6 +546,7 @@
                                RestoreEnvironment!
                                RestoreControl!
                                
+                               LinkModule!
                                InstallModuleEntry!
                                MarkModuleInvoked!
                                AliasModuleAsMain!
@@ -593,4 +620,4 @@
 
 
 
-(define-predicate OpArg? OpArg)
+(define-predicate OpArg? OpArg)

whalesong/compiler/kernel-primitives.rkt

@@ -19,7 +19,12 @@
     (or (and (eq? (ModuleLocator-name locator) '#%kernel)
              (eq? (ModuleLocator-real-path locator) '#%kernel))
         (eq? (ModuleLocator-name locator)
-             'whalesong/lang/kernel.rkt)))
+             'whalesong/lang/kernel.rkt)
+        
+        ;; HACK HACK HACK
+        ;; This is for srcloc:
+        (eq? (ModuleLocator-name locator)
+             'collects/racket/private/kernstruct.rkt)))
 
 
   (: paramz-locator? (ModuleLocator -> Boolean))
@@ -172,8 +177,22 @@
 
 				    'error
                                     'raise-type-error
+                                    'raise-mismatch-error
                                     'struct:exn:fail
                                     'prop:exn:srclocs
+                                    'make-exn
+                                    'make-exn:fail
+                                    'make-exn:fail:contract
+                                    'make-exn:fail:contract:arity
+                                    'make-exn:fail:contract:variable
+                                    'make-exn:fail:contract:divide-by-zero
+
+                                    'exn:fail?
+                                    'exn:fail:contract?
+                                    'exn:fail:contract:arity?
+                                    
+                                    'exn-message
+                                    'exn-continuation-marks
 
                                     'hash?
                                     'hash-equal?
@@ -204,6 +223,10 @@
 
                                     'unsafe-car
                                     'unsafe-cdr
+
+                                    'continuation-prompt-available?
+                                    'abort-current-continuation
+                                    'call-with-continuation-prompt
                                     ))
 (define-predicate KernelPrimitiveName? KernelPrimitiveName)
 
@@ -349,4 +372,4 @@
      (list 'vector 'number)]
 
     [(eq? prim 'vector-set!)
-     (list 'vector 'number 'any)]))
+     (list 'vector 'number 'any)]))

whalesong/compiler/lexical-env.rkt

@@ -122,8 +122,8 @@
 ;; Given a list of lexical addresses, computes a set of unique references.
 ;; Multiple lexical addresses to a single prefix should be treated identically.
 (define (collect-lexical-references addresses)
-  (let: ([prefix-references : (Setof EnvWholePrefixReference) (new-set)]
-         [lexical-references : (Setof EnvLexicalReference) (new-set)])
+  (let: ([prefix-references : (Setof EnvWholePrefixReference) ((inst new-set EnvWholePrefixReference))]
+         [lexical-references : (Setof EnvLexicalReference) ((inst new-set EnvLexicalReference))])
         (let: loop : (Listof (U EnvLexicalReference EnvWholePrefixReference)) 
               ([addresses : (Listof LexicalAddress) addresses])
               (cond 

whalesong/compiler/optimize-il.rkt

@@ -147,7 +147,9 @@
        
        [(PrimitivesReference? op)
         op]
-       ))
+       
+       [(GlobalsReference? op)
+        op]))
 
 
     (: rewrite-primcmd (PrimitiveCommand -> PrimitiveCommand))
@@ -188,14 +190,17 @@
                 (loop (rest stmts)))]
          
          [(DebugPrint? a-stmt)
-          ;(cons a-stmt (loop (rest stmts)))
-          (loop (rest stmts))
+          (cons a-stmt (loop (rest stmts)))
+          #;(loop (rest stmts))
           ]
 
          [(Comment? a-stmt)
           ;(loop (rest stmts))
           (cons a-stmt (loop (rest stmts)))
           ]
+
+         [(MarkEntryPoint? a-stmt)
+          (cons a-stmt (loop (rest stmts)))]
          
          [(AssignImmediate? a-stmt)
           (cons (make-AssignImmediate (rewrite-target (AssignImmediate-target a-stmt))
@@ -344,8 +349,11 @@
      #f]
     
     [(DebugPrint? stmt)
-     ;#f
-     #t]
+     #f
+     #;#t]
+    
+    [(MarkEntryPoint? stmt)
+     #f]
     
     [(AssignImmediate? stmt)
      (equal? (AssignImmediate-target stmt)
@@ -442,4 +450,4 @@
 (define (ensure-natural x)
   (if (natural? x)
       x
-      (error 'ensure-natural)))
+      (error 'ensure-natural)))

whalesong/cs019/lists.rkt

@@ -1,4 +1,4 @@
-#lang planet dyoo/whalesong/base
+#lang whalesong/base
 #|
 Why on earth are these here?
 Because first, etc. don't work on cyclic lists:

whalesong/cs019/teach.rkt

@@ -3,11 +3,29 @@
 (require (for-template "../lang/base.rkt")
          (for-template "teach-runtime.rkt")
          "teachhelp.rkt"
-         stepper/private/shared
          racket/list
          syntax/context
          syntax/kerncase
-         syntax/stx)
+         syntax/stx
+         "../version-case/version-case.rkt"
+         (for-syntax racket/base))
+
+  ;; We're treading in private implementation; we deserve this pain.
+  (version-case
+    [(and (version<= "5.2.0.900" (version))
+          (version< (version) "5.2.900"))
+     (begin
+       (require stepper/private/shared)
+       (require (for-syntax stepper/private/shared)))]
+    [(version<= "5.2.900" (version))
+     (begin
+       (require stepper/private/syntax-property)
+       (require (for-syntax stepper/private/syntax-property)))]
+    [else
+     (error 'teachhelp.rkt "Unable to cooperate with Racket ~a" (version))])
+
+
+
 
 
 (provide advanced-define/proc

whalesong/cs019/teachhelp.rkt

@@ -1,10 +1,23 @@
 (module teachhelp mzscheme
   (require "firstorder.rkt"
            "rewrite-error-message.rkt"
-           stepper/private/shared)
+           "../version-case/version-case.rkt")
 
-  (require-for-syntax stepper/private/shared)
+  ;; We're treading in private implementation; we deserve this pain.
+  (version-case
+    [(and (version<= "5.2.0.900" (version))
+          (version< (version) "5.2.900"))
+     (begin
+       (require stepper/private/shared)
+       (require-for-syntax stepper/private/shared))]
+    [(version<= "5.2.900" (version))
+     (begin
+       (require stepper/private/syntax-property)
+       (require-for-syntax stepper/private/syntax-property))]
+    [else
+     (error 'teachhelp.rkt "Unable to cooperate with Racket ~a" (version))])
 
+  
   (provide make-undefined-check
            make-first-order-function)
 

whalesong/examples/alert.rkt

@@ -0,0 +1,3 @@
+#lang whalesong
+(require whalesong/js)
+(alert "hello world")

whalesong/examples/cs019/hello.rkt

@@ -0,0 +1,2 @@
+#lang whalesong/cs019
+"hello world"

whalesong/examples/cs019/tick-tock/tick-tock.rkt

@@ -1,4 +1,4 @@
-#lang planet dyoo/whalesong/cs019
+#lang whalesong/cs019
 
 (define-resource index.html)
 

whalesong/examples/cs019/where-am-i/where-am-i.rkt

@@ -1,4 +1,4 @@
-#lang planet dyoo/whalesong/cs019
+#lang whalesong/cs019
 
 (define-resource index.html)
 
@@ -53,4 +53,4 @@
           (initial-view index.html)
           (to-draw draw)
           (on-location-change location-change)
-          (on-mock-location-change mock-location-change))
+          (on-mock-location-change mock-location-change))

whalesong/examples/dom-play.rkt

@@ -1,6 +1,6 @@
-#lang planet dyoo/whalesong
+#lang whalesong
 
-(require (planet dyoo/whalesong/js))
+(require whalesong/js)
 
 
 ;; insert-break: -> void
@@ -34,4 +34,4 @@
 (write-message "viewport-width: ") (write-message (viewport-width))
 (insert-break)
 (write-message "viewport-height: ") (write-message (viewport-height))
-(insert-break)
+(insert-break)

whalesong/examples/drag-and-drop/drag-and-drop-1.rkt

@@ -0,0 +1,59 @@
+#lang whalesong
+
+(require whalesong/web-world
+         whalesong/resource)
+
+(define-resource view.html)
+(define-resource style.css)
+
+;; A small drag-and-drop example using the web-world library.
+;;
+;; The world consists of a set of shapes.
+;;
+;; A shape has an id and a position.
+(define-struct shape (id x y))
+
+
+
+;; add-fresh-shape: world view -> world
+;; Given a world, creates a new world within the boundaries of the playground.
+(define (add-fresh-shape w v)
+  (define-values (max-width max-height) (width-and-height v "playground"))
+  (define new-world (cons (make-shape (fresh-id)
+                                      (random max-width)
+                                      (random max-height))
+                          w))
+  new-world)
+
+
+
+(define (width-and-height v element-id)
+  (define focused (view-focus v element-id))
+  (values (view-width focused)
+          (view-height focused)))
+
+
+(define (draw w v)
+  (foldl (lambda (a-shape v)
+           (cond
+            [(view-focus? v (shape-id a-shape))
+             v]
+            [else
+             (view-append-child v
+                                (xexp->dom `(span (@ (class "shape")
+                                                     (id ,(shape-id a-shape))
+                                                     (style ,(format "position: absolute; left: ~apx; top: ~apx"
+                                                                     (shape-x a-shape)
+                                                                     (shape-y a-shape))))
+                                                  "shape")))]))
+         (view-focus v "playground")
+         w))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define the-view (view-bind-many view.html
+                                 ["add" "click" add-fresh-shape]))
+
+(big-bang (list)
+          (initial-view the-view)
+          (to-draw draw))

whalesong/examples/drag-and-drop/drag-and-drop-2.rkt

@@ -0,0 +1,128 @@
+#lang whalesong
+
+(require whalesong/web-world
+         whalesong/resource)
+
+(define-resource view.html)
+(define-resource style.css)
+
+;; A small drag-and-drop example using the web-world library.
+;;
+;; The world consists of a set of shapes.  It also has a reference
+;; to the currently dragged shape, if one is being dragged.
+(define-struct world (shapes  ;; (listof shape)
+                      dragged ;; (U shape #f)
+                      ))
+
+;; A shape has an id and a position.
+(define-struct shape (id x y))
+
+
+
+;; add-fresh-shape: world view -> world
+;; Given a world, creates a new world within the boundaries of the playground.
+(define (add-fresh-shape w v)
+  (define-values (max-width max-height) (width-and-height v "playground"))
+  (define new-world (make-world (cons (make-shape (fresh-id)
+                                                  (random max-width)
+                                                  (random max-height))
+                                      (world-shapes w))
+                                (world-dragged w)))
+  new-world)
+
+
+;; Helper: produces the width and height of the element with the given id.
+(define (width-and-height v element-id)
+  (define focused (view-focus v element-id))
+  (values (view-width focused)
+          (view-height focused)))
+
+
+(define (draw w v)
+  (foldl (lambda (a-shape v)
+           (cond
+            [(view-focus? v (shape-id a-shape))
+             (define focused (view-focus v (shape-id a-shape)))
+             (update-view-css (update-view-css focused "left" (format "~apx" (shape-x a-shape)))
+                              "top"
+                              (format "~apx" (shape-y a-shape)))]
+            [else
+             (view-bind-many
+              (view-append-child v
+                                 (xexp->dom `(span (@ (class "shape")
+                                                      (id ,(shape-id a-shape))
+                                                      (style ,(format "position: absolute; left: ~apx; top: ~apx"
+                                                                      (shape-x a-shape)
+                                                                      (shape-y a-shape))))
+                                                   "shape")))
+              [(shape-id a-shape) "mousedown" mousedown])]))
+         (view-focus v "playground")
+         (if (shape? (world-dragged w))
+             (cons (world-dragged w) (world-shapes w))
+             (world-shapes w))))
+
+
+;; find-shape: (listof shape) string -> (U #f shape)
+(define (find-shape los id)
+  (cond
+   [(empty? los)
+    #f]
+   [(string=? (shape-id (first los)) id)
+    (first los)]
+   [else
+    (find-shape (rest los) id)]))
+
+
+
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; Mouse handling.
+
+;; When the mouse is down, select the shape being clicked.
+;; The shape being mousedowned is the one with focus.
+(define (mousedown w v evt)
+  (define selected-shape (find-shape (world-shapes w) (view-id v)))
+  (make-world (remove selected-shape (world-shapes w))
+              selected-shape))
+
+
+
+(define (mouseup w v evt)
+  (cond [(shape? (world-dragged w))
+         (make-world (cons (world-dragged w)
+                           (world-shapes w))
+                     #f)]
+        [else
+         w]))
+
+(define (mousemove w v evt)
+  (cond
+   [(shape? (world-dragged w))
+    (define-values (left top) (normalize-mouse-event-coordinates v evt))
+    (make-world (world-shapes w)
+                (make-shape (shape-id (world-dragged w))
+                            left
+                            top))]
+   [else
+    w]))
+
+(define (normalize-mouse-event-coordinates v evt)
+  (values (- (event-ref evt "pageX")
+             (string->number (trim-px (view-css v "left"))))
+          (- (event-ref evt "pageY")
+             (string->number (trim-px (view-css v "top"))))))
+
+(define (trim-px s)
+  (substring s 0 (- (string-length s) 2)))
+
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define the-view (view-bind-many view.html
+                                 ["add" "click" add-fresh-shape]
+                                 ["playground" "mousemove" mousemove]
+                                 ["playground" "mouseup" mouseup]))
+
+(big-bang (make-world (list) #f)
+          (initial-view the-view)
+          (to-draw draw))

whalesong/examples/drag-and-drop/style.css

@@ -0,0 +1,16 @@
+
+#playground {
+    background-color: lightgray;
+    border: 1px solid black;
+    width: 500px;
+    height: 500px;
+    display: block;
+    position: relative;
+}
+
+
+.shape {
+    position: relative;
+    background-color: orange;
+    border: 1px solid black;
+}

whalesong/examples/drag-and-drop/view.html

@@ -0,0 +1,16 @@
+<!DOCTYPE html>
+<html>
+<head>
+<link rel="stylesheet" href="style.css" type="text/css"/>
+</head>
+<body>
+<h1>Drag and drop example</h1>
+
+<div id="playground">
+This is the playground.
+</div>
+
+<input type="button" id="add" value="Add"/>
+
+</body>
+</html>

whalesong/examples/eli-number-puzzle.rkt

@@ -1,10 +1,10 @@
-#lang planet dyoo/whalesong
+#lang whalesong
 
 ;; Eli's puzzle
 ;;
 ;;    http://lists.racket-lang.org/users/archive/2011-July/046849.html
 
-(require (planet dyoo/whalesong/world))
+(require whalesong/world)
           
 (define-struct world (seq output))
 
@@ -42,4 +42,4 @@
 
 (big-bang (make-world '(1) '())
           (on-tick tick 1)
-          (to-draw draw))
+          (to-draw draw))

whalesong/examples/expanding-circle.rkt

@@ -1,7 +1,7 @@
-#lang planet dyoo/whalesong
+#lang whalesong
 
-(require (planet dyoo/whalesong/world)
-         (planet dyoo/whalesong/image))
+(require whalesong/world
+         whalesong/image)
 
 
 (define handler (on-tick add1 1))
@@ -21,4 +21,4 @@ handler
           )
 
 
-"all done"
+"all done"

whalesong/examples/fact.rkt

@@ -1,4 +1,4 @@
-#lang planet dyoo/whalesong
+#lang whalesong
 (provide fact)
 (define (fact x)
   (cond

whalesong/examples/google-maps/maps.rkt

@@ -1,4 +1,4 @@
-#lang planet dyoo/whalesong
+#lang whalesong
 
 ;; A simple binding to Google Maps.
 ;;
@@ -7,8 +7,8 @@
 ;;     https://developers.google.com/maps/documentation/javascript/tutorial
 ;; 
 
-(require (planet dyoo/whalesong/js)
-         (planet dyoo/whalesong/js/world))
+(require whalesong/js
+         whalesong/js/world)
 
 (provide initialize-google-maps-api!
          make-dom-and-map

whalesong/examples/google-maps/test-maps.rkt

@@ -1,5 +1,5 @@
-#lang planet dyoo/whalesong
-(require (planet dyoo/whalesong/web-world)
+#lang whalesong
+(require whalesong/web-world
          "maps.rkt")
 
 ;; Note: this is dyoo's API key.  Please don't abuse this.  :)
@@ -37,4 +37,4 @@
                      (update-view-text (view-focus v "where")
                                        (format "~a" w))))
           (on-map-click (lambda (w v lat lng)
-                          (list lat lng))))
+                          (list lat lng))))

whalesong/examples/hello-bf.rkt

@@ -1,4 +1,4 @@
-#lang planet dyoo/whalesong/bf
+#lang whalesong/bf
 
 +++++ +++++             initialize counter (cell #0) to 10
 [                       use loop to set the next four cells to 70/100/30/10

whalesong/examples/hello-css.rkt

@@ -1,6 +1,6 @@
-#lang planet dyoo/whalesong/base
-(require (planet dyoo/whalesong/web-world)
-         (planet dyoo/whalesong/resource))
+#lang whalesong/base
+(require whalesong/web-world
+         whalesong/resource)
 
 (define-resource hello-css.css)
 (define-resource hello-css-main.html)
@@ -9,4 +9,4 @@
           (initial-view hello-css-main.html)
           (to-draw (lambda (w v) v)))
 
-"done"
+"done"

whalesong/examples/hello-kr.rkt

@@ -1,4 +1,4 @@
-#lang planet dyoo/whalesong/korean
+#lang whalesong/korean
 
 
 (정의 (안녕 이름)
@@ -19,4 +19,4 @@
 
 
 (정의-구조 사람 (이름 나이))
-(make-사람 "danny" 32)
+(make-사람 "danny" 32)

whalesong/examples/hello.rkt

@@ -0,0 +1,4 @@
+#lang whalesong
+
+(display "hello world")
+(newline)

whalesong/examples/image-library-example.rkt

@@ -1,6 +1,6 @@
-#lang planet dyoo/whalesong
+#lang whalesong
 
-(require (planet dyoo/whalesong/image))
+(require whalesong/image)
 
 (printf "images.rkt\n")
 

whalesong/examples/iron-puzzle/iron-puzzle.rkt

@@ -1,6 +1,6 @@
-#lang planet dyoo/whalesong/base
-(require (planet dyoo/whalesong/resource)
-         (planet dyoo/whalesong/image))
+#lang whalesong/base
+(require whalesong/resource
+         whalesong/image)
 
 ;; The Iron Image Puzzle
 ;; Part of the Nifty Assignments page by Nick Parlante.
@@ -9,7 +9,7 @@
 ;; To run this program locally on your machine under Google Chrome, you'll
 ;; probably need to use --allow-file-access-from-files to get around
 ;; the same-origin policy.  The program should run normally if served on
-;; a web server
+;; a web server.
 
 (define-resource iron-puzzle.png)
 

whalesong/examples/js-get-message/js-get-message-child.rkt

@@ -1,7 +1,7 @@
-#lang planet dyoo/whalesong
-(require (planet dyoo/whalesong/js/world)
-         (planet dyoo/whalesong/js)
-         (planet dyoo/whalesong/web-world))
+#lang whalesong
+(require whalesong/js/world
+         whalesong/js
+         whalesong/web-world)
 
 ;; Test of getting world events from arbitrary JavaScript function application.
 

whalesong/examples/list-length.rkt

@@ -1,4 +1,4 @@
-#lang planet dyoo/whalesong
+#lang whalesong
 
 (define (mylen x acc)
   (cond
@@ -10,4 +10,4 @@
 (define v (build-list 1000000 (lambda (i) i)))
 (printf "Built list\n")
 (mylen v 0)
-"done computing length"
+"done computing length"

whalesong/examples/logo.rkt

@@ -1,6 +1,6 @@
-#lang planet dyoo/whalesong
+#lang whalesong
 
-(require (planet dyoo/whalesong/image))
+(require whalesong/image)
 
 
 (define lst

whalesong/examples/mathjax.rkt

@@ -1,5 +1,5 @@
-#lang planet dyoo/whalesong
-(require (planet dyoo/whalesong/web-world))
+#lang whalesong
+(require whalesong/web-world)
 
 ;;; This demonstrates how to use MathJax to write equations.
 ;;; Use  --include-script mathjax-script.js  to include the MathJax.
@@ -19,4 +19,4 @@
 (big-bang 3 
           (initial-view (xexp->dom '(html (head) (body))))
           (on-tick tick 5)
-          (to-draw draw))
+          (to-draw draw))

whalesong/examples/mouse.rkt

@@ -1,7 +1,7 @@
-#lang planet dyoo/whalesong
+#lang whalesong
 
-(require (planet dyoo/whalesong/world)
-         (planet dyoo/whalesong/image))
+(require whalesong/world
+         whalesong/image)
 
 (define width 640)
 (define height 480)
@@ -26,4 +26,4 @@
 (printf "let's see how this works.\n\n")
 (big-bang (make-posn 0 0)
           (on-mouse mouse)
-          (to-draw draw))
+          (to-draw draw))

whalesong/examples/pacman.rkt

@@ -1,8 +1,7 @@
-#lang planet dyoo/whalesong
+#lang whalesong
 
-(require (planet dyoo/whalesong/world)
-         (planet dyoo/whalesong/image)
-         )
+(require whalesong/world
+         whalesong/image)
 
 
 ;; Constants:

whalesong/examples/rain-world-program.rkt

@@ -1,8 +1,8 @@
-#lang planet dyoo/whalesong
+#lang whalesong
 
-(require (planet dyoo/whalesong/world)
-         (planet dyoo/whalesong/image)
-         (planet dyoo/whalesong/js))
+(require whalesong/world
+         whalesong/image
+         whalesong/js)
 
 ;; Occupy the whole screen.
 (void (call-method body "css" "margin" 0))
@@ -128,4 +128,4 @@
 
 (big-bang (make-world '())
           (to-draw draw)
-          (on-tick tick))
+          (on-tick tick))

whalesong/examples/raphael-demo.rkt

@@ -1,7 +1,7 @@
-#lang planet dyoo/whalesong
-(require (planet dyoo/whalesong/resource)
-         (planet dyoo/whalesong/web-world)
-         (planet dyoo/whalesong/js))
+#lang whalesong
+(require whalesong/resource
+         whalesong/web-world
+         whalesong/js)
 
 ; This is a small demonstration of the Javascript
 ; graphics library Raphael from http://raphaeljs.com/ .

whalesong/examples/read-bytes.rkt

@@ -1,4 +1,4 @@
-#lang planet dyoo/whalesong
+#lang whalesong
 
 (let loop ([b (read-byte)])
   (cond
@@ -6,4 +6,4 @@
     (void)]
    [else
     (display (string (integer->char b)))
-    (loop (read-byte))]))
+    (loop (read-byte))]))

whalesong/examples/select.rkt

@@ -0,0 +1,27 @@
+#lang whalesong
+
+(require whalesong/web-world)
+
+(define (draw w v)
+  (define v2 (view-focus v "fill-me-in"))
+  (update-view-text v2 w))
+
+(define view (xexp->dom '(div
+                          (h1 "test")
+                          (select (@ (id "my-select"))
+                                  (option (@ (value "red")) "Red")
+                                  (option (@ (value "green")) "Green")
+                                  (option (@ (value "blue")) "Blue"))
+                          (p
+                            "I see: "
+                            (span (@ (id "fill-me-in")))))))
+
+(define (when-select-changed w v)
+  (view-form-value (view-focus v "my-select")))
+   
+(define bound-view
+  (view-bind-many view ["my-select" "change" when-select-changed]))
+
+(big-bang "nothing yet"
+          (initial-view bound-view)
+          (to-draw draw))

whalesong/examples/shuffling.rkt

@@ -1,4 +1,4 @@
-#lang planet dyoo/whalesong
+#lang whalesong
 
 
 ;; shuffle: vector -> vector

whalesong/examples/sierpinski-carpet.rkt

@@ -1,5 +1,5 @@
-#lang planet dyoo/whalesong/base
-(require (planet dyoo/whalesong/image))
+#lang whalesong/base
+(require whalesong/image)
 ;; Sierpenski carpet.
 ;; http://rosettacode.org/wiki/Sierpinski_carpet#Scheme
 
@@ -36,4 +36,4 @@
     (apply above (outer 0)))))
 
 
-(carpet 4)
+(carpet 4)

whalesong/examples/snip.rkt

@@ -0,0 +1,604 @@
+#reader(lib"read.ss""wxme")WXME0108 ## 
+#|
+   This file uses the GRacket editor format.
+   Open this file in DrRacket version 5.3.3.5 or later to read it.
+
+   Most likely, it was created by saving a program in DrRacket,
+   and it probably contains a program with non-text elements
+   (such as images or comment boxes).
+
+            http://racket-lang.org/
+|#
+ 30 7 #"wxtext\0"
+3 1 6 #"wxtab\0"
+1 1 8 #"wximage\0"
+2 0 8 #"wxmedia\0"
+4 1 34 #"(lib \"syntax-browser.ss\" \"mrlib\")\0"
+1 0 16 #"drscheme:number\0"
+3 0 44 #"(lib \"number-snip.ss\" \"drscheme\" \"private\")\0"
+1 0 36 #"(lib \"comment-snip.ss\" \"framework\")\0"
+1 0 93
+(
+ #"((lib \"collapsed-snipclass.ss\" \"framework\") (lib \"collapsed-sni"
+ #"pclass-wxme.ss\" \"framework\"))\0"
+) 0 0 43 #"(lib \"collapsed-snipclass.ss\" \"framework\")\0"
+0 0 19 #"drscheme:sexp-snip\0"
+0 0 36 #"(lib \"cache-image-snip.ss\" \"mrlib\")\0"
+1 0 68
+(
+ #"((lib \"image-core.ss\" \"mrlib\") (lib \"image-core-wxme.rkt\" \"mr"
+ #"lib\"))\0"
+) 1 0 29 #"drscheme:bindings-snipclass%\0"
+1 0 88
+(
+ #"((lib \"pict-snip.rkt\" \"drracket\" \"private\") (lib \"pict-snip.r"
+ #"kt\" \"drracket\" \"private\"))\0"
+) 0 0 33 #"(lib \"bullet-snip.ss\" \"browser\")\0"
+0 0 25 #"(lib \"matrix.ss\" \"htdp\")\0"
+1 0 22 #"drscheme:lambda-snip%\0"
+1 0 26 #"drracket:spacer-snipclass\0"
+0 0 57
+#"(lib \"hrule-snip.rkt\" \"macro-debugger\" \"syntax-browser\")\0"
+1 0 26 #"drscheme:pict-value-snip%\0"
+0 0 45 #"(lib \"image-snipr.ss\" \"slideshow\" \"private\")\0"
+1 0 38 #"(lib \"pict-snipclass.ss\" \"slideshow\")\0"
+2 0 55 #"(lib \"vertical-separator-snip.ss\" \"stepper\" \"private\")\0"
+1 0 18 #"drscheme:xml-snip\0"
+1 0 31 #"(lib \"xml-snipclass.ss\" \"xml\")\0"
+1 0 21 #"drscheme:scheme-snip\0"
+2 0 34 #"(lib \"scheme-snipclass.ss\" \"xml\")\0"
+1 0 10 #"text-box%\0"
+1 0 32 #"(lib \"text-snipclass.ss\" \"xml\")\0"
+1 0 1 6 #"wxloc\0"
+          0 0 61 0 1 #"\0"
+0 75 1 #"\0"
+0 12 90 -1 90 -1 3 -1 0 1 0 1 0 0 0 0 0 0 0 0 0 0 0 255 255 255 1 -1 0 9
+#"Standard\0"
+0 75 16 #"Droid Sans Mono\0"
+0 12 90 -1 90 -1 3 -1 0 1 0 1 0 0 0 0 0 0 0 0 0 0 0 255 255 255 1 -1 2 1
+#"\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 1 1 1 1 1 1 0 0 0 0 0 0 -1 -1 2 24
+#"framework:default-color\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 -1 -1 2 1
+#"\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 150 0 150 0 0 0 -1 -1 2 15
+#"text:ports out\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 150 0 150 0 0 0 -1 -1 2 1
+#"\0"
+0 -1 1 #"\0"
+1.0 0 -1 -1 93 -1 -1 -1 0 0 0 0 0 0 0 0 0 1.0 1.0 1.0 255 0 0 0 0 0 -1
+-1 2 15 #"text:ports err\0"
+0 -1 1 #"\0"
+1.0 0 -1 -1 93 -1 -1 -1 0 0 0 0 0 0 0 0 0 1.0 1.0 1.0 255 0 0 0 0 0 -1
+-1 2 1 #"\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 0 0 175 0 0 0 -1 -1 2 17
+#"text:ports value\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 0 0 175 0 0 0 -1 -1 2 1
+#"\0"
+0 -1 1 #"\0"
+1.0 0 92 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1.0 1.0 1.0 34 139 34 0 0 0 -1
+-1 2 27 #"Matching Parenthesis Style\0"
+0 -1 1 #"\0"
+1.0 0 92 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1.0 1.0 1.0 34 139 34 0 0 0 -1
+-1 2 1 #"\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 38 38 128 0 0 0 -1 -1 2 37
+#"framework:syntax-color:scheme:symbol\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 38 38 128 0 0 0 -1 -1 2 38
+#"framework:syntax-color:scheme:keyword\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 38 38 128 0 0 0 -1 -1 2 1
+#"\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 194 116 31 0 0 0 -1 -1 2
+38 #"framework:syntax-color:scheme:comment\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 194 116 31 0 0 0 -1 -1 2 1
+#"\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 41 128 38 0 0 0 -1 -1 2 37
+#"framework:syntax-color:scheme:string\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 41 128 38 0 0 0 -1 -1 2 39
+#"framework:syntax-color:scheme:constant\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 41 128 38 0 0 0 -1 -1 2 1
+#"\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 132 60 36 0 0 0 -1 -1 2 49
+#"framework:syntax-color:scheme:hash-colon-keyword\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 132 60 36 0 0 0 -1 -1 2 42
+#"framework:syntax-color:scheme:parenthesis\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 132 60 36 0 0 0 -1 -1 2 1
+#"\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 255 0 0 0 0 0 -1 -1 2 36
+#"framework:syntax-color:scheme:error\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 255 0 0 0 0 0 -1 -1 2 1
+#"\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 -1 -1 2 36
+#"framework:syntax-color:scheme:other\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 -1 -1 2 16
+#"Misspelled Text\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 -1 -1 2 1
+#"\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 81 112 203 0 0 0 -1 -1 2
+38 #"drracket:check-syntax:lexically-bound\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 81 112 203 0 0 0 -1 -1 2 1
+#"\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 178 34 34 0 0 0 -1 -1 2 28
+#"drracket:check-syntax:set!d\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 178 34 34 0 0 0 -1 -1 2 37
+#"drracket:check-syntax:unused-require\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 255 0 0 0 0 0 -1 -1 2 36
+#"drracket:check-syntax:free-variable\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 255 0 0 0 0 0 -1 -1 2 1
+#"\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 68 0 203 0 0 0 -1 -1 2 31
+#"drracket:check-syntax:imported\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 68 0 203 0 0 0 -1 -1 2 47
+#"drracket:check-syntax:my-obligation-style-pref\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 178 34 34 0 0 0 -1 -1 2 1
+#"\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 0 116 0 0 0 0 -1 -1 2 50
+#"drracket:check-syntax:their-obligation-style-pref\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 0 116 0 0 0 0 -1 -1 2 48
+#"drracket:check-syntax:unk-obligation-style-pref\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 -1 -1 2 1
+#"\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 139 142 28 0 0 0 -1 -1 2
+49 #"drracket:check-syntax:both-obligation-style-pref\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 139 142 28 0 0 0 -1 -1 2
+26 #"plt:htdp:test-coverage-on\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 -1 -1 2 1
+#"\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 0 0 0 255 165 0 0 0 0 -1 -1 2 27
+#"plt:htdp:test-coverage-off\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 0 0 0 255 165 0 0 0 0 -1 -1 4 1
+#"\0"
+0 70 1 #"\0"
+1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 1.0 1.0 1.0 1.0 1.0 1.0 0 0 0 0 0 0
+-1 -1 4 4 #"XML\0"
+0 70 1 #"\0"
+1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 1.0 1.0 1.0 1.0 1.0 1.0 0 0 0 0 0 0
+-1 -1 2 1 #"\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 34 139 34 0 0 0 -1 -1 2 37
+#"plt:module-language:test-coverage-on\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 34 139 34 0 0 0 -1 -1 2 1
+#"\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 176 48 96 0 0 0 -1 -1 2 38
+#"plt:module-language:test-coverage-off\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 176 48 96 0 0 0 -1 -1 4 1
+#"\0"
+0 71 1 #"\0"
+1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 1.0 1.0 1.0 1.0 1.0 1.0 0 0 0 0 0 0
+-1 -1 4 1 #"\0"
+0 -1 1 #"\0"
+1.0 0 -1 -1 -1 -1 -1 -1 1 0 0 0 0 0 0 0 0 1.0 1.0 1.0 0 0 255 0 0 0 -1
+-1 4 1 #"\0"
+0 71 1 #"\0"
+1.0 0 -1 -1 -1 -1 -1 -1 1 0 0 0 0 0 0 0 0 1.0 1.0 1.0 0 0 255 0 0 0 -1
+-1 4 1 #"\0"
+0 71 1 #"\0"
+1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1.0 1.0 1.0 0 100 0 0 0 0 -1
+-1 0 1 #"\0"
+0 75 10 #"Monospace\0"
+0.0 13 90 -1 90 -1 3 -1 0 1 0 1 0 0 0.0 0.0 0.0 0.0 0.0 0.0 0 0 0 255
+255 255 1 -1 4 1 #"\0"
+0 -1 1 #"\0"
+1.0 0 92 -1 -1 -1 -1 -1 0 0 0 0 0 1 0.0 0.0 0.0 0.0 0.0 0.0 0 0 0 255
+255 0 -1 -1 0 1 #"\0"
+0 -1 1 #"\0"
+1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0.0 0.0 0.0 1.0 1.0 1.0 200 0 0 0 0
+0 -1 -1 0 1 #"\0"
+0 -1 1 #"\0"
+0.0 10 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 1.0 1.0 1.0 1.0 1.0 1.0 0 0 0 0 0 0
+-1 -1 2 1 #"\0"
+0 -1 1 #"\0"
+0.0 10 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 1.0 1.0 1.0 1.0 1.0 1.0 0 0 0 0 0 0
+-1 -1           0 31 0 25 3 15 #"#lang whalesong"
+0 0 23 29 1 #"\n"
+0 0 23 3 1 #"("
+0 0 14 3 7 #"require"
+0 0 23 3 1 #" "
+0 0 14 3 15 #"whalesong/image"
+0 0 23 3 1 #")"
+0 0 23 29 1 #"\n"
+0 0 23 29 1 #"\n"
+0 0 23 3 1 #"("
+0 0 15 3 6 #"define"
+0 0 23 3 1 #" "
+0 0 14 3 6 #"a-snip"
+0 0 23 3 1 #" "
+0 2          35 4 1 #"\0"
+2 -1.0 -1.0 0.0 0.0 0          12 500
+(
+ #"\211PNG\r\n\32\n\0\0\0\rIHDR\0\0\0X\0\0\0U\b"
+ #"\6\0\0\0\315\v#\352\0\0\25\355IDATx\234\355\234Y\254\34\305\271"
+ #"\200\277\252\236\231\263y7\266\317\361n"
+ #"\360\2\266\3\16\306\vf7\216\223\\"
+ #" \21I\20\302\271\220D\212\24\244D\21\nW\271I$\256P\224\227(/\311"
+ #"KP\36\22\31\t\2\17(\4\"\24\226k.\4\204\314*\300\6cb\233\v"
+ #"\266\217}\354\30\373\370,\263tW\325"
+ #"}\250\251\236\232\236\356Y\354c@W"
+ #"\374R\251{z\252{\252\276\371\373\257"
+ #"\277\376Z\4`\370LH\16\350\5\246\0\223\200n\244\314c\214 \b\24RV"
+ #"\20\242H\30\236\306\230Q\240\4h\314"
+ #"g\244\364Y\"\370\224\0O\236<\203"
+ #"\201\201\305,^\274\224y\363\26\323\337"
+ #"\337O>?\235R\251\207#Gr\274\367^\300\256]\206R\311\0\32!\24P"
+ #"\301\230q`\24)?F\210#\b\361\21B\374/Qt\4\30\377\314\1\377D"
+ #"\1\367\317[\304\232\265\353\270l\375:"
+ #"\226-[\312\254i\323\350)\4H\t\306h\300T\217\2320\324\348\240y\350"
+ #"!\315\363\317k@\1\272Z\\\355\235"
+ #"G\3008\360/\204\330\207\20\273\201\177"
+ #"b\314\360g\2\3669\a\334=e\n\3536ld\363\225W\261f\356\\f\227"
+ #"K\344N\17C>\217\276\350B\30\230\213\bCL\225\206\326\272\232\24Bh\224"
+ #"R\334\177\277b\373v\205\205\234\226\34p\2002B\34C\312\335\300kh\375A"
+ #"\374\354OC\316\31\340I\347\235\307\346"
+ #"u\353\270i\351RV\236\32\246g\317"
+ #"\273\210\375\373\221'O\22\0\1 \346"
+ #"\314\201{\357\305|\365\253\230\361q\214"
+ #"1(\245\352\222\326\nc\"~\363\233\210G\37\215\260\32\353\222\362\216"
+ #">lU-\305(\260\27)_\4\366\242\265\342\223\226\t\a\234\v\2\256"
+) 500
+(
+ #"\17\2\266\255X\301\3120\244g\377~raH\36\310c\2332\a\30\300L\232"
+ #"\204\371\323\237\320[\267\242\307\307QJ\21E\21a\30\306G\255#FFB\356"
+ #"\2743\344\335wC,\324\260\232\34d"
+ #"\22745\350\316\214\24\221\362=\204\370"
+ #"\37\264\336\377\211\232\216\211\3,\4\253"
+ #"\244\344\373\300\225Z\323g\f]X\277\240\e(`\341\n@V\217N\314\300\0"
+ #"\321\263\317\22.YB8>N\30\206T*\225\272\243\224!;vD\334uW"
+ #"\5\255\35d?\371\327\2346\373\347\32"
+ #"\30A\210\327\201\3470\346\324\204T\273"
+ #"\225\4\300\275g\373\220B\20\360\357R"
+ #"\3623\245Xk\fS\201\31\300t\254\323\325\203\5\3544\327\1vI\216\216\22"
+ #"\f\16\222\273\3556d\20 \204\250K\0J\t\346\3177\354\334i8z\324\375"
+ #"rR7\4\351b\252)\a,\0\226\"\345\bp\354l\253\336R\316\32\360\202"
+ #"|\236\377\22\202mQ\304\0\26\354L\240\17k\22\222\332\232%b\357^\344e"
+ #"\227\21\254\\I %R\312:\300\0]] \4\354\330\341\337i\22\347\315~"
+ #"\315\201\356\303\230\345\4A7p\220\232\315\236x9+\300\353s9~\245\24W"
+ #"(\305L,\330I\325\207:\333\343\252"
+ #"\233Uu\207G\0\346\360a\304\355\267"
+ #"\23\344\363\4A\200\224\262>\257\201\376"
+ #"~\303\323O\303\360p\22\254\361\236\226"
+ #"f\365\222\337I\214\231\17\364c!\227"
+ #"\332\253t\207rf\200\205\340+A\300\275J\261\22\230\2055\ay\352!f\235"
+ #"\223\270\356\276\23\207\16\301\365\327\303\242"
+ #"EH)c\310\316\3152\6&O6\34?\16\257\276\n\265F\314\207\353\334\265"
+ #",\310&q>\23k6\216\0#mT\2763\351\34\260\224|+\b\370\231R"
+ #",\1fc\315A\253\27\323IS\2156\6\272"
+ #"\273\341\206\el^!bSa\277\266P\246L1"
+) 500
+(
+ #"\374\345/\20E\256\323\221\246\301\311\224"
+ #"U\"S\255\301B\244\34\302\230\341\246"
+ #"\325\357Td\353,\236\b\301\267\202\200\377\210\"\26b\341v{_\247U+\r"
+ #"\256;O{\241\3153\317`\306\306\354"
+ #"\2711H)\351\352\352\242\273\273\233\256"
+ #"\256.\244,\260jU\201\265ks\330F\313\245\254&4\231dF\232\211\3267"
+ #"\20\4\363;B\322J:\2\374oRrw\30\262\0\v\267\340}\3474\322\177"
+ #"\345I|NBO\263\323|\360\1\274\365V|\335A.\24\ntuu\221\317"
+ #"\27\350\353\313s\323Mi\236u\328\341\375\232\179\r\366L\224\372j\265v"
+ #"\23#m\3^/%\377\251T\254\271\371\304\367\311\327=\vt\332\365\272<J"
+ #"!^z\311^\367\274\210 \bb\310B\24\270\376\372<3g&\265\327O\355"
+ #"h\262\17\331\3353\v\330\212\20S\332"
+ #"E\323T\332\2\2740\227\343\347\306\260\b8\257Z\245s*;w\246^\316\345"
+ #"r\24\n\5\202 \317\222%y\266nm\246\305I\r\365%\313\\\270\373\347b"
+ #"\314\265\b\221T\243\316\245%\340\236 \340ncXi\f3\2517\v\347Lv"
+ #"\357\206\361\361\206\313B\b\362\371<\371"
+ #"\274\205|\353\255yr\271,;\354\203N{w \333&\a\300\5\300ZD\362"
+ #"\226\16\2459`!\330&\4\327V\375\334IM\2626\363<\233Ij\236\217>"
+ #"\262)E\244\224\344r9\214\311\261~}\216\215\e;\201\333\314P\371Z\35\0"
+ #"y\214\271\4!\26\265Q\213li\n\370\vB\360\355(b\0060\255\305\203\322"
+ #"\376\350\266zpi\27\213E\370\360\303"
+ #"\364\374B\20\4\1A\220\243\247'\340\333\337N\263\275I3Q\347mg\224B"
+ #"\244\334\327\207\326\e\260\235\3753\223L\300\5!\370\276\326\314\303"
+ #"v\177\203\254\214g mE\227j\1\207\6\261\200\3\224\222l\331"
+) 500
+(
+ #"\"Y\261\"\315\216\266c\"|\361\363"
+ #"\372\317\231\3\254n\247\304\231OM\225/K\311F`2g\363\377\245K[f"
+ #"Mf\277\\N\213\205\b\230>=`\333\266,\367,M{\333\321d\227\334["
+ #"q!\266\307\327\271\244\326bj\20p\213\326L\6\246R\363W\323:\20YQ"
+ #"\200\254NG\333i`\300\36\215\211\23\20\37]7:\212$_\373\232d\336\274"
+ #"\206\30]\n0'\315\376\3424wn"
+ #"2\260\272.\360\324\256\244\2\336\n\254"
+ #"\250\206\35\375\236Z\332\377\237,~\332"
+ #"\365\216\323\244I\210%K\354y\"l"
+ #"\351\316]\254\2$\375\375\222[n\311\202\332\252qKJ\22\2563\27\v\261N"
+ #"jg\322\0x\262\20\334\240\24\223\260"
+ #"\261\334\316\372\322\331\322N|+\226\345"
+ #"\313a\341\302\372\274\211a\b\a\331j"
+ #"\261\340\e\337\220\314\234\331\nr\273\222"
+ #"\346U\364a\314\212\16\236a\245\201\337"
+ #"\345\300Rj#\21I\311\n\233\264j\270|3\223&uf\346\252\2530\371|"
+ #"\235i\250\313kL\235fk-Y\270Pp\323M\376\257\245\275[\315 \247E"
+ #"M\222\232<\37k4\333\227:\300\201\224l\26\202n,`\337s\310*f\263"
+ #"&#)\315\356\255C\261uk\235y\240z\336\360\274\0302h\r\337\374\246\240"
+ #"\257/\313\307\315\372\334\254\264\376Q\2"
+ #"\275\b\2610#\177\272\324\1^\"%"
+ #"\27iM\36\253\275\235\233\364\t\220\205"
+ #"\va\323\246\246Y\322\354r\24\t\226-\23l\336\234z\307Y\24\250\336T\30"
+ #"3\217\306HL\266\324\1^\217\r\234\27314h\35ame\32Z\231\204\206"
+ #"t\343\215\230i\323jy\306\3060\17?\2149q\242vo\325l$\207\224\214"
+ #"\201\233o\206\\\333\301\222\264Q\21'i\346E\2\323\20bz\273?"
+ #"P\3\234\3\326x\332\353\227\261\35\210\355\346q)U\247\202\0\261m"
+) 500
+(
+ #"[\3557\225\202;\357\204\333n\203\273"
+ #"\356\302\37oO\263\315Q\4_\370\2\254Y\223\374e\262~1\221'\2536\276"
+ #"\231\350\302\0163\265'1\340~!X\24259j\203\225\311\3077sv\262\212"
+ #"/\0\223\30%\26B\200\20\215\317\331"
+ #"\260\1\326\257\257]\373\363\237\341\201\a"
+ #"l\276\a\37\204\307\37\267\371\274\21\16"
+ #"\37\264\326\206B\1n\2741Y\212$"
+ #"\264\266\372\222\244kq\2001\347\321\256"
+ #"\177\25\347Z\212u\247\375~P\326h"
+ #"D\326\365\3642\212\354<B\324\353\327"
+ #"\17~\0yk\337\304\3600\342W\277"
+ #"\212\3575\306\300\275\367\3328\205\177\215"
+ #"z\320\225\212a\303\6\303\300@\253\341"
+ #"\242,\343\227V\313\270\300\325\343d\254"
+ #"\e\320Z\244\253\350r)\353\302%\311\"5\353\261e\25\307\1lj\277\2356"
+ #"._\216\271\371\346Z\236\207\36\302\274"
+ #"\377~}\3767\337\204\307\36k\350\341"
+ #"\371Ik\230>\335p\355\265\311\32\264"
+ #"+\255\f\236\300\232\211\366\3345\t "
+ #"\205`\00153\236\366b4\353\261\371\307\264\342dy\243u&\342G?BL"
+ #"\236l?\27\213\210\373\356kx\6\0\277\375-\224\313 D<Q\260\36\260&"
+ #"\212\f\327]g(\24Z5\315\355^O\326(\300jqk\221\0\223\204`\246"
+ #"R\251\0Z\375\237\231\337\245\371\255i"
+ #"\367\32\3\313\226!\356\270\243\326\0>"
+ #"\372(\274\375v\303=\2\340\345\227\21"
+ #"O>\211\366\0'!G\221\341\374\363\r_\374b;\357^\262&Y5J\226"
+ #"\244\3\300S\215a\n\3557`\255z"
+ #"\363\235\212\270\373n\230:\325\376V\245"
+ #"\2\277\373]\363g\377\376\367\3500\254"
+ #"\3\354\203\326\332 \245a\353\3264\357\240\231\321J\346K-m5\3654+a"
+ #",\26\260\326\24\252\217t\223?\233\275\\\355\372\303-\253"
+ #"c\ff\315\32\314\355\267\327\236\363\364\323\230W_mn"
+) 500
+(
+ #"\273\237{\16\365\362\313\250 \310\204\\"
+ #".k\326\2541,Y\322\256\211h\347{'\316\16\267v\270-`!\2204\2"
+ #"\316\322hR\276k\370/\215ii\307\21\2\356\271\az{\3555c\340\276\373"
+ #"\20\325{\263\356\323\225\n\352\301\aQ"
+ #")f\242\366\331\320\323\243\371\322\227\222"
+ #"\23S\232ih+\225\361\363H\332\6\334\27\4\30\352'}\352D\30635\5"
+ #"\231\367\31\203\370\362\227\341\353_\257]"
+ #"{\353-\304\263\317\266|\246\6\324\343"
+ #"\217\243>\372\b\225\230\264\355C\256T\f\e7\32f\315j\69\353\35\245E"
+ #"^I;]f\t\220S\252N{\335,\333\263\226\254\231\316\306@o/\346\227"
+ #"\277\204\300\v)m\337\16\245\346\223\360"
+ #"\f\325\231\300\203\203\250g\236A\5A"
+ #"u&|\243\231\210\"\303\264i\326\243h\17p\253\3060i&\332\264\3019h"
+ #"\0\0346\271\251#m\316\202\374\275\357"
+ #"!\326\255\253=\353\304\tx\344\221\226"
+ #"\217\363\25@=\362\bQ\261\230j\207-dM\245\242\271\342\n;\237\255V\313"
+ #"f\r\\\362\330\354\17h\23\260\277v"
+ #"Ga\341\226\231\300Y\263\306\324\247y"
+ #"\363\340\27\277\210\277\26\0\177\373\e\34"
+ #">\334\3741\324\346\261+ z\3555"
+ #"\324\356\335()\23\353:j\220\243\310\232\210+\257\364W&ub*\332\371#"
+ #"\262E\2\204\306\304\366\327\301-\323\\"
+ #"\213\317J\356\271\a\346\316\255}\326\32"
+ #"\356\277\277\345m\21P\241\266:#*\225PO<a\201\247\230\t\247\305ah"
+ #"\270\352*Co\357\331\300Mj\277\246"
+ #"m\300%\352\227\225\224\253\327\312m="
+ #"\242C\271\372j\370\356w\353\257\275\366"
+ #"\32\274\364R\323\333\3542\304Z\31\343\2450O=\205\32\32BiM\24Eu"
+ #"\240k=;\315\2349\232\r\e:\321\342f\220\225W"
+ #"\202\346\"\1F\202\0\177\355N\5\vw\234\t\326\342"
+) 500
+(
+ #"\356n\370\365\257\355Z\0_\266o\207J%\3636]-S\235\366V\217\352\320"
+ #"!\324\213/\22U}\342\306e`:\206|\3155\232\236\236\264\305\214i\266\31"
+ #"\32\301\372\311\255pj.\22\340t\265"
+ #"\360I\300\245j\2320-\276\343\16\330"
+ #"\270\261\376\332\261c\360\327\277f\336\342"
+ #"\354\256\178\271\246(z\352)T\251\224\351MhmW\216\316\236\255Y\2736"
+ #"\253\241\313j\340\322\362*\332m\245$\300\2601\214SS|\337L\214U+\346"
+ #"W8\t<\355sC\261g\315\202\237"
+ #"\377\334\236\273\270\1`\36}\24\216\34"
+ #"\311\254\252+\213\203\353C\216\275\2117"
+ #"\337D\355\337\217\22\242\1\262\377Y)"
+ #"\303\25W\30\272\272\222\320\374e\ai6W\247\234;\303\332\6\340\21c8E"
+ #"m\t_\245z{\21k&\306\250\375W\255b\23~\236\272\236\336\217\177\f\213"
+ #"\27\333s\27x\17C\304\366\355\251\367"
+ #"$\341\372\32\334\0\271TB=\367\234]\r\227\200\352\2470\324\f\fh.\271"
+ #"\244\35-N3!~jo\321\214m\344\214\341\30\265\206\304\1v\220G\253G"
+ #"\377\205H\276H\376yC\272\340\2\314\17\177X\313W\325^^x\1\363\312+"
+ #"\r\325s6\3275\264>\344\6\355u\351\205\27P\247N\241\22P\e\3356\315"
+ #"\246M\332\ve\266j\364\222`\235\201jo\301L\34[?(D\235\e\344\354"
+ #"\260\323b\267CCX\375\331d\f\302]K\215_\334}7L\237^\37\203\0"
+ #"\314\37\376`]4\357Y\356O\316\202"
+ #"\233l\350b\320\207\16\241\337z\253\251O\354\0\17\f\30V\257n\267As6"
+ #"\327\a\354\324\256\3\300\37R\363}]"
+ #"\205\212^\32\253\246qj\326\307\25-\253\323(\0\261z5\334qGc\b\364"
+ #"\335w\21O<Qg\22|\323T\246\21p&"
+ #"\\\227\376\361\17T\24\241\32l\257\362\2\3626"
+) 500
+(
+ #"]~\271&\237\317Z\6\226f\177\265"
+ #"\367\213\356\235\356\0\360a)9A\255\241s\25r\356\332h\25\260\323h\a:"
+ #"\244\361%\303?\376\364\247\230\276\276\372"
+ #"\241\35\300\374\361\217\230\261\261\330\341q"
+ #"o\213\323\\wL\203\233\265*9\332\265\vu\370p\323\0\2201\246j\213\r"
+ #"\253V\2455fI\250*q\36b\375"
+ #"\256\366\24251\340\323Z\363\241\224\261"
+ #"\375\363+\355\240\216T\217\3765\367\271"
+ #"L-\n\27\267\311\227]\6\267\334R"
+ #"\367\203F\b\364\321\243\250\207\36\"\244"
+ #"\246\261\16\256K\345DJ\323\334\6-\36\eC\275\361F\34\306L\203\353\17-"
+ #"\255_o\310\347\333\361y}\r\256\0"
+ #"\355\257\245\213\3\232\306\30\366\n\301%"
+ #"\325\317\25\262\27C9\255K[\343\23\337#\4\342'?Atu\305\0212\255"
+ #"5\246\273\e\375\360\303\350#Gb\235HnH\340\373\271\255\216\r\240_~\31"
+ #"u\305\25\261\211\310\262\305\306\330\221\347"
+ #"\213.2\274\375v\26\\\177\245\276o\36Nw\16\30\340}c8\201\235\244\351"
+ #"\0\247\5\334\r\215k{\32\346\225o"
+ #"\334\210\330\262\5q\362$.\242\246\1"
+ #"3<\214\331\276\275\341\5Ln\257\221\266IAS\260.}\370!\352\203\17\320"
+ #"\213\0265hn\332\260\322\272u\206="
+ #"{\254\331\310\326\\\337p\236\302\276S"
+ #"g\0\370TU\213g\30C\205\332\242\356\244g`\260\263\177\222p]~)%"
+ #"\342\316;\355\310\304\350\250\35\2767\6"
+ #"\272\2720;v\240w\355\252\353\325'59\rtS\323\340\237+\205~\375u"
+ #"\364\242E\231\376p-^\254\351\3577\254X\241\331\275;\253D~\0w\f8"
+ #"\3366\334\6\300\0o\0\27c\207\364"
+ #"\222\246\301\301u?\357\366\200\250\203"
+ #"\v\210M\233\220\e7Z\355\365\304\204!<\360\200\255"
+ #"$\365\16\220\177L\3\227\4\236\266\345F\374B\357\332\205"
+) 500
+(
+ #"\332\274\31](d\216<\373Z|\351\245\206={\2549i,\215\337\f\177L"
+ #"'\346!\25\360A!\330'\4+\265\216\315\204\3\234f\376s$VE\344r"
+ #"\210\357|\a\21Ev\2048\376\245\34"
+ #"\354\331\203y\341\205\2066;Y\235\210t\330Y@\ev\3549q\2\375\376\373"
+ #"\230\213/\306$F\237\223\220\303\320F"
+ #"\332\26/V\354\337\237\324\\\277a\263;[5\16\246u\bXi\315+A\300"
+ #"\22jf\300\327\336\344\213\324E\302\366"
+ #"^}5\342\342\213\355\324'\177nDw7\346\261\307\354\346Gd7)\311\246"
+ #"\245\31\314\264}\247\342\3637\337D\257"
+ #"Z\25\367\354|;\234\264\311B(V\257\326\348\2400&\371d\247\275'\261"
+ #"\366\2673I\35\26\335\247\24\373\244d"
+ #"\245\326\2619o\346z\27\34\334\356n"
+ #"\304\255\267\"\312e\253\301\16\260\224p"
+ #"\342\4\346\311'\e\\\372\3443\223\260"
+ #"\322^\332\264\353\376w\6\320\373\366\241"
+ #"\217\37GO\235\332\0\326\377l=\r\315\334\271\212\331\263\25CCip\213X"
+ #"\355\355<x\233\nX\3/\32\303\2\354N\n\255\0GTgd^w\35\342"
+ #"\202\v\20\325\355\bb\300]]\360\374"
+ #"\363\230\243G\e\302)\255\334\373V\300"
+ #"\323\376\30\3\250R\t\275g\17f\323"
+ #"&tu_\266\344\320\276\337\31\221R"
+ #"\261l\231\178\242\326\3459Q\5\334\271d\16\354\0374\2067\204\340rcj"
+ #"\35\a\32\315D\256z\f{{\311\337x#\262X\4\245jp\205\260\301\364\277"
+ #"\377\275\341\31YA\301V\16S\22\256\237|\233n\336y\a\275vmK\270."
+ #"\315\237\257\350\356V\224J~D\344\24"
+ #"0H\247\266\267%`\200\235B\260\320\30\6R\0'\e\236\334\225W\22\315\236"
+ #"Mn|\274n\257\35\221\317c\336y\a\366\354\211"
+ #"\237\341\216~\27;\t\331\375F\226\371H\206`\322"
+) 500
+(
+ #"B4zp\02034\204\2313\247)\\7\324\324\335\255\2307O\261\177\277\203"
+ #";\212\335\231\2523\317\301\227\246\263\210"
+ #"G\265\346\205\\.\36:\362\343\1~\214\240\334\327G\371\232k(\216\215Q,"
+ #"\26)\225J\204ah\367=\213\"\302"
+ #"\35;\b\225\252\213\210\245\216\257Q\337"
+ #"\241H\372\301i\336D\232\231\210\377\260(B\357\335\eO\24L\323Z\a7\212"
+ #"\"\242H1o\236\263\273\343X\323pv[\177\265\234\246\375O\245xU\312\272"
+ #"\20\246\e^r\237\303\r\e(\317\234Iyl\214R\251\24\247\212R\204\207\16"
+ #"\21\276\362J\3\320$\314,\310ip\323LD\362Z\fy\357^t\261\330\0"
+ #"4\rr\245\22\322\327W\246\267\267\204"
+ #"\365\32\216P?\236\323\271\264\236\\e\f;\261\v\302W$*\221\3to/"
+ #"z\303\6\202b\21\5\361\342@Y\235\320-w\356D\216\216\3061\fh\36\240"
+ #"O6|Y\346#\353\330\220\377\370q\324\340 \252\277\37\355\305%|\315UJ"
+ #"\21\206!\245R\211(*2y\3620\343\343\23\263\vU[\353q\"cx\26"
+ #"\353\27\317\247\36r\260f\rz\3324T\251T\aWJ\211\254T\220\325\355a"
+ #"\222\35\26h\16\270\35\350iP\el"
+ #"\266\326\250\3\a\320s\346\304\200\223\232"
+ #"\353\340\26\213E\206\207\207\211\242A\316"
+ #"\324kHJ\333\v\236F\201\377\6\276"
+ #"\202\335\263G\3\272\273\233\374\245\227\242"
+ #"\313eDu\363\2428\25\n\210}\373"
+ #"\220\207\16\305q\214d\360\250\325\230B"
+ #"\26\364$\334\264^a\235\3718p\0"
+ #"\275fM\34\210\367\223\17\367\324\251S\f\r\rq\362d\366V\n\235JG\333"
+ #"\357|\f<#%[\264f\26\240/\274\20=e\n\271R\251\272\275@u\237"
+ #"3)\221B _\177\35\241u\313e\b\220\256"
+ #"\315\355hr\263\360x\234N\234@\35;\206\2321"
+) 500
+(
+ #"\303\216xxp\313\345r\35\334\303\207"
+ #"\17\243\275a\254\263\225\216\3677:\256"
+ #"5O\t\301\346\\\216\376\213.B\25"
+ #"\213\344\204 \227\313\305[\f\310 @\214\214 \337{\257%\330\344\347v4:"
+ #"\315g\316\362\243\25X\323p\360 j\3324T\24\21E\21\225J\205J\245B"
+ #"\251Tbxx\230\243G\2172888\241p\341\f7\220\372\330\30\236\221\222"
+ #"+\207\207Y0u*Q.GNkr\371<\271|\36\31\4\310}\373\20\247"
+ #"O\327\201\365\355p\226\230\224c\226\6"
+ #"\247\331\341,mV\a\17\242\226/'\254\202-\227\313\24K%FN\237\346\310"
+ #"\341\303\f\35?>\341p\241\276\315\351"
+ #"X\272\273\273Y\273v-+\346\317'\37E\4\245\22\271\321Qr\243\243\4\a"
+ #"\16 N\236\314\236\335N#\350\244\366"
+ #"\372\327:1\23\251]\354|\236p\313"
+ #"\26*\205\2\245\361q\306\306\307\31\376"
+ #"\370c\216\f\16rrx\370\314!\264"
+ #"\220\263\2\f6\336\260\274P\340\222J"
+ #"\205\311\306\20\320z\243C\377\307}i\0057\313.\247v\223i\f\227W\226."
+ #"\245\270`\1###\234\32\32\342\350\320\20\243M\346\304M\204\2345`'3"
+ #"\2005X7\316\355\302\232\265\17_Z!H\24\244\35\310iv\330\a\233\234\320"
+ #"X\4N\367\366\362\257 \340\330\310\310"
+ #"\304\314\342o!\23\6\30,\310\363\201"
+ #"\213\260\353 \375\rY\342\215\361i\324"
+ #"\3464\260\376y\26\3304{\254\251\357"
+ #"\35\272\250\3028\266ov\234s\261\211m\266L(`'\275\300\5B\260\330\230"
+ #"x\303\346\206a%\322\375b\22\347\255:#\311ASg\22|\260\247\261Q\205"
+ #"\223\347\242\262-\344\234\0v\322\v,"
+ #"\22\202\371\325\r\226\234\351H&\177\354/)\315\32\270d\360\307\245\n"
+ #"vx\3624\326w\37\256\346\3714\344\234\2v\222\307n\3576\200\335}"
+) 170
+(
+ #"\314\355G\2216\2432M\262\\3gg}s0\216\5z\n\333\373\374\2445"
+ #"6)\237\b`_z\260\r\342\f\254"
+ #"\235\356\301\216\353\371\235\20\2238\317r"
+ #"\301\\\3035\16\214\n\301(0Z]o\362Y\221O\34\260/\201\20\364\30C"
+ #"/\325]\256\204\240`L\274!H@\343p~\b\224\205\240dL<\335\252\302"
+ #"\247\257\251Y\362\251\2\316\22Au\352"
+ #"\225\277\205\214\20\250\2545w\237a\371"
+ #"L\2\376\377$\23\265\261\337\347\222!\237\3>\307\3629\340s,\237\3"
+ #">\307\362\177z\314\306\205O<{Y\0\0\0\0IEND\256B`\202"
+) 0 0 23 3 1 #")"
+0 0 23 29 1 #"\n"
+0 0 23 3 1 #"("
+0 0 14 3 11 #"image-width"
+0 0 23 3 1 #" "
+0 0 14 3 6 #"a-snip"
+0 0 23 3 1 #")"
+0 0 23 29 1 #"\n"
+0 0 23 3 1 #"("
+0 0 14 3 12 #"image-height"
+0 0 23 3 1 #" "
+0 0 14 3 6 #"a-snip"
+0 0 23 3 1 #")"
+0 0 23 29 1 #"\n"
+0 0 14 3 6 #"a-snip"
+0 0 23 29 1 #"\n"
+0           0

whalesong/examples/using-resources.rkt

@@ -1,7 +1,7 @@
-#lang planet dyoo/whalesong
+#lang whalesong
 
-(require (planet dyoo/whalesong/resource)
-         (planet dyoo/whalesong/image))
+(require whalesong/resource
+         whalesong/image)
 
 (define-resource whale-resource "images/humpback.jpg")
 (define-resource self-resource "using-resources.rkt")

whalesong/examples/whale.rkt

@@ -1,7 +1,7 @@
-#lang planet dyoo/whalesong
+#lang whalesong
 
-(require (planet dyoo/whalesong/world)
-         (planet dyoo/whalesong/image))
+(require whalesong/world
+         whalesong/image)
 
 (define-struct world (x direction))
 

whalesong/examples/window-size.rkt

@@ -1,6 +1,6 @@
-#lang planet dyoo/whalesong
+#lang whalesong
 
-(require (planet dyoo/whalesong/js))
+(require whalesong/js)
 
 (when (in-javascript-context?)
   (viewport-width))

whalesong/expand-out-images.rkt

@@ -12,7 +12,7 @@
 ;; my-image-url: (parameterof stx)
 ;;
 ;; During the dynamic extent of expand-out-images, this will be defined
-;; as the unique name for the image-url function in (planet dyoo/whalesong/image).
+;; as the unique name for the image-url function in whalesong/image.
 (define-runtime-path whalesong/image
   "image.rkt")
 (define my-image-url (make-parameter #f))
@@ -208,4 +208,4 @@
        (define-values-for-syntax ids #,(on-expr #'expr)))]
     
     [else
-     (on-expr stx)]))
+     (on-expr stx)]))