aboutsummaryrefslogtreecommitdiff
path: root/src/boot/includer.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/boot/includer.boot')
-rw-r--r--src/boot/includer.boot12
1 files changed, 4 insertions, 8 deletions
diff --git a/src/boot/includer.boot b/src/boot/includer.boot
index f6056139..21498198 100644
--- a/src/boot/includer.boot
+++ b/src/boot/includer.boot
@@ -66,17 +66,13 @@ module includer
--
-- ElseLines ::= )else SimpleLine* | )elseif SimpleLine* ElseLines | empty
--- returns a printable representation of X, when it is a symbol
--- or a character, as string. Otherwise, returns nil.
+++ returns a printable representation of `x', when it is a symbol
+++ or a character, as string. Otherwise, returns nil.
PNAME x ==
- symbol? x => SYMBOL_-NAME x
- CHARACTERP x => STRING x
+ symbol? x => symbolName x
+ char? x => STRING x
nil
--- converts X, a 1-length string, to a character.
-char x ==
- CHAR(PNAME x, 0)
-
-- close STREAM.
shoeCLOSE stream ==
CLOSE stream