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