Changeset 34961 in project


Ignore:
Timestamp:
12/25/17 22:03:14 (9 months ago)
Author:
kon
Message:

C6N can be subject to initial conditions

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/thread-utils/trunk/atomic-value.scm

    r34960 r34961  
    3232  make-atom atom atom-wrap
    3333  atom? check-atom error-atom
     34  ;atom-mutate atom-validate atom-watch
    3435  atom-value
    3536  atom-value-set!
     
    7677;
    7778
     79;mutex-specific = proc/0-1
    7880(define-type <atom> (struct mutex))
    7981
     
    206208(apply signal-type-error loc (make-error-type-message 'atom) args) )
    207209
     210#|
     211;;
     212
     213(define: (atom-mutate (atm <atom>) (mutator (* -> procedure))) --> <atom>
     214  (check-<atom> 'atom-mutate atm)
     215  ;then magic occurs
     216  atm )
     217
     218(define: (atom-validate (atm <atom>) (validator (* -> procedure))) --> <atom>
     219  (check-<atom> 'atom-validate atm)
     220  ;then magic occurs
     221  atm )
     222
     223(define: (atom-watch (atm <atom>) (watcher (* -> procedure))) --> <atom>
     224  (check-<atom> 'atom-watch atm)
     225  ;then magic occurs
     226  atm )
     227|#
     228
    208229;;
    209230
Note: See TracChangeset for help on using the changeset viewer.