diff options
author | dos-reis <gdr@axiomatics.org> | 2011-02-04 00:04:31 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-02-04 00:04:31 +0000 |
commit | e2618c92315f6b544e41c9b7d4cad92adcf98655 (patch) | |
tree | 82393fded88c670ad34286063f30c20d9ad9e9e0 /src/algebra/strap/SYMBOL.lsp | |
parent | a6dfd60ca4931a8c11f0afbd4533d4c6cc960e1e (diff) | |
download | open-axiom-e2618c92315f6b544e41c9b7d4cad92adcf98655.tar.gz |
* interp/c-util.boot (mutateConditionalFormWithUnaryFunction):
Rename from mutateCONDFormWithUnaryFunction. Update callers
(mutateBindingFormWithUnaryFunction): Rename from
mutateLETFormWithUnaryFunction. Allow %bind form too.
Update callers.
Diffstat (limited to 'src/algebra/strap/SYMBOL.lsp')
-rw-r--r-- | src/algebra/strap/SYMBOL.lsp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/algebra/strap/SYMBOL.lsp b/src/algebra/strap/SYMBOL.lsp index 71fd3a5c..320352ff 100644 --- a/src/algebra/strap/SYMBOL.lsp +++ b/src/algebra/strap/SYMBOL.lsp @@ -278,7 +278,7 @@ (DEFUN |SYMBOL;latex;$S;25| (|e| $) (PROG (|ss| |lo| |sc|) (RETURN - (LET ((|s| (PNAME (SPADCALL |e| (|getShellEntry| $ 100))))) + (LET ((|s| (PNAME (|SYMBOL;name;2$;31| |e| $)))) (SEQ (COND ((< 1 (LENGTH |s|)) (COND |