diff options
Diffstat (limited to 'src/interp/i-spec1.boot')
| -rw-r--r-- | src/interp/i-spec1.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/i-spec1.boot b/src/interp/i-spec1.boot index ffc57722..ebc27251 100644 --- a/src/interp/i-spec1.boot +++ b/src/interp/i-spec1.boot @@ -219,7 +219,7 @@ upAlgExtension t == null (canonicalAE:= coerceInteractive(T,pd)) => throwKeyedMsgCannotCoerceWithValue(objVal T,objMode T,pd) sae:= ['SimpleAlgebraicExtension,field,pd,objValUnwrap canonicalAE] - saeTypeSynonym := INTERN strconc('"SAE",STRINGIMAGE a) + saeTypeSynonym := makeSymbol strconc('"SAE",STRINGIMAGE a) saeTypeSynonymValue := objNew(sae,$Domain) fun := getFunctionFromDomain('generator,sae,NIL) expr:= wrap SPADCALL(fun) |