Remove superfluous pws references
svn: r6277
This commit is contained in:
Jay McCarthy
parent
ef18c5ac86
commit
c176d6a5a5
|
|
@ -2,7 +2,7 @@
|
|||
(require "define-closure.ss"
|
||||
(lib "plt-match.ss")
|
||||
(lib "serialize.ss")
|
||||
(lib "web-cells.ss" "web-server" "prototype-web-server" "newcont"))
|
||||
"newcont/web-cells.ss")
|
||||
(provide
|
||||
|
||||
;; AUXILLIARIES
|
||||
|
|
|
|||
|
|
@ -1,13 +1,13 @@
|
|||
(module lang mzscheme
|
||||
(require-for-syntax (lib "etc.ss")
|
||||
(lib "labels.ss" "web-server" "prototype-web-server")
|
||||
"labels.ss"
|
||||
"lang/util.ss"
|
||||
"lang/elim-letrec.ss"
|
||||
"lang/anormal.ss"
|
||||
"lang/elim-callcc.ss"
|
||||
"lang/defun.ss")
|
||||
(require (lib "abort-resume.ss" "web-server" "prototype-web-server"))
|
||||
(require (only (lib "persistent-web-interaction.ss" "web-server" "prototype-web-server")
|
||||
(require "abort-resume.ss"
|
||||
(only "persistent-web-interaction.ss"
|
||||
send/suspend/hidden
|
||||
send/suspend/url
|
||||
send/suspend/dispatch
|
||||
|
|
@ -15,7 +15,7 @@
|
|||
redirect/get
|
||||
start-servlet))
|
||||
(provide (rename lang-module-begin #%module-begin))
|
||||
(provide (all-from (lib "abort-resume.ss" "web-server" "prototype-web-server"))
|
||||
(provide (all-from "abort-resume.ss")
|
||||
(all-from-except mzscheme #%module-begin)
|
||||
send/suspend/hidden
|
||||
send/suspend/url
|
||||
|
|
|
|||
|
|
@ -1,14 +1,11 @@
|
|||
(module defun mzscheme
|
||||
(require-for-template mzscheme)
|
||||
(require (lib "kerncase.ss" "syntax")
|
||||
#;(lib "etc.ss")
|
||||
(lib "list.ss")
|
||||
(lib "toplevel.ss" "syntax")
|
||||
(lib "plt-match.ss")
|
||||
(lib "stx.ss" "syntax")
|
||||
"util.ss"
|
||||
"freevars.ss"
|
||||
(lib "closure.ss" "web-server" "prototype-web-server"))
|
||||
"../closure.ss")
|
||||
(provide defun)
|
||||
|
||||
; make-new-clouse-label : (syntax -> syntax) syntax -> syntax
|
||||
|
|
|
|||
|
|
@ -1,12 +1,7 @@
|
|||
(module elim-callcc mzscheme
|
||||
(require-for-template mzscheme)
|
||||
(require-for-template (lib "abort-resume.ss" "web-server" "prototype-web-server"))
|
||||
(require-for-template mzscheme
|
||||
"../abort-resume.ss")
|
||||
(require (lib "kerncase.ss" "syntax")
|
||||
#;(lib "etc.ss")
|
||||
(lib "list.ss")
|
||||
(lib "toplevel.ss" "syntax")
|
||||
(lib "plt-match.ss")
|
||||
(lib "stx.ss" "syntax")
|
||||
"util.ss")
|
||||
(provide elim-callcc)
|
||||
|
||||
|
|
|
|||
|
|
@ -1,11 +1,9 @@
|
|||
(module elim-letrec mzscheme
|
||||
(require-for-template (lib "abort-resume.ss" "web-server" "prototype-web-server")
|
||||
mzscheme)
|
||||
(require-for-template mzscheme
|
||||
"../abort-resume.ss")
|
||||
(require (lib "kerncase.ss" "syntax")
|
||||
(lib "etc.ss")
|
||||
(lib "list.ss")
|
||||
(lib "toplevel.ss" "syntax")
|
||||
(lib "stx.ss" "syntax")
|
||||
"util.ss")
|
||||
(provide (all-defined))
|
||||
|
||||
|
|
|
|||
|
|
@ -1,11 +1,7 @@
|
|||
(module util mzscheme
|
||||
(require-for-template mzscheme
|
||||
(lib "abort-resume.ss" "web-server" "prototype-web-server"))
|
||||
(require-for-template mzscheme)
|
||||
(require (lib "kerncase.ss" "syntax")
|
||||
(lib "etc.ss")
|
||||
(lib "list.ss")
|
||||
(lib "toplevel.ss" "syntax")
|
||||
(lib "stx.ss" "syntax"))
|
||||
(lib "list.ss"))
|
||||
(provide (all-defined))
|
||||
|
||||
(define current-code-labeling
|
||||
|
|
|
|||
|
|
@ -1,7 +1,6 @@
|
|||
(module add-simple (lib "lang.ss" "web-server" "prototype-web-server")
|
||||
(require (lib "url.ss" "net")
|
||||
(lib "servlet-helpers.ss" "web-server" "private")
|
||||
(lib "web-param.ss" "web-server" "prototype-web-server" "newcont"))
|
||||
(lib "servlet-helpers.ss" "web-server" "private"))
|
||||
(provide start)
|
||||
|
||||
(define msg (make-web-parameter "unknown"))
|
||||
|
|
|
|||
|
|
@ -1,5 +1,4 @@
|
|||
(module web-cell-component mzscheme
|
||||
(require (lib "web-cells.ss" "web-server" "prototype-web-server" "newcont"))
|
||||
(provide define-component)
|
||||
|
||||
(define-syntax define-component
|
||||
|
|
|
|||
|
|
@ -1,5 +1,5 @@
|
|||
(module web-cells mzscheme
|
||||
(require (lib "closure.ss" "web-server" "prototype-web-server")
|
||||
(require "../closure.ss"
|
||||
(lib "serialize.ss")
|
||||
(lib "list.ss")
|
||||
(lib "plt-match.ss")
|
||||
|
|
|
|||
|
|
@ -1,5 +1,5 @@
|
|||
(module web-param mzscheme
|
||||
(require (lib "closure.ss" "web-server" "prototype-web-server")
|
||||
(require "../closure.ss"
|
||||
(lib "list.ss"))
|
||||
(provide make-web-parameter
|
||||
next-web-parameter-id
|
||||
|
|
|
|||
|
|
@ -15,7 +15,7 @@
|
|||
abort/cc
|
||||
safe-call?
|
||||
the-cont-key)
|
||||
(only (lib "persistent-web-interaction.ss" "web-server" "prototype-web-server")
|
||||
(only "persistent-web-interaction.ss"
|
||||
start-servlet)
|
||||
(lib "web-cells.ss" "web-server" "prototype-web-server" "newcont")
|
||||
"xexpr-extras.ss"
|
||||
|
|
|
|||
|
|
@ -339,4 +339,4 @@
|
|||
[(zero? (car l)) (k 0)]
|
||||
[else
|
||||
(* (car l) (cdr l))])))))
|
||||
#t)))))))
|
||||
#t)))))))
|
||||
Loading…
Reference in New Issue
Block a user