diff --git a/scheme/syntax-rules.sld b/scheme/syntax-rules.sld index 1ad21636..b3b9f322 100644 --- a/scheme/syntax-rules.sld +++ b/scheme/syntax-rules.sld @@ -1,4 +1,10 @@ ; A temporary file to test syntax-rules integration +(define-library (scheme syntax-rules) + (import (scheme base)) + (export + syntax-rules + ) + (begin ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; syntax-rules @@ -228,5 +234,6 @@ (list _error "no expansion for" (list (rename 'strip-syntactic-closures) _expr)) #f))))))))))) +))