diff options
Diffstat (limited to 'src/interp/ax.boot')
| -rw-r--r-- | src/interp/ax.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/ax.boot b/src/interp/ax.boot index 0a15dd87..80af0206 100644 --- a/src/interp/ax.boot +++ b/src/interp/ax.boot @@ -220,10 +220,10 @@ axFormatType(typeform) == for type in args]] typeform is ['Dictionary,['Record,:args]] => ['Apply, 'Dictionary, - ['PretendTo, axFormatType CADR typeform, 'SetCategory]] + ['PretendTo, axFormatType second typeform, 'SetCategory]] typeform is ['FileCategory,xx,['Record,:args]] => ['Apply, 'FileCategory, axFormatType xx, - ['PretendTo, axFormatType CADDR typeform, 'SetCategory]] + ['PretendTo, axFormatType third typeform, 'SetCategory]] typeform is [op,:args] => $pretendFlag and constructor? op and getConstructorModemapFromDB op is [[.,target,:argtypes],.] => |