Oops, :BYTE-VECTOR doesn't actually exist. I guess I ought to have tested that before I committed -- I think I tested everything, said 'duh,' added type annotations to BANANA-EXTRAS, and committed without testing again, due to the simplicity of the addition to interfaces.scm --.

This commit is contained in:
Taylor R. Campbell 2003-10-28 22:38:43 +00:00
parent 7f275baa4e
commit 9f6397806f
1 changed files with 3 additions and 3 deletions

View File

@ -37,9 +37,9 @@
(export (export
;; These can be used for other profiles as lengths and such. ;; These can be used for other profiles as lengths and such.
(posint->byte-vector (proc (:exact-integer) :byte-vector)) (posint->byte-vector (proc (:exact-integer) :value))
(byte-vector->posint (proc (:byte-vector) :exact-integer)) (byte-vector->posint (proc (:value) :exact-integer))
;; Generally just for debugging or manual testing. ;; Generally just for debugging or manual testing.
(prettify-byte (proc (:exact-integer) :string)) (prettify-byte (proc (:exact-integer) :string))
(prettify-byte-vector (proc (:byte-vector) :string)))) (prettify-byte-vector (proc (:value) :string))))