(use-modules (system vm trap-state)
	     (system repl repl)
	     (system vm vm))

(set-vm-trace-level! 1)

(define oneplus
  (lambda (x)
    (+ 1 x)))

(with-default-trap-handler
 (lambda (frame idx name)
   (start-repl)
   (pk frame idx name))
 (lambda () (map oneplus '(1 2 3))))