aboutsummaryrefslogtreecommitdiff
path: root/src/interp/cattable.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/cattable.boot')
-rw-r--r--src/interp/cattable.boot4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/cattable.boot b/src/interp/cattable.boot
index 977ae46b..17b3c60c 100644
--- a/src/interp/cattable.boot
+++ b/src/interp/cattable.boot
@@ -347,7 +347,7 @@ getConstrCat(x) ==
-- gets a different representation of the constructorCategory from the
-- lisplib, which is a list of named categories or conditions
x:= if x is ['Join,:y] then y else [x]
- cats:= NIL
+ cats:= nil
for y in x repeat
y is ['CATEGORY,.,:z] =>
for zz in z repeat cats := makeCatPred(zz, cats, true)
@@ -435,7 +435,7 @@ compressSexpr(x,left,right) ==
squeezeList(l) ==
-- changes the list l, so that is has maximal sharing of cells
- $found:local:= NIL
+ $found:local:= nil
squeeze1 l
squeeze1(l) ==