Changeset 32266 in project


Ignore:
Timestamp:
02/08/15 16:41:10 (6 years ago)
Author:
juergen
Message:

records-and-oop updated

File:
1 edited

Legend:

Unmodified
Added
Removed
  • wiki/records-and-oop

    r32265 r32266  
    1 [[tag: tutorial]]
    21[[toc:]]
    32
     
    414413                                  (number? (y pt)))
    415414                            #f))
     415              property: property-names
     416                        (lambda (pt)
     417                          (sort-symbols
     418                            (append '(move! x x-set! y y-set!)
     419                                    (property-names pt OBJECT))))
    416420              property: x
    417421                        %x
     
    489493                                  (number? (z pt)))
    490494                            #f))
     495              property: property-names
     496                        (lambda (pt)
     497                          (sort-symbols
     498                            (append '(z z-set!)
     499                                    (property-names pt POINT))))
    491500              property: z
    492501                        %z
Note: See TracChangeset for help on using the changeset viewer.