Not sure if this is a bug or a misunderstanding on my part wrt the current namespace situation.

I expect this to print out the number 3.14. (This is a very pared down version of what Tcl in my sandbox is currently trying to do, going between 'Tcl' and '_Tcl'.

$ cat foo.pir
.HLL 'cromulent', ''

.sub what
   load_bytecode 'bar.pir'
  .include 'interpinfo.pasm'
  .local pmc var
   var = interpinfo .INTERPINFO_NAMESPACE_ROOT
   var = var['eek']
   var = var['bark']

    var()
.end
$ cat bar.pir
.HLL 'eek', ''

.sub foo :load :anon

  $P1 = new .String
  $P1 = "3.14\n"

  store_global '$whee', $P1

.end

.sub bark
  $P0 = find_global '$whee'
  print $P0
.end

$ ./parrot foo.pir
Global '$whee' not found
current instr.: 'bark' pc 12 (/Users/coke/research/parrot/./bar.pir:13)
called from Sub 'what' pc 17 (foo.pir:11)

Reply via email to