diff options
Diffstat (limited to 'src/interp/modemap.boot')
-rw-r--r-- | src/interp/modemap.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/modemap.boot b/src/interp/modemap.boot index 5197dfae..6d0c700b 100644 --- a/src/interp/modemap.boot +++ b/src/interp/modemap.boot @@ -237,7 +237,7 @@ augModemapsFromDomain(name,functorForm,e) == augModemapsFromDomain1(name,functorForm,e) augModemapsFromDomain1(name,functorForm,e) == - GETL(KAR functorForm,"makeFunctionList") => + property(KAR functorForm,"makeFunctionList") => addConstructorModemaps(name,functorForm,e) atom functorForm and (catform:= getmode(functorForm,e)) => augModemapsFromCategory(name,name,functorForm,catform,e) @@ -345,7 +345,7 @@ substNames(domainName,viewName,functorForm,opalist) == addConstructorModemaps(name,form is [functorName,:.],e) == $InteractiveMode: local:= nil e:= putDomainsInScope(name,e) --frame - fn := GETL(functorName,"makeFunctionList") + fn := property(functorName,"makeFunctionList") [funList,e]:= FUNCALL(fn,name,form,e) for [op,sig,opcode] in funList repeat if opcode is [sel,dc,n] and sel='ELT then |