diff options
Diffstat (limited to 'src/interp/astr.boot')
| -rw-r--r-- | src/interp/astr.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/astr.boot b/src/interp/astr.boot index 9597e934..466185bb 100644 --- a/src/interp/astr.boot +++ b/src/interp/astr.boot @@ -47,7 +47,7 @@ module astr where ncTag x == atom x => ncBug('S2CB0031,[]) x := first x - IDENTP x => x + ident? x => x atom x => ncBug('S2CB0031,[]) first x @@ -55,7 +55,7 @@ ncTag x == ncAlist x == atom x => ncBug('S2CB0031,[]) x := first x - IDENTP x => nil + ident? x => nil atom x => ncBug('S2CB0031,[]) rest x |