#| -*-Scheme-*-
-$Id: rcse1.scm,v 1.1 1994/11/19 02:06:38 adams Exp $
+$Id: rcse1.scm,v 1.2 1994/11/26 19:03:22 adams Exp $
Copyright (c) 1988-1994 Massachusetts Institute of Technology
trivial-action)
(method/unknown-invocation statement)))
+(define-cse-method 'PROFILE-COUNT method/noop)
+(define-cse-method 'PROFILE-DATA method/noop)
+
;; End of new stuff
\ No newline at end of file
#| -*-Scheme-*-
-$Id: rinvex.scm,v 1.1 1994/11/19 02:06:38 adams Exp $
+$Id: rinvex.scm,v 1.2 1994/11/26 19:03:36 adams Exp $
Copyright (c) 1989-1994 Massachusetts Institute of Technology
INTERRUPT-CHECK:CLOSURE
INTERRUPT-CHECK:SIMPLE-LOOP
PRESERVE
- RESTORE))
+ RESTORE
+ PROFILE-COUNT
+ PROFILE-DATA))
(define (define-one-arg-method type get set)
(define-method type