Create the repl history file with private permissions (as most tools are doing).
Tested on Linux, I don't know whether this works on non-POSIXy systems.
diff -r 3137e9f51f48 lib/_repl.scm
--- a/lib/_repl.scm Sun Sep 28 10:21:47 2008 -0400
+++ b/lib/_repl.scm Wed Oct 15 00:49:26 2008 +0200
@@ -2114,7 +2114,7 @@
(##display history port)
(##close-port port))))
open-output-file
- path-or-settings)))))))
+ (##cons permissions: (##cons #o600 path-or-settings)))))))))
(let ((result
(let ((input-port (macro-repl-channel-input-port channel)))
_______________________________________________
Gambit-list mailing list