From 9f6397806fa58c18913d69ad99aefa150b1ef545 Mon Sep 17 00:00:00 2001 From: "Taylor R. Campbell" Date: Tue, 28 Oct 2003 22:38:43 +0000 Subject: [PATCH] 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 --. --- s48/banana/interfaces.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/s48/banana/interfaces.scm b/s48/banana/interfaces.scm index a4695fa..21423e0 100644 --- a/s48/banana/interfaces.scm +++ b/s48/banana/interfaces.scm @@ -37,9 +37,9 @@ (export ;; These can be used for other profiles as lengths and such. - (posint->byte-vector (proc (:exact-integer) :byte-vector)) - (byte-vector->posint (proc (:byte-vector) :exact-integer)) + (posint->byte-vector (proc (:exact-integer) :value)) + (byte-vector->posint (proc (:value) :exact-integer)) ;; Generally just for debugging or manual testing. (prettify-byte (proc (:exact-integer) :string)) - (prettify-byte-vector (proc (:byte-vector) :string)))) + (prettify-byte-vector (proc (:value) :string))))