suzanne.soy/whalesong
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

at the moment, ignoring submodule support till I have a better understanding

Browse Source
This commit is contained in:
Danny Yoo 2012-04-18 14:48:27 -04:00
parent d0f3a47657
commit 10feaaa876
1 changed files with 32 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
parser/parse-bytecode-5.3.rkt
View File

@ -371,7 +371,10 @@
(match form (match form
[(struct mod (name srcname self-modidx prefix provides requires [(struct mod (name srcname self-modidx prefix provides requires
body syntax-body unexported max-let-depth dummy lang-info body syntax-body unexported max-let-depth dummy lang-info
internal-context)) internal-context pre-submodules post-submodules))
(cond
[(symbol? name)
;; FIXME: no support for submodules yet.
(let ([self-path (let ([self-path
((current-module-path-index-resolver) ((current-module-path-index-resolver)
self-modidx self-modidx
@ -396,7 +399,10 @@
(parse-mod-provides self-modidx provides) (parse-mod-provides self-modidx provides)
(parse-mod-body body))] (parse-mod-body body))]
[else [else
(error 'parse-mod "Internal error: unable to resolve module path ~s" self-path)]))]))])) (error 'parse-mod "Internal error: unable to resolve module path ~s" self-path)]))]))]
[else
(error 'parse-bytecode "Whalesong doesn't yet support submodules")])]))
;; parse-mod-requires: module-path-index (listof (pair (U Integer #f) (listof module-path-index))) -> (listof ModuleLocator) ;; parse-mod-requires: module-path-index (listof (pair (U Integer #f) (listof module-path-index))) -> (listof ModuleLocator)