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
Damn you parinfer.. :-)
[scratchy.git]
/
burrower.scm
diff --git
a/burrower.scm
b/burrower.scm
index
8829de4
..
62aa853
100644
(file)
--- a/
burrower.scm
+++ b/
burrower.scm
@@
-115,8
+115,8
@@
(regular-file? filename)))
(define (serve-directory selector config)
(regular-file? filename)))
(define (serve-directory selector config)
- (let ((filename (make-pathname (list (config-root-dir config) selector
-
gopher-index-filename)
)))
+ (let ((filename (make-pathname (list (config-root-dir config) selector
)
+
gopher-index-filename
)))
(if (legal-filename? filename config)
(begin
(with-input-from-file filename
(if (legal-filename? filename config)
(begin
(with-input-from-file filename