diff options
Diffstat (limited to 'src/interp/i-special.boot')
-rw-r--r-- | src/interp/i-special.boot | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/interp/i-special.boot b/src/interp/i-special.boot index eb9f984d..17d3d275 100644 --- a/src/interp/i-special.boot +++ b/src/interp/i-special.boot @@ -1,6 +1,6 @@ -- Copyright (c) 1991-2002, The Numerical Algorithms Group Ltd. -- All rights reserved. --- Copyright (C) 2007-2012, Gabriel Dos Reis. +-- Copyright (C) 2007-2016, Gabriel Dos Reis. -- All rights reserved. -- -- Redistribution and use in source and binary forms, with or without @@ -1331,6 +1331,7 @@ upDEF t == ++ <%Mode>: the type of the constant. ++ T: too many constants designated by `form'. constantInDomain?(form,domainForm) == + builtinFunctorName? domainForm.op => nil opAlist := getConstructorOperationsFromDB domainForm.op key := opOf form entryList := [entry for (entry := [.,.,.,k]) in LASSOC(key,opAlist) |