picrin/t/override.scm

14 lines
148 B
Scheme
Raw Permalink Normal View History

(import (picrin base)
(picrin test))
(test-begin)
(define orig-cons cons)
(set! symbol? list)
(test '(1)
(symbol? 1))
(test-end)