20 lines
350 B
Scheme
20 lines
350 B
Scheme
(module utils
|
|
(get-env-var
|
|
set-working-directory
|
|
to-absolute-pathname
|
|
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")
|