diff options
Diffstat (limited to 'src/interp/g-util.boot')
| -rw-r--r-- | src/interp/g-util.boot | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/interp/g-util.boot b/src/interp/g-util.boot index 6e81bee5..a2815575 100644 --- a/src/interp/g-util.boot +++ b/src/interp/g-util.boot @@ -38,6 +38,7 @@ import sys_-utility namespace BOOT module g_-util where + isAtomicForm: %Form -> %Boolean getTypeOfSyntax: %Form -> %Mode pairList: (%List,%List) -> %List mkList: %List -> %List @@ -66,6 +67,10 @@ isSharpVarWithNum x == ok := DIGITP d => c := 10*c + DIG2FIX d if ok then c else nil +++ Returns true if `form' is either an atom or a quotation. +isAtomicForm form == + atom form or first form = "QUOTE" + --% Sub-domains information handlers |