mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-06-09 13:30:26 +02:00
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.
This commit is contained in:
parent
26350edcac
commit
e87f059319
1 changed files with 3 additions and 2 deletions
|
@ -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!
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue