memory.scm 268 B

1234567891011
  1. ; Part of Scheme 48 1.9. See file COPYING for notices and license.
  2. ; Authors: Richard Kelsey
  3. (define (test x i)
  4. (let ((m (allocate-memory 10)))
  5. (unsigned-byte-set! (+ m i) x)
  6. (word-set! (+ m i) (+ 1 (word-ref (+ m i))))
  7. (unsigned-byte-ref (+ m i))))