Skip to content

Commit

Permalink
Track changes in HLL library loading API.
Browse files Browse the repository at this point in the history
  • Loading branch information
tene committed May 31, 2009
1 parent 50ec44e commit 0b9c9a3
Show file tree
Hide file tree
Showing 2 changed files with 5 additions and 7 deletions.
6 changes: 3 additions & 3 deletions perl6.pir
Expand Up @@ -414,10 +414,10 @@ to the Perl 6 compiler.
.end


.sub 'fetch-library' :method
.param pmc request
.sub 'load_library' :method
.param pmc name
.param pmc extra :named :slurpy
.local pmc name, retval, library, inc_hash
name = request['name']
$S0 = join '::', name
retval = 'require'($S0, 'module'=>1)
if null retval goto fail
Expand Down
6 changes: 2 additions & 4 deletions src/builtins/eval.pir
Expand Up @@ -153,15 +153,13 @@ itself can be found in src/builtins/control.pir.
$P0 = ver['lang']
if null $P0 goto no_hll
lang = $P0
.local pmc compiler, request, library, imports, callerns
.local pmc compiler, library, imports, callerns
$P0 = getinterp
callerns = $P0['namespace';1]
'load-language'(lang)
compiler = compreg lang
request = root_new ['parrot';'Hash']
$P0 = compiler_obj.'parse_name'(module)
request['name'] = $P0
library = compiler.'fetch-library'(request)
library = compiler.'load_library'($P0)
imports = library['symbols']
imports = imports['DEFAULT']
.local pmc ns_iter, item
Expand Down

0 comments on commit 0b9c9a3

Please sign in to comment.