Keywords have a tc7

[bpt/guile.git] / module / language / cps / primitives.scm

diff --git a/module/language/cps/primitives.scm b/module/language/cps/primitives.scm
index a095fce..5f7f474 100644 (file)
--- a/module/language/cps/primitives.scm
+++ b/module/language/cps/primitives.scm
@@ -1,6 +1,6 @@
 ;;; Continuation-passing style (CPS) intermediate language (IL)
 
-;; Copyright (C) 2013, 2014 Free Software Foundation, Inc.
+;; Copyright (C) 2013, 2014, 2015 Free Software Foundation, Inc.
 
 ;;;; This library is free software; you can redistribute it and/or
 ;;;; modify it under the terms of the GNU Lesser General Public
@@ -75,6 +75,7 @@
     (string? . (1 . 1))
     (vector? . (1 . 1))
     (symbol? . (1 . 1))
+    (keyword? . (1 . 1))
     (variable? . (1 . 1))
     (bitvector? . (1 . 1))
     (bytevector? . (1 . 1))