summaryrefslogtreecommitdiffstats
path: root/lib.c
diff options
context:
space:
mode:
Diffstat (limited to 'lib.c')
-rw-r--r--lib.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/lib.c b/lib.c
index eb612f42..1349a8e6 100644
--- a/lib.c
+++ b/lib.c
@@ -1015,7 +1015,7 @@ val string_lt(val astr, val bstr)
val chr(wchar_t ch)
{
- return (val) ((ch << TAG_SHIFT) | TAG_CHR);
+ return (val) (((cnum) ch << TAG_SHIFT) | TAG_CHR);
}
val chrp(val chr)
@@ -1027,7 +1027,7 @@ wchar_t c_chr(val chr)
{
if (!is_chr(chr))
type_mismatch(lit("~s is not a character"), chr, nao);
- return ((wchar_t) chr) >> TAG_SHIFT;
+ return (wchar_t) ((cnum) chr >> TAG_SHIFT);
}
val chr_str(val str, val index)