fix analyze.scm literal string warnings

* module/language/tree-il/analyze.scm (const-fmt): Return any literal
  value, not just strings.  The string case is checked later.

1 files changed, 3 insertions, 5 deletions

diff --git a/module/language/tree-il/analyze.scm b/module/language/tree-il/analyze.scm
index 61357f821..23eff2ce2 100644
--- a/module/language/tree-il/analyze.scm
+++ b/module/language/tree-il/analyze.scm
@@ -1347,10 +1347,9 @@ accurate information is missing from a given `tree-il' element."
 (define (const-fmt x)
   (record-case x
     ((<const> exp)
-     ;; String literals.
-     (and (string? exp) exp))
+     exp)
     ((<application> proc args)
-     ;; Gettexted string literals, like `(_ "foo")'.
+     ;; Gettexted literals, like `(_ "foo")'.
      (and (record-case proc
             ((<toplevel-ref> name) (eq? name '_))
             ((<module-ref> name) (eq? name '_))
@@ -1358,8 +1357,7 @@ accurate information is missing from a given `tree-il' element."
           (pmatch args
             ((,fmt)
              (record-case fmt
-               ((<const> exp)
-                (and (string? exp) exp))
+               ((<const> exp) exp)
                (else #f)))
             (else #f))))
     (else #f)))