便攜式加載/在R5RS計劃中包含define-syntax？

Question

我正在嘗試寫一些在DrRacket/plt-r5rs和Gambit/gsi中都有效的東西。

我遇到的問題是在Gambit中(load "foo.scm")不會加載define-syntax -blocks。在Gambit中使用(include "foo.scm")有效，但當然會導致DrRacket中的語法錯誤。

有沒有辦法解決這個問題，以便我可以編寫便攜式R5RS代碼？

事情我已經嘗試：

• 重新定義(include "foo.scm")到(load "foo.scm")，反之亦然。問題：非法重新定義Gambit中的宏。
• 用(if gambit ...)包裝所述重新定義。問題：如果內部定義非法（除非另有定義）。
• 將帶有filename的字符串傳遞給庫文件中的include。問題：在解讀開始之前似乎發生了包含在Gambit中。

Answer 1

編寫兼容Gambit和Racket的模塊非常困難。

確實有方法可以測試特定實現並有條件地定義事情。事實上，有兩個系統可以做到這一點：SRFI 0和SRFI 7。 Most implementations support one or the other. Not very many support both.

開局支持SRFI 0球拍支持SRFI 7.

Answer 2

在情況下，它可以幫助：在球拍可以在R5RS文件中使用包括：

#lang r5rs 
(#%require (only racket include)) 
(include "foo.scm") 

如果定義#%require什麼也不做的開局，那麼你可以在兩個實現中使用相同的源文件。