Permalink
Browse files

oops

  • Loading branch information...
1 parent 18b2827 commit e9b1d8cdeb5960a00cfb16d0f9d0cd669aea675a @dyoo dyoo committed Apr 22, 2013
Showing with 10 additions and 5 deletions.
  1. +9 −5 compiler-service.rkt
  2. +1 −0 server-startup.sh
View
14 compiler-service.rkt
@@ -37,7 +37,7 @@
"src/collects/moby/runtime/dom-helpers.ss"
"js-runtime/src/sexp.ss")
-(provide start-server)
+(provide start-server write-runtime-files)
(define-runtime-path htdocs "servlet-htdocs")
(define-runtime-path compat
@@ -485,9 +485,7 @@
(printf "WeScheme server compiler started on port ~s.\n" port)
(do-not-return))
-
-(module+ main
-
+(define (write-runtime-files)
;; Write out a fresh copy of the support library.
(call-with-output-file (build-path htdocs "support.js")
(lambda (op)
@@ -497,7 +495,13 @@
;; Also, write out the collections.
(unless (directory-exists? (build-path htdocs "collects"))
(make-directory (build-path htdocs "collects")))
- (write-collections/dir (build-path htdocs "collects"))
+ (write-collections/dir (build-path htdocs "collects")))
+
+
+
+(module+ main
+
+ (write-runtime-files)
;; A list of the extra module providers.
(define extra-module-providers '())
View
1 server-startup.sh
@@ -3,6 +3,7 @@
## This is the startup script for the EC2 server instances.
git fetch
+git checkout stable
git merge origin/stable
/home/ubuntu/racket/bin/raco make compiler-service.rkt
/usr/bin/nohup /home/ubuntu/racket/bin/racket compiler-service.rkt --extra-module-provider wescheme-module-provider.rkt &

0 comments on commit e9b1d8c

Please sign in to comment.