Permalink
Browse files

Unbreak setting compilation.

  • Loading branch information...
jnthn committed Jan 23, 2011
1 parent 43af670 commit 125d4ab5ee05d641fefe9e1fd2ff42e93394dbbf
Showing with 4 additions and 2 deletions.
  1. +4 −2 src/setting/Hash.pm
View
@@ -17,8 +17,9 @@ module Hash {
method delete($key) {
Q:PIR {
+ $P0 = find_lex 'self'
$P1 = find_lex '$key'
- delete self[$P1]
+ delete $P0[$P1]
}
}
@@ -29,8 +30,9 @@ module Hash {
method exists($key) {
Q:PIR {
+ $P0 = find_lex 'self'
$P1 = find_lex '$key'
- $I0 = exists self[$P1]
+ $I0 = exists $P0[$P1]
%r = box $I0
}
}

0 comments on commit 125d4ab

Please sign in to comment.