scsh-0.6/ps-compiler/prescheme/test/bvector.scm

12 lines
314 B
Scheme
Raw Normal View History

1999-09-14 08:45:02 -04:00
; Copyright (c) 1994 by Richard Kelsey. See file COPYING.
(define (test)
(let ((v (make-byte-vector 10))
(out (current-output-port)))
(write-number (byte-vector-ref v 4) out)
(byte-vector-set! v 5 100)
(write-number (byte-vector-ref v 5) out)
(write-number (byte-vector-word-ref v 4) out)))