diff options
author | dos-reis <gdr@axiomatics.org> | 2010-05-28 03:23:16 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2010-05-28 03:23:16 +0000 |
commit | 6058b44d19c4c9a101cfbb94923d7abd565010ee (patch) | |
tree | 51c89bf8b49d5339f4f65139c62f298f9ed0a107 /src/interp/sys-utility.boot | |
parent | e8df6a1fe9e9f218b8d9147a3de55f6d60fcc080 (diff) | |
download | open-axiom-6058b44d19c4c9a101cfbb94923d7abd565010ee.tar.gz |
* interp/sys-utility.boot (eval): Define here.
* interp/br-con.boot: Use it.
* interp/br-op1.boot: Likewise.
* interp/br-saturn.boot: Likewise.
* interp/cattable.boot: Likewise.
* interp/ht-util.boot: Likewise.
* interp/htsetvar.boot: Likewise.
* interp/i-funsel.boot: Likewise.
* interp/i-syscmd.boot: Likewise.
* interp/interop.boot: Likewise.
* interp/server.boot: Likewise.
* interp/showimp.boot: Likewise.
* interp/trace.boot: Likewise.
* interp/sys-macros.lisp (eval): Move to sys-utility.boot.
Diffstat (limited to 'src/interp/sys-utility.boot')
-rw-r--r-- | src/interp/sys-utility.boot | 13 |
1 files changed, 10 insertions, 3 deletions
diff --git a/src/interp/sys-utility.boot b/src/interp/sys-utility.boot index 3a3bda71..e3e99724 100644 --- a/src/interp/sys-utility.boot +++ b/src/interp/sys-utility.boot @@ -38,8 +38,15 @@ import vmlisp namespace BOOT module sys_-utility where + eval: %Thing -> %Thing probleReadableFile : %String -> %Maybe %String + +++ Evaluate an OpenAxiom VM form. Eventually, this function is +++ to be provided as a builtin by a OpenAxiom target machine. +eval x == + EVAL expandToVMForm x + --% $COMBLOCKLIST := nil @@ -256,15 +263,15 @@ bitior(x,y) == ++ compile a function definition, augmenting the current ++ evaluation environement with the result of the compilation. COMPILE_-DEFUN(name,body) == - EVAL body + eval body COMPILE name ++ Augment the current evaluation environment with a function definition. EVAL_-DEFUN(name,body) == - EVAL MACROEXPANDALL body + eval MACROEXPANDALL body PRINT_-AND_-EVAL_-DEFUN(name,body) == - EVAL body + eval body PRINT_-DEFUN(name,body) |