Changeset 5524 in project


Ignore:
Timestamp:
08/19/07 22:53:00 (12 years ago)
Author:
Jim Ursetto
Message:

syntactic-closures: reformat make-*-macrology to clarify

File:
1 edited

Legend:

Unmodified
Added
Removed
  • syntactic-closures/syntactic-closures.scm

    r5505 r5524  
    708708    (let ((environment (top-level-syntactic-environment base-environment)))
    709709      (define (define-classifier keyword classifier)
    710         (syntactic-environment/define! environment
    711                                        keyword
     710        (syntactic-environment/define! environment keyword
    712711                                       (make-keyword-item classifier keyword)))
    713       (generate-definitions
    714        define-classifier
    715        (lambda (keyword compiler)
    716          (define-classifier keyword (compiler->classifier compiler))))
     712      (define (define-compiler keyword compiler)
     713        (define-classifier keyword (compiler->classifier compiler)))
     714      (generate-definitions define-classifier define-compiler)
    717715      environment)))
    718716
     
    720718  (lambda (base-environment)
    721719    (let ((environment (top-level-syntactic-environment base-environment)))
    722       (generate-definitions
    723        (lambda (keyword object)
    724          (syntactic-environment/define!
    725           environment
    726           keyword
    727           (make-keyword-item (object->classifier object environment) keyword)))
    728        base-environment)
     720      (define (define-classifier keyword classifier)
     721        (syntactic-environment/define! environment keyword
     722                                       (make-keyword-item classifier keyword)))
     723      (define (define-expander keyword object)
     724        (define-classifier keyword (object->classifier object environment)))
     725      (generate-definitions define-expander base-environment)
    729726      environment)))
    730727
Note: See TracChangeset for help on using the changeset viewer.