Oh! Well that code is clearly broken!

I guess you have a cyclic symbolic link in your temporary directory?
Or maybe just a ton of stuff?

Unless you want to, I'll push a change somehow or other.

Robby

On Sun, May 4, 2014 at 7:09 PM, Geoffrey S. Knauth <ge...@knauth.org> wrote:
> On May 4, 2014, at 19:20 , Robby Findler <ro...@eecs.northwestern.edu> wrote:
>
>> start throwing stuff out of it (running it at the command-line, not in 
>> drracket)
>> until I got very small and and still had the bad behavior.
>
> I'm already small and have bad behavior, but I get your point.
>
>> PS: thanks for taking this on!
>
> Thanks for firing up my teenager with [now] Typed Racket, which caused me to 
> need to update my not-that-old Racket 6 to keep up with him.
>
> OK, here's what I got this time.  If I take out the stuff between GSK-2h and 
> GSK-2h1 below, the file processes normally.
>
> $ racket -l scribblings/guide/let.scrbl
> GSK-1
> GSK-2
> GSK-2a
> GSK-2b
> GSK-2c
> GSK-2d
> GSK-2e
> GSK-2f
> GSK-2g
> GSK-2h
>   C-c C-cuser break
>   context...:
>    /Users/gknauth/test/plt/git/plt/pkgs/sandbox-lib/racket/sandbox.rkt:883:2: 
> user-eval
>    
> /Users/gknauth/test/plt/git/plt/pkgs/scribble-pkgs/scribble-lib/scribble/eval.rkt:399:0:
>  do-plain-eval
>    
> /Users/gknauth/test/plt/git/plt/pkgs/scribble-pkgs/scribble-lib/scribble/eval.rkt:261:2
>    
> /Users/gknauth/test/plt/git/plt/pkgs/scribble-pkgs/scribble-lib/scribble/eval.rkt:550:0:
>  do-titled-interaction
>    
> /Users/gknauth/test/plt/git/plt/pkgs/racket-pkgs/racket-doc/scribblings/guide/let.scrbl:
>  [running body]
>
> @(printf "GSK-2h\n")
> @interaction[
> (letrec ([tarzan-in-tree?
>           (lambda (name path)
>             (or (equal? name "tarzan")
>                 (and (directory-exists? path)
>                      (tarzan-in-directory? path))))]
>          [tarzan-in-directory?
>           (lambda (dir)
>             (ormap (lambda (elem)
>                      (tarzan-in-tree? (path-element->string elem)
>                                       (build-path dir elem)))
>                    (directory-list dir)))])
>   (tarzan-in-tree? "tmp" (find-system-path 'temp-dir)))
> ]
> @(printf "GSK-2h1\n")
>
_________________________
  Racket Developers list:
  http://lists.racket-lang.org/dev

Reply via email to