diff options
Diffstat (limited to 'src/interp/i-intern.boot')
-rw-r--r-- | src/interp/i-intern.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/i-intern.boot b/src/interp/i-intern.boot index 8278d1af..12d02705 100644 --- a/src/interp/i-intern.boot +++ b/src/interp/i-intern.boot @@ -431,7 +431,7 @@ putI(x,prop,val) == ($InteractiveFrame := put(x,prop,val,$InteractiveFrame)) getIProplist x == getProplist(x,$InteractiveFrame) removeBindingI x == - RPLAC(CAAR $InteractiveFrame,deleteAssocWOC(x,CAAR $InteractiveFrame)) + first($InteractiveFrame).first := deleteAssocWOC(x,CAAR $InteractiveFrame) rempropI(x,prop) == id:= |