diff options
Diffstat (limited to 'src/interp/nrunopt.boot')
| -rw-r--r-- | src/interp/nrunopt.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/nrunopt.boot b/src/interp/nrunopt.boot index d83087d8..2e943e3f 100644 --- a/src/interp/nrunopt.boot +++ b/src/interp/nrunopt.boot @@ -266,7 +266,7 @@ makePredicateBitVector pl == --called by buildFunctor [$lisplibPredicates,firstCode,:lastCode] --$pairlis set by compDefineFunctor1 augmentPredCode(n,lastPl) == - ['%listlit,:pl] := mungeAddGensyms(lastPl,$predGensymAlist) + ['%list,:pl] := mungeAddGensyms(lastPl,$predGensymAlist) delta := 2 ** n l := [(u := MKPF([x,['augmentPredVector,"$",delta]],'AND); delta:=2 * delta; u) for x in pl] @@ -308,7 +308,7 @@ transHasCode x == [transHasCode y for y in x] mungeAddGensyms(u,gal) == - ['%listlit,:[fn(x,gal,0) for x in u]] where fn(x,gal,n) == + ['%list,:[fn(x,gal,0) for x in u]] where fn(x,gal,n) == atom x => x g := LASSOC(x,gal) => n = 0 => ["%LET",g,x] |