diff options
author | dos-reis <gdr@axiomatics.org> | 2010-05-09 22:45:25 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2010-05-09 22:45:25 +0000 |
commit | d1ae1fd7646c2b81c3d23752f6956c7db888e916 (patch) | |
tree | 8efa5738e30f54559a22950f8b4c3dc33ab4c284 /src/interp/fortcall.boot | |
parent | f42883e3da3524177b4a8c6f42c8e7b1646a6265 (diff) | |
download | open-axiom-d1ae1fd7646c2b81c3d23752f6956c7db888e916.tar.gz |
More cleanups
Diffstat (limited to 'src/interp/fortcall.boot')
-rw-r--r-- | src/interp/fortcall.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/fortcall.boot b/src/interp/fortcall.boot index 1071470e..cde953fc 100644 --- a/src/interp/fortcall.boot +++ b/src/interp/fortcall.boot @@ -648,7 +648,7 @@ writeData(tmpFile,indata) == for i in 0..rows-1 repeat xdrWrite(xstr,v.i) -- this is used for lists of booleans apparently in f01 LISTP v => - xdrWrite(xstr,LENGTH v) + xdrWrite(xstr,# v) for el in v repeat if el then xdrWrite(xstr,1) else xdrWrite(xstr,0) -- integers @@ -667,7 +667,7 @@ readData(tmpFile,results) == xstr := xdrOpen(str,false) results := [xdrRead1(xstr,r) for r in results] where xdrRead1(x,dummy) == - VECTORP(dummy) and ZEROP(LENGTH dummy) => dummy + VECTORP(dummy) and ZEROP(# dummy) => dummy xdrRead(x,dummy) SHUT(str) results |