diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-01-01 23:39:28 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-01-01 23:39:28 +0000 |
| commit | 331ff8fe93b6cee63593dcad6b7a9c235bac946d (patch) | |
| tree | 0c7ef9cb2096a70ff415cb50a0cad629e4fbe792 /src/interp/i-syscmd.boot | |
| parent | 2a4104845c1ad1bda28d9d03e6e29925479b1cff (diff) | |
| download | open-axiom-331ff8fe93b6cee63593dcad6b7a9c235bac946d.tar.gz | |
Symbol cleanups
Diffstat (limited to 'src/interp/i-syscmd.boot')
| -rw-r--r-- | src/interp/i-syscmd.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/i-syscmd.boot b/src/interp/i-syscmd.boot index 2f7a46f2..ebc9a534 100644 --- a/src/interp/i-syscmd.boot +++ b/src/interp/i-syscmd.boot @@ -2164,7 +2164,7 @@ dewritify ob == oname := ob.2 f := integer? oname => eval GENSYMMER oname - SYMBOL_-FUNCTION oname + symbolFunction oname not COMPILED_-FUNCTION_-P f => error '"A required BPI does not exist." #ob > 3 and HASHEQ f ~= ob.3 => @@ -2188,7 +2188,7 @@ dewritify ob == name := ob.3 not FBOUNDP name => error strconc('"undefined function: ", symbolName name) - nob := [SYMBOL_-FUNCTION name,:vec] + nob := [symbolFunction name,:vec] HPUT($seen, ob, nob) HPUT($seen, nob, nob) nob |