Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

hiding some of the paths from raco setup, so we get clean compiles

  • Loading branch information...
commit 6f62b97757bd310279015e430339e1c6eb828abf 1 parent b74d2f8
Danny Yoo authored
View
5 info.rkt
@@ -10,4 +10,7 @@
(define racket-launcher-libraries '("whalesong.rkt"))
(define racket-launcher-names '("whalesong"))
(define homepage "http://hashcollision.org/whalesong")
-(define scribblings '(("scribblings/manual.scrbl")))
+(define scribblings '(("scribblings/manual.scrbl")))
+(define compile-omit-paths '("tests"
+ "examples"
+ "experiments"))
View
621 test.rkt
@@ -1,621 +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 54 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 9 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 0 1
-#"\0"
-0 75 10 #"Monospace\0"
-0.0 9 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 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.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.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.0 0.0 1.0 1.0 1.0 0 100 0 0 0
-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 66 0 26 3 17 #"#lang racket/base"
-0 0 4 29 1 #"\n"
-0 0 4 29 1 #"\n"
-0 0 22 3 1 #"("
-0 0 14 3 7 #"require"
-0 0 4 3 1 #" "
-0 0 22 3 1 #"("
-0 0 14 3 10 #"for-syntax"
-0 0 4 3 1 #" "
-0 0 14 3 11 #"racket/base"
-0 0 22 3 1 #")"
-0 0 4 29 1 #"\n"
-0 0 4 3 9 #" "
-0 0 14 3 11 #"2htdp/image"
-0 0 22 3 1 #")"
-0 0 4 29 1 #"\n"
-0 0 4 29 1 #"\n"
-0 0 4 29 1 #"\n"
-0 0 22 3 1 #"("
-0 0 14 3 7 #"require"
-0 0 4 3 1 #" "
-0 0 19 3 18 #"\"image-to-uri.rkt\""
-0 0 4 29 1 #"\n"
-0 0 4 3 9 #" "
-0 0 19 3 25 #"\"get-module-bytecode.rkt\""
-0 0 22 3 1 #")"
-0 0 24 29 1 #"\n"
-0 0 24 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 8 #"an-image"
-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 4 29 1 #"\n"
-0 0 4 29 1 #"\n"
-0 0 4 29 1 #"\n"
-0 0 22 3 1 #"("
-0 0 15 3 6 #"define"
-0 0 4 3 1 #" "
-0 0 14 3 3 #"uri"
-0 0 4 3 1 #" "
-0 0 22 3 1 #"("
-0 0 14 3 10 #"image->uri"
-0 0 4 3 1 #" "
-0 0 14 3 8 #"an-image"
-0 0 22 3 2 #"))"
-0 0 4 29 1 #"\n"
-0 0 4 29 1 #"\n"
-0 0 4 29 1 #"\n"
-0 0 22 3 1 #"("
-0 0 15 3 6 #"define"
-0 0 4 3 1 #" "
-0 0 14 3 4 #"self"
-0 0 4 3 1 #" "
-0 0 22 3 1 #"("
-0 0 14 3 19 #"get-module-bytecode"
-0 0 4 3 1 #" "
-0 0 22 3 1 #"("
-0 0 14 3 10 #"build-path"
-0 0 4 3 1 #" "
-0 0 19 3 10 #"\"test.rkt\""
-0 0 22 3 3 #")))"
-0 0
View
46 version-case/version-case.rkt
@@ -1,45 +1,3 @@
#lang racket/base
-
-(require (for-syntax racket/base)
- (for-syntax racket/bool)
- (for-syntax "version-misc.rkt"))
-
-
-(provide (for-syntax (all-from-out "version-misc.rkt")))
-(provide version-case)
-
-
-(define-for-syntax usage-message "Usage: (version-case [test code] ... [else ...]))")
-
-(define-syntax (version-case stx)
- (syntax-case stx (else)
- [(_ [test code ...] ... [-else last-code ...])
- (and (not (null? (syntax->list (syntax ((test code ...) ...)))))
- (identifier? #'-else)
- (symbol=? (syntax-e #'-else) 'else))
- (with-syntax ([name (syntax/loc stx the-macro)]
- [transformer
- (syntax/loc stx
- (lambda (stx*)
- (cond [test
- (syntax-local-introduce
- (quote-syntax (begin code ...)))]
- ...
- [else
- (syntax-local-introduce
- (quote-syntax (begin last-code ...)))])))])
- (case (syntax-local-context)
- [(expression)
- (syntax/loc stx
- (let-syntax ([name transformer])
- (name)))]
- [else
- (syntax/loc stx
- (begin
- (define-syntax name transformer)
- (name)))]))]
- [else
- (raise-syntax-error
- #f
- usage-message
- stx)]))
+(require (planet dyoo/version-case:1:9))
+(provide (all-from-out (planet dyoo/version-case:1:9)))
View
101 version-case/version-misc.rkt
@@ -1,101 +0,0 @@
-#lang racket/base
-(require racket/string
- racket/list
- racket/contract
- (prefix-in 67: srfi/67)
- (prefix-in 1: srfi/1))
-
-(provide/contract [version<= (string? string? . -> . boolean?)]
- [version< (string? string? . -> . boolean?)]
- [version= (string? string? . -> . boolean?)]
- [version>= (string? string? . -> . boolean?)]
- [version> (string? string? . -> . boolean?)])
-
-
-;; The definitions of mz-version, string->version, and
-;; version<= were adapted (copied and pasted) from PLaneT's
-;; implementation in (planet/private/planet-shared.ss).
-
-(define-struct mz-version (numbers) #:transparent)
-
-;; string->version : string -> mz-version | #f
-(define (string->version str)
- (cond
- ;; Old style numbering (with three digits in front)
- [(regexp-match #rx"^([0-9][0-9][0-9])([.0-9]*)$" str)
- =>
- (lambda (ver)
- (let* ([major (string->number (list-ref ver 1))]
- [after-major
- (map string->number
- (rest (regexp-split "\\." (list-ref ver 2))))]
- [minor (if (>= (length after-major) 1)
- (first after-major)
- 0)]
- [maintenances (my-drop after-major 1)])
- (make-mz-version (list*
- (remainder (quotient major 100) 10)
- (remainder (quotient major 10) 10)
- (remainder major 10)
- minor
- maintenances))))]
- ;; New style numbering
- [(regexp-match #rx"^([.0-9]*)$" str)
- =>
- (lambda (ver)
- (let* ([numbers (regexp-split "\\." (list-ref ver 1))])
- (make-mz-version (map string->number numbers))))]
- [else #f]))
-
-
-;; drop: (listof X) number -> (listof X)
-;; A more permissive version of drop that returns the empty list
-;; if we try to take off too many elements.
-(define (my-drop a-list n)
- (1:drop a-list (min n (length a-list))))
-
-
-
-;; version-cmp: mz-version mz-version -> (union -1 0 1)
-;; Returns -1 if v1 < v2, 0 if v1 = v2, and 1 if v1 > v2.
-(define (version-cmp v1 v2)
- (67:list-compare 67:integer-compare
- (mz-version-numbers v1)
- (mz-version-numbers v2)))
-
-
-;; version<= : string string -> boolean
-;; determines if a is the version string of an earlier
-;; mzscheme release than b
-;; [n.b. this relies on a guarantee from Matthew that
-;; mzscheme version x1.y1 is older than version x2.y2 iff
-;; x1<x2 or x1=x2 and y1<y2]
-(define (version<= a b)
- (let ([a (string->version a)]
- [b (string->version b)])
- (not (= (version-cmp a b)
- 1))))
-
-(define (version>= a b)
- (let ([a (string->version a)]
- [b (string->version b)])
- (not (= (version-cmp a b)
- -1))))
-
-(define (version= a b)
- (let ([a (string->version a)]
- [b (string->version b)])
- (= (version-cmp a b)
- 0)))
-
-(define (version< a b)
- (let ([a (string->version a)]
- [b (string->version b)])
- (= (version-cmp a b)
- -1)))
-
-(define (version> a b)
- (let ([a (string->version a)]
- [b (string->version b)])
- (= (version-cmp a b)
- 1)))
View
3  world/info.rkt
@@ -0,0 +1,3 @@
+#lang setup/infotab
+
+(define compile-omit-paths '("scratch"))
View
BIN  world/scratch/jsworld/compiled/define-effect_rkt.zo
Binary file not shown
View
BIN  world/scratch/world/compiled/kernel_rkt.zo
Binary file not shown
Please sign in to comment.
Something went wrong with that request. Please try again.