Changeset 13483 in project


Ignore:
Timestamp:
03/04/09 03:51:53 (11 years ago)
Author:
Kon Lovett
Message:

Save. Has prob w/ '#!optional'. Seen as undefined symbol 'optional'.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/synch/trunk/synch.scm

    r13482 r13483  
    1313;;;
    1414
    15 (require-library srfi-18)
     15(require-library data-structures srfi-18)
     16
     17;;;
     18
     19(define-for-syntax (recmuxnam nam)
     20  (string->symbol (conc nam #\- 'mutex)) )
    1621
    1722;;;
     
    5459  scheme
    5560  (only chicken
     61    void
    5662    unless
    5763    warning
    5864    gensym
    59     constantly
    6065    dynamic-wind)
     66  (only data-structures
     67    conc
     68    constantly)
    6169  (only srfi-18
    6270    thread?
     
    6674    mutex-lock! mutex-unlock!
    6775    mutex-state) )
    68 
    69 ;;;
    70 
    71 (define-for-syntax (recmuxnam nam)
    72   (string->symbol (conc nam #\- 'mutex)) )
    7376
    7477;;;
Note: See TracChangeset for help on using the changeset viewer.