From 7c5d3418490d2e5cbc32d8baa50fe3ce73177270 Mon Sep 17 00:00:00 2001
From: Nicolas Boulenguez <nicolas.boulenguez@free.fr>
Date: Sun, 5 Sep 2021 18:08:35 +0200
Subject: [PATCH] factor: allow keyword argument for keyword core function

---
 impls/factor/lib/core/core.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/impls/factor/lib/core/core.factor b/impls/factor/lib/core/core.factor
index bbcbcf62..1c0cf667 100644
--- a/impls/factor/lib/core/core.factor
+++ b/impls/factor/lib/core/core.factor
@@ -49,7 +49,7 @@ CONSTANT: ns H{
     { "symbol" [ first <malsymbol> ] }
     { "symbol?" [ first malsymbol? ] }
     { "string?" [ first string? ] }
-    { "keyword" [ first <malkeyword> ] }
+    { "keyword" [ first dup string? [ <malkeyword> ] when ] }
     { "keyword?" [ first malkeyword? ] }
     { "number?" [ first number? ] }
     { "fn?" [ first { [ callable? ] [ { [ malfn? ] [ macro?>> not ] } 1&& ] } 1|| ] }