--- a/ExecFunc.st Tue Apr 23 13:57:59 1996 +0200
+++ b/ExecFunc.st Tue Apr 23 16:04:52 1996 +0200
@@ -91,11 +91,12 @@
!ExecutableFunction class methodsFor:'queries'!
isBuiltInClass
- "this class is known by the run-time-system"
+ "return true if this class is known by the run-time-system.
+ Here, true is returned for myself, false for subclasses."
^ self == CompiledCode
- "Modified: 16.4.1996 / 11:25:49 / cg"
+ "Modified: 23.4.1996 / 15:57:24 / cg"
! !
!ExecutableFunction methodsFor:'accessing'!
@@ -294,6 +295,6 @@
!ExecutableFunction class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Attic/ExecFunc.st,v 1.24 1996-04-22 14:36:49 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Attic/ExecFunc.st,v 1.25 1996-04-23 14:04:00 cg Exp $'
! !
ExecutableFunction initialize!