jslisp oop

oop.lisp

(define forrange (lambda (i to fn) 
  (if (>= (+ i 1) to)
      (fn i) 
      (begin (fn i)
             ((. arguments callee) (+ i 1) to fn)))))

(= (. Object prototype get) 
   (lambda (attr) (get this attr)))

(= (. Number prototype foreach) 
   (lambda (fn) (forrange 0 this (lambda (i) (fn i))))))

(= (. Array prototype foreach) 
   (lambda (fn dummy) 
      (begin (= dummy this)
             ((. (. this length) foreach) (lambda (i) (fn ((. dummy get) i)))))))

((. (vector "hoge" 1 "お湯") foreach) (lambda (item) (alert item)))

consider including forrange to the list of builtin functions.
consider supporting the special form let to get users being able to create local variables.