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