diff options
Diffstat (limited to 'src/interp/c-util.boot')
| -rw-r--r-- | src/interp/c-util.boot | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/src/interp/c-util.boot b/src/interp/c-util.boot index a2691741..4b3647d3 100644 --- a/src/interp/c-util.boot +++ b/src/interp/c-util.boot @@ -350,9 +350,14 @@ isFunction(x,e) == get(x,"modemap",e) or GETL(x,"SPECIAL") or x="case" or getmode(x,e) is [ "Mapping",:.] -isLiteral(x,e) == get(x,"isLiteral",e) +isLiteral: (%Symbol,%Env) -> %Boolean +isLiteral(x,e) == + get(x,"isLiteral",e) -makeLiteral(x,e) == put(x,"isLiteral","true",e) + +makeLiteral: (%Symbol,%Env) -> %Thing +makeLiteral(x,e) == + put(x,"isLiteral","true",e) isSomeDomainVariable s == IDENTP s and #(x:= PNAME s)>2 and x.(0)="#" and x.(1)="#" |