diff options
Diffstat (limited to 'src/interp/i-eval.boot')
-rw-r--r-- | src/interp/i-eval.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/i-eval.boot b/src/interp/i-eval.boot index 574cbcb0..eed39efe 100644 --- a/src/interp/i-eval.boot +++ b/src/interp/i-eval.boot @@ -163,7 +163,7 @@ evaluateFormAsType form == form is [op,:args] and constructor? op => evaluateType1 form t := mkAtree form -- ??? Maybe we should be more careful about generalized types. - bottomUp t is [m] and (m in $LangSupportTypes or isCategoryForm(m,$e)) => + bottomUp t is [m] and (member(m,$LangSupportTypes) or isCategoryForm(m,$e)) => objVal getValue t throwEvalTypeMsg("S2IE0004",[form]) |