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 64364130..13c24611 100644 --- a/src/interp/ax.boot +++ b/src/interp/ax.boot @@ -173,9 +173,9 @@ axFormatType(typeform) == axAddLiteral('integer, 'PositiveInteger, 'Literal) ['RestrictTo, ['LitInteger, STRINGIMAGE typeform ], 'PositiveInteger] FLOATP typeform => ['LitFloat, STRINGIMAGE typeform] - MEMQ(typeform,$TriangleVariableList) => + symbolMember?(typeform,$TriangleVariableList) => SUBLISLIS($FormalMapVariableList, $TriangleVariableList, typeform) - MEMQ(typeform, $FormalMapVariableList) => typeform + symbolMember?(typeform, $FormalMapVariableList) => typeform axAddLiteral('string, 'Symbol, 'Literal) ['RestrictTo, ['LitString, symbolName typeform], 'Symbol] typeform is ['construct,: args] => |