Raket REPL ve Altmodüller

Question

Geçerli dosyada submodule, emacs'ta raket modunda yükleme yapmanın kolay bir yolu var mı? Örneğin

Aşağıdaki dosyayı

#lang racket 

(define (foo x) 
    x) 

(module+ sub 
    (define (bar x y) 
    x)) 

var ve foo kullanılabilir, ancak bar sonra Repl başlatmak için raket-modunda f5 isabet eğer değildir.

Answer 1

Bunu yapmak için dynamic-enter! ve quote-module-path birleştirebilirsiniz.

Yayınladığınız yukarıdaki kodu için bir repl etkileşimi göz önüne alındığında:

> (require racket/enter syntax/location) 
> (dynamic-enter! (quote-module-path sub)) 
> bar 
#<procedure:bar> 

Alternatif olarak, dynamic-require/expose (açığa parçası sağlanan olmayan şeyleri gerektirir sağlar) kullanabilir, here tamam olarak.

Answer 2

DrRacket'te de aynı şekilde çalışır. Alt modülden provide çubuğuna ve kullanmak için alt'a ihtiyacınız vardır. Aşağıdaki kodu deneyin:

#lang racket 

(define (foo x) 
    x) 

(module+ sub 
    (define (bar x y) 
    x) 
    (provide bar)) 

;; (bar 1 2) -- undefined 

(require (submod "." sub)) 
(bar 1 2) ;; -- works here