From 57ea2dee92c85b8d6381fff7c96643041f6f9663 Mon Sep 17 00:00:00 2001
From: Nicolas Boulenguez <nicolas.boulenguez@free.fr>
Date: Tue, 27 Aug 2024 12:10:42 +0200
Subject: [PATCH] objc: fix (keyword :a)

---
 impls/objc/core.m | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/impls/objc/core.m b/impls/objc/core.m
index 913b42f823..a1fcb58e23 100644
--- a/impls/objc/core.m
+++ b/impls/objc/core.m
@@ -42,7 +42,11 @@ + (NSDictionary *)ns {
         return wrap_tf([args[0] isKindOfClass:[MalSymbol class]]);
     },
     @"keyword": ^(NSArray *args){
-        return [NSString stringWithFormat:@"\u029e%@", args[0]];
+        if (string_Q(args[0])) {
+            return [NSString stringWithFormat:@"\u029e%@", args[0]];
+        } else {
+            return args[0];
+        }
     },
     @"keyword?": ^(NSArray *args){
         return wrap_tf([args[0] isKindOfClass:[NSString class]] &&