diff options
Diffstat (limited to 'src/interp/ax.boot')
| -rw-r--r-- | src/interp/ax.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/ax.boot b/src/interp/ax.boot index 294e780a..5e843b71 100644 --- a/src/interp/ax.boot +++ b/src/interp/ax.boot @@ -121,7 +121,7 @@ modemapToAx(modemap) == null args => ['Extend, ['Define, ['Declare, constructor, resultType], ['Add, ['PretendTo, ['Add, [], []], resultType], []]]] - conscat := INTERN(strconc(SYMBOL_-NAME(constructor), "ExtendCategory"),"BOOT") + conscat := INTERN(strconc(symbolName(constructor), "ExtendCategory"),"BOOT") rtype := ['Apply, conscat, :args] -- if resultType is ['With,a,b] then -- if not(b is ['Sequence,:withseq]) then withseq := [b] |