diff options
Diffstat (limited to 'src/interp/define.boot')
| -rw-r--r-- | src/interp/define.boot | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/interp/define.boot b/src/interp/define.boot index 6a2aecbb..42414d08 100644 --- a/src/interp/define.boot +++ b/src/interp/define.boot @@ -299,7 +299,7 @@ compDefine1(form,m,e) == null $form => stackAndThrow ['"bad == form ",form] newPrefix:= $prefix => INTERN STRCONC(encodeItem $prefix,'",",encodeItem $op) - getAbbreviation($op,#rest $form) + getConstructorAbbreviationFromDB $op compDefineCapsuleFunction(form,m,e,newPrefix,$formalArgList) compDefineAddSignature([op,:argl],signature,e) == @@ -1492,6 +1492,9 @@ doIt(item,$predl) == item is ["%Inline",type] => processInlineRequest(type,$e) mutateToNothing item + item is ["%SignatureImport",:.] => + [.,.,$e] := compSignatureImport(item,$EmptyMode,$e) + mutateToNothing item item is ["IF",:.] => doItIf(item,$predl,$e) item is ["where",b,:l] => compOrCroak(item,$EmptyMode,$e) item is ["MDEF",:.] => [.,.,$e]:= compOrCroak(item,$EmptyMode,$e) |