ref: 09f8117ea12325c84223b1a9343751c8c8cbe30f
parent: 9e0a5c0c9bfcb4fe6b4b91149ffff93f3a9e8766
author: spew <spew@cbza.org>
date: Sat Mar 1 17:37:07 EST 2025
slrc in its right place
binary files a/boot/sl.boot.builtin b/boot/sl.boot.builtin differ
--- a/src/system.lsp
+++ b/src/system.lsp
@@ -1128,7 +1128,10 @@
(("macos") (princ "\x1b]0;StreetLISP v0.999\007") nil)(else "HOME")))
(home (and homevar (os-getenv homevar)))
- (fname (and home (string home *directory-separator* ".slrc"))))
+ (rcpath (case *os-name*
+ (("plan9") "lib/slrc")+ (else ".slrc")))
+ (fname (and home (string home *directory-separator* rcpath))))
(when (and fname (path-exists? fname)) (load fname))))
(def (__start argv)
--
⑨