[Jscheme-user] less anonymous functions

[Ken A. <kan...@bb...>]

I've extended describe it will now describe closures and generics:

> (describe print)
Closure named print
(lambda (it . arg)
  (begin
    (if (null? arg)
      (begin (write it) (write-char '#\newline))
      (let ((s (car arg)))
        (begin (write it s) (write-char '#\newline s))))
    it))
9

I've changed how closures .toString:
> (define (foo xs) (map (lambda (x) (/ i x)) xs))
(lambda foo (xs)...)
> (foo '(1 2 3 0))

I've changed set-procedure-name to name internal lambdas with <name>~<count> so you can see more easily where the code is coming from
I hope this makes the backtrace more understandable.

(map (lambda foo~0 (x)...) xs )
  xs = (1 2 3 0)

  ====================================

(/ i x )
  x = 1
  xs = (1 2 3 0)