aboutsummaryrefslogtreecommitdiff
path: root/src/interp/g-util.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/g-util.boot')
-rw-r--r--src/interp/g-util.boot3
1 files changed, 2 insertions, 1 deletions
diff --git a/src/interp/g-util.boot b/src/interp/g-util.boot
index 73d2e4a0..ba63390b 100644
--- a/src/interp/g-util.boot
+++ b/src/interp/g-util.boot
@@ -109,7 +109,8 @@ isSharpVarWithNum x ==
++ Returns true if `x' is either an atom or a quotation.
atomic? x ==
- not cons? x or x.op = 'QUOTE
+ cons? x => x.op is 'QUOTE
+ true
--% Sub-domains information handlers