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