Skip to content
Browse files

lil updates to lock in version

  • Loading branch information...
1 parent 989b54e commit 7579d58d115106b0d841c353169dd2515daffa6a @vegashacker committed
Showing with 11 additions and 11 deletions.
  1. +3 −1 STYLE.txt
  2. +0 −1 feed.ss
  3. +2 −2 generate-lib.scm
  4. +4 −4 leftparen.scm
  5. +1 −2 page.scm
  6. +1 −1 time.scm
View
4 STYLE.txt
@@ -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)
+
View
1 feed.ss
@@ -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)
View
4 generate-lib.scm
@@ -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))))
View
8 leftparen.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
View
3 page.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"
View
2 time.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

0 comments on commit 7579d58

Please sign in to comment.
Something went wrong with that request. Please try again.