diff options
author | Gabriel Dos Reis <gdr@axiomatics.org> | 2016-01-30 11:25:58 -0800 |
---|---|---|
committer | Gabriel Dos Reis <gdr@axiomatics.org> | 2016-01-30 11:25:58 -0800 |
commit | 8d6bf58510fb39efa6824cdc902a6527a90e702b (patch) | |
tree | 28566eab894085781a23d31be5774dfa8830c0cd /src/interp/lisplib.boot | |
parent | 370affc3f817800a27946302f688d62dfe654877 (diff) | |
download | open-axiom-8d6bf58510fb39efa6824cdc902a6527a90e702b.tar.gz |
Normalize spelling of mkpf.
Diffstat (limited to 'src/interp/lisplib.boot')
-rw-r--r-- | src/interp/lisplib.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/lisplib.boot b/src/interp/lisplib.boot index e2eb834d..9b18b6ca 100644 --- a/src/interp/lisplib.boot +++ b/src/interp/lisplib.boot @@ -84,7 +84,7 @@ predicateBitRef(db,x,e) == ['testBitVector,'pv_$,predicateBitIndex(db,x,e)] makePrefixForm(u,op) == - u := MKPF(u,op) + u := mkpf(u,op) u is ''T => 'T u @@ -114,7 +114,7 @@ makePredicateBitVector(db,pl,e) == --called by buildFunctor augmentPredCode(n,lastPl) == ['%list,:pl] := mungeAddGensyms(lastPl,$predGensymAlist) delta := 2 ** n - l := [(u := MKPF([x,['augmentPredVector,"$",delta]],'AND); + l := [(u := mkpf([x,['augmentPredVector,"$",delta]],'AND); delta:=2 * delta; u) for x in pl] augmentPredVector(dollar,value) == |