summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--README.md6
-rw-r--r--liblali.c2
2 files changed, 4 insertions, 4 deletions
diff --git a/README.md b/README.md
index f57ab04..1b5f53d 100644
--- a/README.md
+++ b/README.md
@@ -87,15 +87,15 @@ arithmetic bug and expect it to endure. Although, this below remains possible:
(quote (a b c)) ; (a b c)
'(a b c) ; (a b c)
-`(say x)`, or `\x`, returns an expression without being processed, and with the
+`(say x)`, or `/x`, returns an expression without being processed, and with the
first `car` as `()`. This result is useful when processing a list and wanting to
do something at the beginning, because other cons cells should never have `()` in
`car`:
(say a) ; (() . a)
- \b ; (() . b)
+ /b ; (() . b)
(say (a b c)) ; (() a b c)
- \(a b c) ; (() a b c)
+ /(a b c) ; (() a b c)
`(split x)` takes a symbol, a number, or a string, returns a list with `x`
splitted by each character:
diff --git a/liblali.c b/liblali.c
index d49e0f2..a73b004 100644
--- a/liblali.c
+++ b/liblali.c
@@ -647,7 +647,7 @@ Object *readExpr(Stream *stream, GC_PARAM) {
return NULL;
else if (ch == '\'')
return readUnary(stream, "quote", GC_ROOTS);
- else if (ch == '\\')
+ else if (ch == '/' && !isspace(streamPeek(stream)))
return readUnary(stream, "say", GC_ROOTS);
else if (ch == '"')
return readString(stream, GC_ROOTS);