diff options
Diffstat (limited to 'src/interp/astr.boot')
-rw-r--r-- | src/interp/astr.boot | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/interp/astr.boot b/src/interp/astr.boot index 466185bb..abbac83c 100644 --- a/src/interp/astr.boot +++ b/src/interp/astr.boot @@ -45,18 +45,18 @@ module astr where -- Pick off the tag ncTag x == - atom x => ncBug('S2CB0031,[]) + x isnt [.,:.] => ncBug('S2CB0031,[]) x := first x ident? x => x - atom x => ncBug('S2CB0031,[]) + x isnt [.,:.] => ncBug('S2CB0031,[]) first x -- Pick off the property list ncAlist x == - atom x => ncBug('S2CB0031,[]) + x isnt [.,:.] => ncBug('S2CB0031,[]) x := first x ident? x => nil - atom x => ncBug('S2CB0031,[]) + x isnt [.,:.] => ncBug('S2CB0031,[]) rest x --- Get the entry for key k on x's association list |