Fixed problem with relative paths and #lang bracket
This commit is contained in:
parent
28a4d1ce0d
commit
d648153156
|
@ -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)
|
||||
|
|
|
@ -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)
|
||||
|
|
|
@ -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)
|
||||
|
|
Loading…
Reference in New Issue
Block a user