diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-05-21 10:17:53 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-05-21 10:17:53 +0000 |
| commit | f87a31a02a7b0b84ed877880d9ae22253ce89671 (patch) | |
| tree | b0820800d5babdd432d9232bc8c6e685ed5de1bd /src/interp | |
| parent | 58dc9f8145468998071a2a69d3dbfb6c710eab39 (diff) | |
| download | open-axiom-f87a31a02a7b0b84ed877880d9ae22253ce89671.tar.gz | |
more cleanup
Diffstat (limited to 'src/interp')
| -rw-r--r-- | src/interp/g-util.boot | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/src/interp/g-util.boot b/src/interp/g-util.boot index 27f870ce..486a7b34 100644 --- a/src/interp/g-util.boot +++ b/src/interp/g-util.boot @@ -38,7 +38,6 @@ import sys_-utility namespace BOOT module g_-util where - atomic?: %Thing -> %Boolean getTypeOfSyntax: %Form -> %Mode pairList: (%List %Form,%List %Form) -> %List %Pair(%Form,%Form) mkList: %List %Form -> %Form @@ -107,11 +106,6 @@ isSharpVarWithNum x == ok := digit? d => c := 10*c + DIG2FIX d if ok then c else nil -++ Returns true if `x' is either an atom or a quotation. -atomic? x == - cons? x => x.op is 'QUOTE - true - --% Sub-domains information handlers ++ If `dom' is a subdomain, return its immediate super-domain. |