diff options
Diffstat (limited to 'src/boot/ast.boot')
| -rw-r--r-- | src/boot/ast.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/boot/ast.boot b/src/boot/ast.boot index 46d5a589..0d8bd1b5 100644 --- a/src/boot/ast.boot +++ b/src/boot/ast.boot @@ -200,7 +200,7 @@ bfColonAppend(x,y) == bfBeginsDollar: %Thing -> %Boolean bfBeginsDollar x == - (PNAME x).0 = char "$" + stringChar(PNAME x,0) = char "$" compFluid id == ["FLUID",id] @@ -745,7 +745,7 @@ defQuoteId x== x is ["QUOTE",:.] and symbol? second x bfChar? x == - char? x or cons? x and first x in '(char abstractChar) + char? x or cons? x and first x in '(char CODE_-CHAR SCHAR) bfSmintable x== integer? x or cons? x and first x in '(SIZE LENGTH QENUM) |