1 "{ Package: 'jv:tea/compiler' }"

     2 

     3 "{ NameSpace: Smalltalk }"

     4 

     5 TFunctionBinding subclass:#TBlockBinding

     6 	instanceVariableNames:'methodOrBlock'

     7 	classVariableNames:''

     8 	poolDictionaries:''

     9 	category:'Languages-Tea-Compiler-Bindings'

    10 !

    11 

    12 !TBlockBinding methodsFor:'testing'!

    13 

    14 isMethodBlock

    15     ^ true

    16 ! !

    17