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

 S #fn("r1708021D953863908681z2:72238062:" #(getprop constructor error "no default constructor for struct: ") 8)
 __finish #fn("A120Z3?0212280>17062:D9:" #(*exit-hooks* #fn(for-each)
 #fn("A1809061:" 6)) 7)
-__init_globals #fn("A0F8I04FpI1422I34D9I4475I6477I8479I:47;2<d3702=@402>I?47;2@d3702A@402BIC:" #(*exception-print-level*
+__init_globals #fn("A0F8I04FpI1422I34D9I4475I6477I8479I:47;2<d3702=@402>I?47@7;2A523702B@402CID:" #(*exception-print-level*
 *exception-print-length* "\n" *linefeed* *exit-hooks* *stdout* *io-out* *stdin* *io-in* *stderr*
 *io-err* +os-name+ "macos" #fn("A0702161:" #(princ "\e[0m\e[1m#;> \e[0m") 6)
-#fn("A0702161:" #(princ "#;> ") 6) *prompt* "dos" "\\" "/" *directory-separator*) 6)
+#fn("A0702161:" #(princ "#;> ") 6) *prompt* member ("dos" "windows") "\\" "/"
+*directory-separator*) 7)
 __rcscript #fn("A0708421c370D9@U08422c37023@H08424c3>07526514D9@4027^184;3904288451708622c37029@402:^185;3=042;857<865387;3D042=8751;39047>8761:" #(+os-name+
 "unknown" "plan9" "home" "macos" princ "\e]0;StreetLISP v0.999\a" "HOME" #fn(os-getenv) "lib/slrc"
 ".slrc" #fn(str) *directory-separator* #fn(path-exists?) load) 11)

@@ -3684,7 +3684,7 @@ · 3683 unmodified lines
3684	prompt (if (equal? +os-name+ "macos")	3684	prompt (if (equal? +os-name+ "macos")
3685	(λ () (princ "\x1b[0m\x1b[1m#;> \x1b[0m"))	3685	(λ () (princ "\x1b[0m\x1b[1m#;> \x1b[0m"))
3686	(λ () (princ "#;> ")))	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

Keyboard shortcuts