diff options
Diffstat (limited to 'src/interp/ax.boot')
| -rw-r--r-- | src/interp/ax.boot | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/interp/ax.boot b/src/interp/ax.boot index d4e8d87a..57831a7c 100644 --- a/src/interp/ax.boot +++ b/src/interp/ax.boot @@ -1,6 +1,6 @@ -- Copyright (c) 1991-2002, The Numerical Algorithms Group Ltd. -- All rights reserved. --- Copyright (C) 2007-2009, Gabriel Dos Reis. +-- Copyright (C) 2007-2010, Gabriel Dos Reis. -- All rights reserved. -- -- Redistribution and use in source and binary forms, with or without @@ -166,9 +166,9 @@ axFormatAttrib(typeform) == axFormatType(typeform) == atom typeform => typeform = '$ => '% - STRINGP typeform => + string? typeform => ['Apply,'Enumeration, INTERN typeform] - INTEGERP typeform => + integer? typeform => -- need to test for PositiveInteger vs Integer axAddLiteral('integer, 'PositiveInteger, 'Literal) ['RestrictTo, ['LitInteger, STRINGIMAGE typeform ], 'PositiveInteger] @@ -211,8 +211,8 @@ axFormatType(typeform) == valueCount := 0 for x in args repeat tag := - STRINGP x => INTERN x - x is ['QUOTE,val] and STRINGP val => INTERN val + string? x => INTERN x + x is ['QUOTE,val] and string? val => INTERN val valueCount := valueCount + 1 INTERNL("value", STRINGIMAGE valueCount) taglist := [tag ,: taglist] |