SRFI 41 "times3" example exhausts memory?

SRFI 41 "times3" example exhausts memory?

[Sudarshan S Chawathe]

I had occasion to revisit the SRFI 41 streams library in Kawa and
decided to try out a problematic "times3" example noted in the SRFI
document.  It ran successfully for small values of the argument but gave
a OutOfMemoryError when invoked as (times3 #e1e7). (Details below.)

I am not sure if this is a known limitation of the Kawa implementation
of SRFI 41 or if the problem is elsewhere, which is why I am not
reporting it as a bug/issue on Gitlab.

In any case, I thought I'd mention the issue here on the mailing list to
check if others have any thoughts on the matter.

Regards,

-chaw

** test.scm:
  
  (import (scheme base)
          (srfi 41))

  (define (times3 n)
    (stream-ref
      (stream-filter
        (lambda (x)
          (zero? (modulo x n)))
        (stream-from 0))
      3))

  (display (times3 #e1e7))
  (newline)

** trace:

  $ time kawa test.scm
  Exception in thread "main" java.lang.OutOfMemoryError: GC overhead limit exceeded
  	at gnu.expr.CompiledProc.makeResultToObject(CompiledProc.java:41)
	  at gnu.kawa.slib.StreamsDerived$frame16.<init>(StreamsDerived.scm)
	  at gnu.kawa.slib.StreamsDerived$frame15.lambda35streamFrom(StreamsDerived.scm:169)
	  at gnu.kawa.slib.StreamsDerived$frame16.lambda38(StreamsDerived.scm:170)
	  at gnu.kawa.slib.StreamsDerived$frame16.lambda38$check(StreamsDerived.scm:170)
	  at java.lang.invoke.LambdaForm$DMH/702846463.invokeStatic_LL_L(LambdaForm$DMH)
	  at java.lang.invoke.LambdaForm$MH/1169794610.invokeExact_MT(LambdaForm$MH)
	  at gnu.mapping.CallContext.runUntilValue(CallContext.java:656)
	  at gnu.mapping.Procedure.apply0(Procedure.java:142)
	  at gnu.mapping.Promise.getValue(Promise.java:80)
	  at gnu.kawa.slib.StreamsPrimitive.isStreamNull(StreamsPrimitive.scm:52)
	  at gnu.kawa.slib.StreamsDerived$frame14.lambda31(StreamsDerived.scm:145)
	  at gnu.kawa.slib.StreamsDerived$frame14.lambda31$check(StreamsDerived.scm:144)
	  at java.lang.invoke.LambdaForm$DMH/1316557528.invokeStatic_LL_L(LambdaForm$DMH)
	  at java.lang.invoke.LambdaForm$MH/1169794610.invokeExact_MT(LambdaForm$MH)
	  at gnu.mapping.CallContext.runUntilValue(CallContext.java:656)
	  at gnu.mapping.Procedure.apply0(Procedure.java:142)
	  at gnu.mapping.Promise.getValue(Promise.java:80)
	  at gnu.kawa.slib.StreamsPrimitive.isStreamNull(StreamsPrimitive.scm:52)
	  at gnu.kawa.slib.StreamsDerived.streamRef(StreamsDerived.scm:275)
	  at test.times3(test.scm:10)
	  at test.times3$check(test.scm:4)
	  at java.lang.invoke.LambdaForm$DMH/284720968.invokeStaticInit_LL_L(LambdaForm$DMH)
	  at java.lang.invoke.LambdaForm$MH/1169794610.invokeExact_MT(LambdaForm$MH)
	  at gnu.mapping.CallContext.runUntilValue(CallContext.java:656)
	  at gnu.mapping.Procedure.apply1(Procedure.java:148)
	  at test.run(test.scm:12)
	  at gnu.expr.ModuleExp.evalModule2(ModuleExp.java:289)
	  at gnu.expr.CompiledModule.evalModule(CompiledModule.java:42)
	  at gnu.expr.CompiledModule.evalModule(CompiledModule.java:60)
	  at kawa.Shell.runFile(Shell.java:565)
	  at kawa.Shell.runFileOrClass(Shell.java:468)

  real	6m12.696s
  user	17m16.376s
  sys	0m2.188s

** versions

  Kawa 3.0 (git describe: 3.0-87-g5fa934dad-dirty)
  Copyright (C) 2018 Per Bothner

  openjdk version "1.8.0_162"
  OpenJDK Runtime Environment (build 1.8.0_162-8u162-b12-1~deb9u1-b12)
  OpenJDK 64-Bit Server VM (build 25.162-b12, mixed mode)