windows: set directory-separator to '\'

Sigrid Solveig Haflínudóttir committed 2 months ago

Commit 0934c6f1 parent 2d57af52 files · +4 −3Browse files

Unified · Split

2 files

boot/sl.boot +3 −2
src/system.sl +1 −1

boot/sl.boot+3−2

@@ -695,10 +695,11 @@ Instructions #table(call.l #u8(75) trycatch #u8(65) loadg.l #u8(68) aref2 #u8 · 694 unmodified lines
695	695	S #fn("r1708021D953863908681z2:72238062:" #(getprop constructor error "no default constructor for struct: ") 8)
696	696	__finish #fn("A120Z3?0212280>17062:D9:" #(exit-hooks #fn(for-each)
697	697	#fn("A1809061:" 6)) 7)
698		−__init_globals #fn("A0F8I04FpI1422I34D9I4475I6477I8479I:47;2<d3702=@402>I?47;2@d3702A@402BIC:" #(exception-print-level
	698	+__init_globals #fn("A0F8I04FpI1422I34D9I4475I6477I8479I:47;2<d3702=@402>I?47@7;2A523702B@402CID:" #(exception-print-level
699	699	exception-print-length "\n" linefeed exit-hooks stdout io-out stdin io-in stderr
700	700	io-err +os-name+ "macos" #fn("A0702161:" #(princ "\e[0m\e[1m#;> \e[0m") 6)
701		−#fn("A0702161:" #(princ "#;> ") 6) prompt "dos" "\\" "/" directory-separator) 6)
	701	+#fn("A0702161:" #(princ "#;> ") 6) prompt member ("dos" "windows") "\\" "/"
	702	+directory-separator) 7)
702	703	__rcscript #fn("A0708421c370D9@U08422c37023@H08424c3>07526514D9@4027^184;3904288451708622c37029@402:^185;3=042;857<865387;3D042=8751;39047>8761:" #(+os-name+
703	704	"unknown" "plan9" "home" "macos" princ "\e]0;StreetLISP v0.999\a" "HOME" #fn(os-getenv) "lib/slrc"
704	705	".slrc" #fn(str) directory-separator #fn(path-exists?) load) 11)

src/system.sl+1−1

@@ -3684,7 +3684,7 @@ · 3683 unmodified lines
3684	3684	prompt (if (equal? +os-name+ "macos")
3685	3685	(λ () (princ "\x1b[0m\x1b[1m#;> \x1b[0m"))
3686	3686	(λ () (princ "#;> ")))
3687		− directory-separator (if (equal? +os-name+ "dos")
	3687	+ directory-separator (if (member +os-name+ '("dos" "windows"))
3688	3688	"\\"
3689	3689	"/")))
3690	3690