aboutsummaryrefslogtreecommitdiff
path: root/src/interp/i-eval.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/i-eval.boot')
-rw-r--r--src/interp/i-eval.boot2
1 files changed, 2 insertions, 0 deletions
diff --git a/src/interp/i-eval.boot b/src/interp/i-eval.boot
index ef02faf9..e857253d 100644
--- a/src/interp/i-eval.boot
+++ b/src/interp/i-eval.boot
@@ -55,6 +55,8 @@ mkEvalable form ==
op="Union" => mkEvalableUnion form
op="Mapping"=> mkEvalableMapping form
op="Enumeration" => form
+ -- a niladic constructor instantiation goes by itself
+ constructor? op and argl = nil => form
loadIfNecessary op
kind:= getConstructorKindFromDB op
cosig := getDualSignatureFromDB op =>