The Lambda Lab
/
projects
/
scratchy.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Removed code specific to chicken 4.x.
[scratchy.git]
/
burrower.scm
diff --git
a/burrower.scm
b/burrower.scm
index
f9604a7
..
9db8599
100644
(file)
--- a/
burrower.scm
+++ b/
burrower.scm
@@
-1,6
+1,10
@@
+;;; Burrower gopher server
+;;
+;; Requires Chicken 5.0.0.
+;;
+
;;; Imports
;;; Imports
-;; Chicken 5
(import (chicken tcp)
(chicken port)
(chicken io)
(import (chicken tcp)
(chicken port)
(chicken io)
@@
-13,9
+17,6
@@
(chicken process-context)
srfi-1 srfi-13 matchable)
(chicken process-context)
srfi-1 srfi-13 matchable)
-;; Chicken 4
-;; (use srfi-1 srfi-13 tcp posix matchable)
-
;;; Global constants
(define gopher-index-filename "index")
;;; Global constants
(define gopher-index-filename "index")
@@
-329,9
+330,9
@@
(config-port-set! config (string->number (caddr args))))
(run-server config)))))))
(config-port-set! config (string->number (caddr args))))
(run-server config)))))))
-
;;
(main)
+(main)
-(define (test)
- (run-server (make-config "gopher-root" "localhost" 70 #t)))
+
;;
(define (test)
+
;;
(run-server (make-config "gopher-root" "localhost" 70 #t)))
-(test)
+
;;
(test)