tests/test-globals.scm

   1 (define x 2) ;; TODO the vm tries to get the car of this
   2 (define y 3)
   3 ;; (define foo (lambda (x) (+ x 8 213 32523))) ;; TODO creating a lambda fails
   4 ;; (display (foo x))
   5 ;; (display (+ x y)) ;; actually, gives the same error as if we had a lambda
   6
   7 (define (foo x y)
   8   (if (and x y)
   9       (#%+ x y) ;; TODO if we use this +, it doesn't show as global, probably because it doesn't use rest params
  10       -1))
  11
  12 (foo x y)
  13 ;; duplicates have no effect on the number of constants, and 5 didn't have an effect either, might be too small