projects / mit-scheme.git / commit
? search:
summary | shortlog | log | commit | commitdiff | tree
(parent: 330d1ee) | patch
Fix HEXADECIMAL->VECTOR-8B.
authorTaylor R Campbell <campbell@mumble.net>
Tue, 16 Feb 2010 02:36:57 +0000 (21:36 -0500)
committerTaylor R Campbell <campbell@mumble.net>
Tue, 16 Feb 2010 02:36:57 +0000 (21:36 -0500)
commitf8cb2a1f4c529e27e0252ea75d78ead147b01496
tree80475f14a19a5c7e2fa9989fc044b842fe9ce6a2tree | snapshot
parent330d1eea40cb5e90be10dd113a3b3aa85fbea650commit | diff
Fix HEXADECIMAL->VECTOR-8B.

Now it passes

(do ((i 0 (+ i 1)))
    ((= i #x100))
  (let* ((v (random-byte-vector #x100))
         (h (vector-8b->hexadecimal v))
         (v* (hexadecimal->vector-8b h)))
    (do ((i 0 (+ i 1)))
        ((= i #x100))
      (if (not (= (vector-8b-ref v i) (vector-8b-ref v* i)))
          (error "Lose:" h)))))
src/runtime/string.scm diff | blob | history
MIT/GNU Scheme, Pucked