diff options
author | dos-reis <gdr@axiomatics.org> | 2008-04-24 10:14:50 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2008-04-24 10:14:50 +0000 |
commit | fe07321807b8be45945bd445abd7d93ad9c8f513 (patch) | |
tree | 609517c78061a0ad5a370902a6a7357852037db9 /src/interp/i-util.boot | |
parent | 695a6c656681918abe4b20e04470dd266b4f6bbe (diff) | |
download | open-axiom-fe07321807b8be45945bd445abd7d93ad9c8f513.tar.gz |
Remove duplicate junk.
Diffstat (limited to 'src/interp/i-util.boot')
-rw-r--r-- | src/interp/i-util.boot | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/interp/i-util.boot b/src/interp/i-util.boot index e301536d..8c10a164 100644 --- a/src/interp/i-util.boot +++ b/src/interp/i-util.boot @@ -163,7 +163,8 @@ HasSignature(domain,[op,sig]) == -- MEMQ(opOf(catform),'(Object Type)) or --temporary hack -- or/[compareSigEqual(catform,cat,domain0,domain) for cat in catlist] -makeInitialModemapFrame() == COPY $InitialModemapFrame +makeInitialModemapFrame() == + COPY $InitialModemapFrame isCapitalWord x == (y := PNAME x) and and/[UPPER_-CASE_-P y.i for i in 0..MAXINDEX y] |