mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

Fix typo in `-Wformat'.

Browse source 
* module/language/tree-il/analyze.scm (format-analysis): Call `warning',
  not `warn'.
This commit is contained in:
Ludovic Courtès 2012-01-26 00:36:39 +01:00
parent 60273407f9
commit 3a822fff15
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/language/tree-il/analyze.scm
View file

@ -1387,7 +1387,7 @@ accurate information is missing from a given `tree-il' element."
((,port ,fmt . ,rest) ((,port ,fmt . ,rest)
(if (and (const? port) (if (and (const? port)
(not (boolean? (const-exp port)))) (not (boolean? (const-exp port))))
(warn 'format loc 'wrong-port (const-exp port))) (warning 'format loc 'wrong-port (const-exp port)))
;; Warn on non-literal format strings, unless they refer to a ;; Warn on non-literal format strings, unless they refer to a
;; lexical variable named "fmt". ;; lexical variable named "fmt".
(if (record-case fmt (if (record-case fmt