@@ -44,5 +44,7 @@ Style guide to writing code for the LeftParen project: mode version. This locks in that version so that if someone is using LeftParen in, say, production, they don't get automatically upgraded. E.g., - (planet "foo.ss" ("somebody" "baz.plt" 2 (= 1))) + (planet "foo.ss" ("somebody" "baz.plt" 2 (= 1))) or + (planet somebody/baz:2:=1/foo) + STYLE.txt @@ -7,7 +7,6 @@ "web-support.scm" "settings.scm" "page.scm") - ; xxx used? (planet "uuid-v4.ss" ("zitterbewegung" "uuid-v4.plt" 1 0))) (provide ;; atom-feed (via contract) ;; atom-item (via contract) feed.ss @@ -10,7 +10,7 @@ (provide generate-project) (define PLANET_MAJOR_VERISON 4) -(define PLANET_MINOR_VERSION 0) +(define PLANET_MINOR_VERSION 1) (define (generate-project cmd-line-args-vec) (match cmd-line-args-vec @@ -133,4 +133,4 @@ (define (expr-for-lp-require filename-rel-to-lib-root) `(planet ,filename-rel-to-lib-root ("vegashacker" "leftparen.plt" - ,PLANET_MAJOR_VERISON ,PLANET_MINOR_VERSION))) + ,PLANET_MAJOR_VERISON (= ,PLANET_MINOR_VERSION)))) generate-lib.scm @@ -1,8 +1,8 @@ #lang scheme/base (require scheme/match - (planet untyped/dispatch:1:7/dispatch) - (planet jaymccarthy/with-bindings:1:2/with-bindings) + (planet untyped/dispatch:1:=7/dispatch) + (planet jaymccarthy/with-bindings:1:=2/with-bindings) web-server/servlet-env web-server/dispatchers/dispatch web-server/configuration/responders @@ -31,8 +31,8 @@ (provide ;; the work of others: - (all-from-out (planet untyped/dispatch:1:7/dispatch)) - (all-from-out (planet jaymccarthy/with-bindings:1:2/with-bindings)) + (all-from-out (planet untyped/dispatch:1:=7/dispatch)) + (all-from-out (planet jaymccarthy/with-bindings:1:=2/with-bindings)) ;; built-in PLT tools: request-bindings leftparen.scm @@ -1,8 +1,7 @@ #lang scheme/base (require net/url - (planet untyped/dispatch:1:7/dispatch) - (planet "digest.ss" ("soegaard" "digest.plt" 1 1)) + (planet untyped/dispatch:1:=7/dispatch) "util.scm" "web-export.ss" "web-support.scm" page.scm @@ -2,7 +2,7 @@ (require "util.scm" "record.scm" - (planet "rfc3339.ss" ("neil" "rfc3339.plt" 1 0))) + (planet "rfc3339.ss" ("neil" "rfc3339.plt" 1 (= 0)))) (provide created-when created-when-str time.scm 989b54ea1d7bc0e333eff58edc502aab1c1ac68d Rob Hunter rob.hunter@gmail.com http://github.com/vegashacker/leftparen/commit/7579d58d115106b0d841c353169dd2515daffa6a 7579d58d115106b0d841c353169dd2515daffa6a 2009-01-12T08:24:38-08:00 2009-01-12T08:24:38-08:00 lil updates to lock in version fe365ba4d3f882cf9a06f5ee9c6b27f45856509b Rob Hunter rob.hunter@gmail.com