Changeset 7842 in project


Ignore:
Timestamp:
01/22/08 10:26:12 (12 years ago)
Author:
felix winkelmann
Message:

merged with mainline rev. 7838

Location:
release/3/advice
Files:
1 deleted
1 edited
4 copied

Legend:

Unmodified
Added
Removed
  • release/3/advice/advice.scm

    r7823 r7842  
    5555
    5656(define (advise mode proc h #!optional (id (gensym)))
     57  ;; chicken's closure representation ensures that the advice object
     58  ;; is part of the advisor closure, but we must avoid boxing,
     59  ;; so no assignment to a2 is allowed.
    5760  (let* ((a (find-advice proc 'advise))
    5861         (a2 (or a (make-advice #f '() '() '()) ) ) )
Note: See TracChangeset for help on using the changeset viewer.