aboutsummaryrefslogtreecommitdiff
path: root/src/algebra
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2011-08-11 04:58:15 +0000
committerdos-reis <gdr@axiomatics.org>2011-08-11 04:58:15 +0000
commit7d8802bb51e5f907e661469b94bf352766d7ffde (patch)
tree0df2118585747139d2e6a0a0c50086f73abe6b55 /src/algebra
parent7c7d44f1dc284e4c4e231d97023aa87ecd5f8e44 (diff)
downloadopen-axiom-7d8802bb51e5f907e661469b94bf352766d7ffde.tar.gz
* interp/lisp-backend.boot (expandBytevec2str): Use MAP instead of
COERCE. Eliminate second argument. (expandStr2bytevec): Use MAP instead of COERCE. * algebra/data.spad.pamphlet (ByteBuffer) [coerce]: Adjust call to %bytevec2str.
Diffstat (limited to 'src/algebra')
-rw-r--r--src/algebra/data.spad.pamphlet4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/algebra/data.spad.pamphlet b/src/algebra/data.spad.pamphlet
index 5f060343..bcb80de0 100644
--- a/src/algebra/data.spad.pamphlet
+++ b/src/algebra/data.spad.pamphlet
@@ -313,7 +313,7 @@ ByteBuffer(): Public == Private where
++ `buf'. Error if `n' is more than the capacity.
finiteAggregate ++ A ByteBuffer object is a finite aggregate
Private == add
- import %bytevec2str: (PrimitiveArray Byte,NNI) -> String
+ import %bytevec2str: PrimitiveArray Byte -> String
from Foreign Builtin
-- A buffer object is a pair of a simple array, and the count
@@ -364,7 +364,7 @@ ByteBuffer(): Public == Private where
rep(buf).ary
coerce(buf: %): String ==
- %bytevec2str(rep(buf).ary,#buf)
+ %bytevec2str rep(buf).ary
construct l ==
buf := makeByteBuffer(#l)