PasteRack.org
Paste # 92108
2017-09-18 11:30:10

Fork as a new paste.

Paste viewed 120 times.


Embed:

Expected pict-convertible? given #<pict>

  1. #lang racket/base
  2. (require pict)
  3.  
  4. (define pict-namespace
  5.   (parameterize ([current-namespace (make-base-namespace)])
  6.     (namespace-require 'pict)
  7.     (current-namespace)))
  8.  
  9. (define vl-append2
  10.   (eval 'vl-append pict-namespace))
  11.  
  12. (module+ test
  13.   (require rackunit)
  14.  
  15.   (check-pred pict?
  16.     (vl-append (blank 0 0)))
  17.  
  18.   (check-exn exn:fail:contract?
  19.     (λ () (vl-append2 (blank 0 0)))))

=>