14 lines
501 B
Diff
14 lines
501 B
Diff
diff --git a/libraries/http/server b/libraries/http/server
|
|
index 47127b8f..a51bd17f 100644
|
|
--- a/libraries/http/server
|
|
+++ b/libraries/http/server
|
|
@@ -148,7 +148,7 @@
|
|
(display "<folder> ")
|
|
; list folder:
|
|
(define Out (pipe))
|
|
- (define Pid (system (list "/bin/sh" "-c" (string-append
|
|
+ (define Pid (execvp (list "/bin/sh" "-c" (string-append
|
|
"ls -lah " filename)) #f Out))
|
|
|
|
(send "HTTP/1.0 200 OK\n"
|