diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-07-03 00:01:49 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-07-03 00:01:49 +0000 |
| commit | 2a1884f21c2de5c43dab64c5c438230e4a29c612 (patch) | |
| tree | 3699f59eafdfce79468c1bf20070063387c26691 /src/interp/sys-utility.boot | |
| parent | b4c802eb28e2d66b93d0c888f0cd47fd13ffcf44 (diff) | |
| download | open-axiom-2a1884f21c2de5c43dab64c5c438230e4a29c612.tar.gz | |
(compAndDefine): Capture by name, not pointer.
(compQuietly): Likewise.
(compileQuietly): Likewise.
* interp/macros.lisp (PRINT-AND-EVAL-DEFUN): Move to sys-utility.boot.
(EVAL-DEFUN): Likewise.
(COMPILE-DEFUN): Likewise.
Diffstat (limited to 'src/interp/sys-utility.boot')
| -rw-r--r-- | src/interp/sys-utility.boot | 20 |
1 files changed, 19 insertions, 1 deletions
diff --git a/src/interp/sys-utility.boot b/src/interp/sys-utility.boot index cff7ff0f..82fb11e2 100644 --- a/src/interp/sys-utility.boot +++ b/src/interp/sys-utility.boot @@ -190,7 +190,7 @@ loadModule(path,name) == FMAKUNBOUND name LOAD path ---% numericis +--% numerics log10 x == LOG(x,10) @@ -202,3 +202,21 @@ bitior: (%Short,%Short) -> %Short bitior(x,y) == BOOLE(BOOLE_-IOR,x,y) + +--% Back ends + +++ compile a function definition, augmenting the current +++ evaluation environement with the result of the compilation. +COMPILE_-DEFUN(name,body) == + EVAL body + COMPILE name + +++ Augment the current evaluation environment with a function definition. +EVAL_-DEFUN(name,body) == + EVAL MACROEXPANDALL body + +PRINT_-AND_-EVAL_-DEFUN(name,body) == + EVAL body + PRINT_-DEFUN(name,body) + + |