diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-08-11 04:58:15 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-08-11 04:58:15 +0000 |
| commit | 7d8802bb51e5f907e661469b94bf352766d7ffde (patch) | |
| tree | 0df2118585747139d2e6a0a0c50086f73abe6b55 /src/algebra/data.spad.pamphlet | |
| parent | 7c7d44f1dc284e4c4e231d97023aa87ecd5f8e44 (diff) | |
| download | open-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/data.spad.pamphlet')
| -rw-r--r-- | src/algebra/data.spad.pamphlet | 4 |
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) |