summaryrefslogtreecommitdiff
path: root/module/srfi/srfi-4.scm
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2014-02-07 17:57:30 +0100
committerAndy Wingo <wingo@pobox.com>2014-02-07 17:57:30 +0100
commitb5f9ba49db8e1ced6d70833b8104a266764a6537 (patch)
tree48f61f6d40b4cfa63222d8dc3a772aea4ec021ca /module/srfi/srfi-4.scm
parenta675a2e81b792b9f860bec57c38a1948631c7a41 (diff)
downloadguile-b5f9ba49db8e1ced6d70833b8104a266764a6537.tar.gz
Remove private unused duplicate c32/c64vector definitions
* module/srfi/srfi-4.scm: Remove vestigial definitions for c32vectors and c64vectors. Those are defined in (srfi srfi-4 gnu).
Diffstat (limited to 'module/srfi/srfi-4.scm')
-rw-r--r--module/srfi/srfi-4.scm18
1 files changed, 0 insertions, 18 deletions
diff --git a/module/srfi/srfi-4.scm b/module/srfi/srfi-4.scm
index 5b7b894f6..b2e6f4928 100644
--- a/module/srfi/srfi-4.scm
+++ b/module/srfi/srfi-4.scm
@@ -116,21 +116,3 @@
(define-bytevector-type s64 s64-native 8)
(define-bytevector-type f32 ieee-single-native 4)
(define-bytevector-type f64 ieee-double-native 8)
-
-(define (bytevector-c32-ref v i)
- (make-rectangular (bytevector-ieee-single-native-ref v i)
- (bytevector-ieee-single-native-ref v (+ i 4))))
-(define (bytevector-c32-set! v i x)
- (bytevector-ieee-single-native-set! v i x)
- (bytevector-ieee-single-native-set! v (+ i 4) x))
-(define-bytevector-type c32 c32 8)
-
-(define (bytevector-c64-ref v i)
- (make-rectangular (bytevector-ieee-double-native-ref v i)
- (bytevector-ieee-double-native-ref v (+ i 8))))
-(define (bytevector-c64-set! v i x)
- (bytevector-ieee-double-native-set! v i x)
- (bytevector-ieee-double-native-set! v (+ i 8) x))
-(define-bytevector-type c64 c64 16)
-
-