[Guile-commits] 01/01: Fix module for reification of srfi-4 primitives

[Andy Wingo]

wingo pushed a commit to branch master
in repository guile.

commit 5d171d998cc7a0432a0f36f7a27be9f2a78620fa
Author: Andy Wingo <address@hidden>
Date:   Wed Dec 30 17:14:22 2015 +0100

    Fix module for reification of srfi-4 primitives
    
    * module/language/cps/reify-primitives.scm (primitive-module): Add cases
      for SRFI-4 primitives.  These primitives are only treated as such for
      the purposes of Tree-IL primitive expansion; perhaps the right fix is
      elsewhere, but it's here for now.
---
 module/language/cps/reify-primitives.scm |    7 +++++++
 1 files changed, 7 insertions(+), 0 deletions(-)

diff --git a/module/language/cps/reify-primitives.scm 
b/module/language/cps/reify-primitives.scm
index 014593a..9b700bd 100644
--- a/module/language/cps/reify-primitives.scm
+++ b/module/language/cps/reify-primitives.scm
@@ -76,6 +76,13 @@
       bytevector-ieee-double-native-ref bytevector-ieee-double-native-set!)
      '(rnrs bytevectors))
     ((class-of) '(oop goops))
+    ((u8vector-ref
+      u8vector-set! s8vector-ref s8vector-set!
+      u16vector-ref u16vector-set! s16vector-ref s16vector-set!
+      u32vector-ref u32vector-set! s32vector-ref s32vector-set!
+      u64vector-ref u64vector-set! s64vector-ref s64vector-set!
+      f32vector-ref f32vector-set! f64vector-ref f64vector-set!)
+     '(srfi srfi-4))
     (else '(guile))))
 
 (define (primitive-ref cps name k src)