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
Afficher les réponses par date
You are not using readtable-sharing-allowed?-set properly. It does not mutate the readtable… it creates a new one. 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@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@iro.umontreal.ca https://webmail.iro.umontreal.ca/mailman/listinfo/gambit-list
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@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@iro.umontreal.ca https://webmail.iro.umontreal.ca/mailman/listinfo/gambit-list
-
Marc Feeley -
Sven Hartrumpf