aboutsummaryrefslogtreecommitdiff
path: root/src/interp/clammed.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/clammed.boot')
-rw-r--r--src/interp/clammed.boot8
1 files changed, 4 insertions, 4 deletions
diff --git a/src/interp/clammed.boot b/src/interp/clammed.boot
index 5462d0ee..18632214 100644
--- a/src/interp/clammed.boot
+++ b/src/interp/clammed.boot
@@ -82,7 +82,7 @@ isValidType form ==
and/[isValidType type for [:.,type] in selectors]
form is ['Enumeration,:args] =>
null (and/[IDENTP x for x in args]) => false
- ((# args) = (# REMDUP args)) => true
+ ((# args) = (# removeDuplicates args)) => true
false
form is ['Mapping,:mapargs] =>
null mapargs => NIL
@@ -92,7 +92,7 @@ isValidType form ==
args and first args is [":",:.] =>
and/[isValidType type for [:.,type] in args]
null (and/[isValidType arg for arg in args]) => NIL
- ((# args) = (# REMDUP args)) => true
+ ((# args) = (# removeDuplicates args)) => true
sayKeyedMsg("S2IR0005",[form])
NIL
@@ -199,12 +199,12 @@ isLegitimateMode(t,hasPolyMode,polyVarList) ==
-- check for tagged union
ml and first ml is [":",:.] => isLegitimateRecordOrTaggedUnion ml
null (and/[isLegitimateMode(m,nil,nil) for m in ml]) => false
- ((# ml) = (# REMDUP ml)) => true
+ ((# ml) = (# removeDuplicates ml)) => true
false
t is ['Record,:r] => isLegitimateRecordOrTaggedUnion r
t is ['Enumeration,:r] =>
null (and/[IDENTP x for x in r]) => false
- ((# r) = (# REMDUP r)) => true
+ ((# r) = (# removeDuplicates r)) => true
false
false