use SCHEME-WITH-SCSH instead of SCSH and SCHEME

This commit is contained in:
interp 2002-12-08 15:49:27 +00:00
parent d705974612
commit 7f7eb610d8
13 changed files with 13 additions and 26 deletions

View File

@ -3,8 +3,7 @@
httpd-requests httpd-requests
httpd-responses httpd-responses
url url
scsh scheme-with-scsh)
scheme)
(begin (begin
(define (get-number input-text . maybe-title) (define (get-number input-text . maybe-title)

View File

@ -4,8 +4,7 @@
url url
handle-fatal-error handle-fatal-error
let-opt let-opt
scsh scheme-with-scsh)
scheme)
(begin (begin
(define number-input-field (make-number-input-field '(@ (maxlength 10)))) (define number-input-field (make-number-input-field '(@ (maxlength 10))))

View File

@ -1,6 +1,5 @@
(define-structure servlet servlet-interface (define-structure servlet servlet-interface
(open scsh (open scheme-with-scsh
scheme
handle-fatal-error handle-fatal-error
let-opt let-opt
servlets servlets

View File

@ -1,6 +1,5 @@
(define-structure servlet servlet-interface (define-structure servlet servlet-interface
(open scsh (open scheme-with-scsh
scheme
servlets servlets
servlet-handler/admin servlet-handler/admin
profiling profiling

View File

@ -1,6 +1,5 @@
(define-structure servlet servlet-interface (define-structure servlet servlet-interface
(open scsh (open scheme-with-scsh
scheme
servlets servlets
servlet-handler/admin servlet-handler/admin
httpd-responses httpd-responses

View File

@ -1,6 +1,5 @@
(define-structure servlet servlet-interface (define-structure servlet servlet-interface
(open scsh (open scheme-with-scsh
scheme
servlets servlets
servlet-handler/admin servlet-handler/admin
httpd-responses httpd-responses

View File

@ -1,6 +1,5 @@
(define-structure servlet servlet-interface (define-structure servlet servlet-interface
(open scsh (open scheme-with-scsh
scheme
servlets servlets
servlet-handler/admin servlet-handler/admin
) )

View File

@ -3,8 +3,7 @@
httpd-requests httpd-requests
handle-fatal-error handle-fatal-error
url url
scsh scheme-with-scsh)
scheme)
(begin (begin
;; This doesn't use c-a-l-l-b-a-c-k-s anymore. ;; This doesn't use c-a-l-l-b-a-c-k-s anymore.

View File

@ -3,8 +3,7 @@
httpd-requests httpd-requests
handle-fatal-error handle-fatal-error
let-opt let-opt
scsh scheme-with-scsh)
scheme)
(begin (begin
;; This uses callbacks. ;; This uses callbacks.

View File

@ -3,8 +3,7 @@
httpd-requests httpd-requests
handle-fatal-error handle-fatal-error
let-opt let-opt
scsh scheme-with-scsh)
scheme)
(begin (begin
;; This doesn't use c-a-l-l-b-a-c-k-s anymore. ;; This doesn't use c-a-l-l-b-a-c-k-s anymore.

View File

@ -1,6 +1,5 @@
(define-structure servlet servlet-interface (define-structure servlet servlet-interface
(open scsh (open scheme-with-scsh
scheme
servlets servlets
crlf-io) crlf-io)
(begin (begin

View File

@ -1,6 +1,5 @@
(define-structure servlet servlet-interface (define-structure servlet servlet-interface
(open scsh (open scheme-with-scsh
scheme
simple-servlet-api) simple-servlet-api)
(begin (begin

View File

@ -1,6 +1,5 @@
(define-structure servlet servlet-interface (define-structure servlet servlet-interface
(open scsh (open scheme-with-scsh
scheme
servlets servlets
let-opt let-opt
receiving receiving