forked from alex-eg/sex
alex-eg
e0a228c66e
A dropped datum is replaced by whatever follows it, but what follows may be the end of the file or the paren closing the list we are in. Hand the token back to the caller instead: read-list closes its list with it and the toplevel loop stops. A `;' comment between a guard and the form it guards was also taken for the guarded datum, so the form stayed unconditional and the guard did nothing. Skip comments when reading the guard. comment-form? was defined three times over; it moves to utils.
21 lines
369 B
Scheme
21 lines
369 B
Scheme
(module utils
|
|
(get-env-var
|
|
set-working-directory
|
|
to-absolute-pathname
|
|
comment-form?
|
|
list-split
|
|
list-join
|
|
recons
|
|
current-source-file
|
|
set-form-source!
|
|
form-source
|
|
form-file
|
|
form-line
|
|
copy-form-source!
|
|
stamp-form-source!
|
|
form-location
|
|
sex-error
|
|
with-directory
|
|
)
|
|
"../../utils.scm")
|