65 lines
1.1 KiB
Plaintext
65 lines
1.1 KiB
Plaintext
This file documents names defined in toothless.scm
|
|
|
|
|
|
|
|
|
|
NOTES
|
|
|
|
toothless.scm defines a Scheme 48 module that is R4RS without features
|
|
that could examine or effect the file system. You can also use it as a
|
|
model of how to execute code in other protected environments in S48.
|
|
|
|
|
|
|
|
|
|
DEFINITIONS AND DESCRIPTIONS
|
|
|
|
|
|
structure
|
|
loser-package
|
|
|
|
Exports:
|
|
|
|
procedure
|
|
loser name --> error
|
|
|
|
Raises an error like "Illegal call NAME".
|
|
|
|
|
|
structure
|
|
toothless
|
|
|
|
Exports everything of R4RS. Following procedures are redefined, so
|
|
they raise an error if the are called:
|
|
|
|
call-with-input-file
|
|
call-with-output-file
|
|
load
|
|
open-input-file
|
|
open-output-file
|
|
transcript-on
|
|
with-input-from-file
|
|
with-input-to-file
|
|
eval
|
|
interaction-environment
|
|
scheme-report-environment
|
|
|
|
toothless shall create an environment as described in NOTES.
|
|
|
|
|
|
structure
|
|
toothless-eval
|
|
|
|
Exports:
|
|
|
|
procedure
|
|
eval-safely expression
|
|
|
|
Creates a brand new package, imports the TOOTHLESS structure, and
|
|
evaluates EXP in it. When the evaluation is done, the environment is
|
|
thrown away, so EXP's side-effects don't persist from one EVAL-SAFELY
|
|
call to the next. If EXP raises an error exception, we abort and
|
|
return #f.
|
|
|
|
|