[gambit-list] reading shared structure conforming to SRFI-38

Sven Hartrumpf hartrumpf at gmx.net
Sat Jul 15 16:27:29 EDT 2017


Hello Marc.

MF wrote, 2017-07-14 16:09:
> You are not using readtable-sharing-allowed?-set properly. It does not mutate the readtable… it creates a new one.

Oh, yes.
The "-set" made me think "-set!". Sorry.
With your suggestion,
the reading problem for shared structures disappeared.

Thanks
Sven

>  So you want
> 
> (input-port-readtable-set! p (readtable-sharing-allowed?-set (input-port-readtable p) #t))
> 
> There is no size limit.
> 
> If that doesn’t work, then I can take a look at your “mm” file.
> 
> Marc
> 
> 
> 
>> On Jul 14, 2017, at 2:10 PM, Sven Hartrumpf <hartrumpf at gmx.net> wrote:
>> 
>> Hi all.
>> 
>> The following code cannot read some larger structures conforming
>> to SRFI-38 (gambit 4.8.8).
>> Is there a size limit or similar to be configured?
>> 
>>> (define p (open-input-file "mm"))
>>> (define rt (input-port-readtable p))
>>> (readtable-sharing-allowed?-set rt #t)
>>> (define x (read p))
>> *** ERROR IN "mm"@78.25 -- Incomplete form
>> 
>> Note that the file mm can be read by
>> 'read' or 'read-with-shared-structure' of other Scheme implementations.
>> 
>> If needed, I can send the file mm in a direct mail.
>> 
>> Greetings
>> Sven
>> _______________________________________________
>> Gambit-list mailing list
>> Gambit-list at iro.umontreal.ca
>> https://webmail.iro.umontreal.ca/mailman/listinfo/gambit-list
> 



More information about the Gambit-list mailing list