make-system-image: correct indentation and cleanup

Sigrid Solveig Haflínudóttir committed 3 months ago

Commit 78fc4e11 parent e68cd5f2 files · +9 −10Browse files

Showing the changes to src (1 of 2 files). Show all

Unified · Split

src/system.sl+7−8

@@ -3648,14 +3648,13 @@ · 3647 unmodified lines
3648	(let {[includes '(syntax-environment properties builtins)]	3648	(let {[includes '(syntax-environment properties builtins)]
3649	[excludes '(ptr)]}	3649	[excludes '(ptr)]}
3650	(or (memq s includes)	3650	(or (memq s includes)
3651	(and (bound? s)	3651	(and (bound? s) (not (const? s))
3652	(not (const? s))	3652	(or (not (builtin? (top-level-value s)))
3653	(or (not (builtin? (top-level-value s)))	3653	(not (equal? (str s) ; alias of a builtin
3654	(not (equal? (str s) ; alias of a builtin	3654	(str (top-level-value s)))))
3655	(str (top-level-value s)))))	3655	(not (memq s excludes))
3656	(not (memq s excludes))	3656	(not (<= 'a s 'z))
3657	(not (or (<= 'a s 'z) (<= '+a s '+z)))	3657	(not (io? (top-level-value s)))))))
3658	(not (io? (top-level-value s)))))))
3659	(let* {[f (file filename :write :create :truncate)]	3658	(let* {[f (file filename :write :create :truncate)]
3660	[syms (filter save? (sort (environment) <))]	3659	[syms (filter save? (sort (environment) <))]
3661	[data (apply nconc (map list syms (map top-level-value syms)))]}	3660	[data (apply nconc (map list syms (map top-level-value syms)))]}