diff options
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) + + |