diff --git a/foreign/c/primitives/mosh.scm b/foreign/c/primitives/mosh.scm
index 1fcbfbb..b9bb7bf 100644
--- a/foreign/c/primitives/mosh.scm
+++ b/foreign/c/primitives/mosh.scm
@@ -36,50 +36,6 @@
 (define c-bytevector-pointer-set! pointer-set-c-pointer!)
 (define c-bytevector-pointer-ref pointer-ref-c-pointer)
 
-#;(define pointer-set!
-  (lambda (pointer type offset value)
-    (cond ((equal? type 'int8) (pointer-set-c-int8! pointer offset value))
-          ((equal? type 'uint8) (pointer-set-c-uint8! pointer offset value))
-          ((equal? type 'int16) (pointer-set-c-int16! pointer offset value))
-          ((equal? type 'uint16) (pointer-set-c-uint16! pointer offset value))
-          ((equal? type 'int32) (pointer-set-c-int32! pointer offset value))
-          ((equal? type 'uint32) (pointer-set-c-uint32! pointer offset value))
-          ((equal? type 'int64) (pointer-set-c-int64! pointer offset value))
-          ((equal? type 'uint64) (pointer-set-c-uint64! pointer offset value))
-          ((equal? type 'char) (pointer-set-c-char! pointer offset (char->integer value)))
-          ((equal? type 'short) (pointer-set-c-short! pointer offset value))
-          ((equal? type 'unsigned-short) (pointer-set-c-short! pointer offset value))
-          ((equal? type 'int) (pointer-set-c-int! pointer offset value))
-          ((equal? type 'unsigned-int) (pointer-set-c-int! pointer offset value))
-          ((equal? type 'long) (pointer-set-c-long! pointer offset value))
-          ((equal? type 'unsigned-long) (pointer-set-c-long! pointer offset value))
-          ((equal? type 'float) (pointer-set-c-float! pointer offset value))
-          ((equal? type 'double) (pointer-set-c-double! pointer offset value))
-          ((equal? type 'void) (pointer-set-c-pointer! pointer offset value))
-          ((equal? type 'pointer) (pointer-set-c-pointer! pointer offset value)))))
-
-#;(define pointer-get
-  (lambda (pointer type offset)
-    (cond ((equal? type 'int8) (pointer-ref-c-int8 pointer offset))
-          ((equal? type 'uint8) (pointer-ref-c-uint8 pointer offset))
-          ((equal? type 'int16) (pointer-ref-c-int16 pointer offset))
-          ((equal? type 'uint16) (pointer-ref-c-uint16 pointer offset))
-          ((equal? type 'int32) (pointer-ref-c-int32 pointer offset))
-          ((equal? type 'uint32) (pointer-ref-c-uint32 pointer offset))
-          ((equal? type 'int64) (pointer-ref-c-int64 pointer offset))
-          ((equal? type 'uint64) (pointer-ref-c-uint64 pointer offset))
-          ((equal? type 'char) (integer->char (pointer-ref-c-signed-char pointer offset)))
-          ((equal? type 'short) (pointer-ref-c-signed-short pointer offset))
-          ((equal? type 'unsigned-short) (pointer-ref-c-unsigned-short pointer offset))
-          ((equal? type 'int) (pointer-ref-c-signed-int pointer offset))
-          ((equal? type 'unsigned-int) (pointer-ref-c-unsigned-int pointer offset))
-          ((equal? type 'long) (pointer-ref-c-signed-long pointer offset))
-          ((equal? type 'unsigned-long) (pointer-ref-c-unsigned-long pointer offset))
-          ((equal? type 'float) (pointer-ref-c-float pointer offset))
-          ((equal? type 'double) (pointer-ref-c-double pointer offset))
-          ((equal? type 'void) (pointer-ref-c-pointer pointer offset))
-          ((equal? type 'pointer) (pointer-ref-c-pointer pointer offset)))))
-
 (define type->native-type
   (lambda (type)
     (cond ((equal? type 'int8) 'int8_t)