;-*-Scheme-*-

(test-setup 20 #f)

(defglobalconstant constant 3)

(defun inline-test-3 ((x integer))
  (declare (allow-inline))
  (* constant x)
  )


(let ((old-value (inline-test-3 2))) ;; 6
  (with-inline #t
    (defglobalconstant constant 4)       
    (let ((second-value (inline-test-3 2))) ;; 8
      (with-inline #f
		   (+ old-value second-value (inline-test-3 2)) ;; 6
		   ;;(inline-test-3 2)
		   )
      )
    )
  )

;; 6 good
;; 8 good