Fixed problem with relative paths and #lang bracket

This commit is contained in:
Jens Axel Søgaard 2012-06-20 19:32:08 +02:00
parent 28a4d1ce0d
commit d648153156
3 changed files with 27 additions and 14 deletions

View File

@ -4,8 +4,7 @@
(error-print-source-location #t)
(require (submod "bracket.rkt" symbolic-application)
;(submod "bracket.rkt" bracket)
)
(submod "bracket.rkt" bracket))
(provide (all-from-out racket))
(provide (all-defined-out)

View File

@ -785,8 +785,8 @@
(values (map (curryr operand 0) (operands t=r-List))
(map (curryr operand 1) (operands t=r-List)))))
(module mpl-graphics racket
(require "../graphics.rkt")
(module bracket-graphics racket
(require "../graphics/graphics.rkt")
(define-syntax (declare/provide-vars stx)
(syntax-case stx ()
@ -811,7 +811,7 @@
(submod ".." expression)
(submod ".." undefined)
(submod ".." equation-expression)
(submod ".." mpl-graphics))
(submod ".." bracket-graphics))
(provide ; (all-from-out (submod ".." symbolic-application))
(rename-out [free-of Free-of]
[base Base]
@ -820,7 +820,7 @@
[exponent Exponent]
[before? Before?]
[kind Kind])
(all-from-out (submod ".." mpl-graphics))
(all-from-out (submod ".." bracket-graphics))
Operand
Operands
Hold
@ -1179,7 +1179,7 @@
`(Range ,imin ,imax ,di))]
[args `(Range . ,args)]))
(require "../adaptive-plotting.rkt")
(require "../plotting/adaptive-plotting.rkt")
(define-match-expander List:
(λ (stx)

View File

@ -15,16 +15,30 @@
eof
(with-syntax ([body (parse-expression
src
#'from-my-read-syntax in)])
#'from-my-read-syntax in)]
[bracket-lang
(let ()
(define-values (base file _)
(split-path
(resolved-module-path-name
(module-path-index-resolve
(syntax-source-module #'here)))))
(build-path base "../bracket-lang.rkt"))]
[bracket.rkt
(let ()
(define-values (base file _)
(split-path
(resolved-module-path-name
(module-path-index-resolve
(syntax-source-module #'here)))))
(build-path base "../bracket.rkt"))])
(syntax-property
(strip-context
#'(module anything "../main.rkt"
#'(module anything bracket-lang
(require (submod bracket.rkt bracket)
(submod bracket.rkt symbolic-application))
(define-syntax (#%infix stx)
;(displayln (list 'my-read-syntax: stx))
(syntax-case stx ()
[(_ expr) #'expr]))
(require (submod "bracket.rkt" bracket)
(submod "bracket.rkt" symbolic-application))
(syntax-case stx () [(_ expr) #'expr]))
; This lists the operators used by the parser.
(define expt Power)
(define + Plus)