PasteRack.org
Paste # 23237
2017-02-20 14:37:07

Fork as a new paste.

Paste viewed 491 times.


Embed:

  1. #lang racket
  2.  
  3. (module m1 racket
  4.   (define-local-member-name meth)
  5.   (define c (class object%
  6.               (define/public (meth x) (+ x x))
  7.               (super-new)))
  8.  
  9.   (define (f o n)
  10.     (unless (number? n) (error 'fail))
  11.     (send o meth n))
  12.  
  13.   (provide c f))
  14.  
  15. (module m2 racket
  16.   (require (submod ".." m1))
  17.   (f (new c) 0)
  18.   ;; fails
  19.   #;
  20.   (send (new c) meth 0))
  21.  
  22. (require 'm2)

=>

0