[Guile-commits] 01/01: Reify bytevector? in the correct module

[Andy Wingo]

wingo pushed a commit to branch master
in repository guile.

commit e87f059319e40b582d5ee8fd815876550f1148b9
Author: Andy Wingo <address@hidden>
Date:   Fri Feb 6 15:13:32 2015 +0100

    Reify bytevector? in the correct module
    
    * module/language/cps/reify-primitives.scm (primitive-module): Reify
      bytevector? in the correct module.  Thanks to Nala Ginrut for the
      report.
---
 module/language/cps/reify-primitives.scm |    5 +++--
 1 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/module/language/cps/reify-primitives.scm 
b/module/language/cps/reify-primitives.scm
index a4d7099..db9f4bb 100644
--- a/module/language/cps/reify-primitives.scm
+++ b/module/language/cps/reify-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
@@ -46,7 +46,8 @@
 
 (define (primitive-module name)
   (case name
-    ((bytevector-length
+    ((bytevector?
+      bytevector-length
 
       bytevector-u8-ref bytevector-u8-set!
       bytevector-s8-ref bytevector-s8-set!