ref: 639b8db6fae7080d591b6bc53ba77ebda78fa24f
parent: 20bf8ab65ca9fa4c0e8d08ac0f4972de8d611d46
author: mag <mag-one@autistici.org>
date: Tue Apr 4 15:56:33 EDT 2023
startup script in interactive sessions
--- a/system.lsp
+++ b/system.lsp
@@ -1045,6 +1045,13 @@
(lambda (e) (begin (top-level-exception-handler e)
(exit 1)))))
+(define (__rcscript)
+ (let ((fname (case *os-name*
+ ((unknown) "")
+ ((plan9) (string (os.getenv "home") "/lib/flisprc"))
+ (else (string (os.getenv "HOME") "/.flisprc")))))
+ (if (path.exists? fname) (load fname))))
+
(define (__start argv)
(__init_globals)
(if (pair? (cdr argv))
@@ -1054,5 +1061,6 @@
(begin (set! *argv* argv)
(set! *interactive* #t)
(princ *banner*)
+ (__rcscript)
(repl)))
(exit 0))
--
⑨