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))))